پاک کردن همه رکوردهای یک Table از طریق برنامه

[ashkan209]

دوستان کمک کنند
من میخواهم با یک کلید همه رکوردهای یک Table را پاک کنم؟

[meh_secure]

با استفاده از دستورات sql


myAdo.recordset.open "delete * from myTable;"

[ashkan209]

ایول - ممنون

[meh_secure]

خواهش می کنم.

[vb341]

نمونه برنامه رو نگاه کن . متوجه میشی

[vb341]

البته من تو برنامه شرط گذاشتم که اگه تعداد رکوردها 1384 شد جداولی رو که میخوام پاک بشه . شما میتونی شرط رو برداری

[ashkan209]

این فرمان خطا میدهد : myAdo.recordset.open "delete * from myTable;"

[H_SH_VB]

باید صبر کنی مهدی بیاد DB کارمون اونه
الیته به بقیه اساتید اهانت نشه ها

[meh_secure]

این فرمان خطا میدهد : myAdo.recordset.open "delete * from myTable;"
خودش نوشته چی میخواد دیگه. دستوری که من گفتم در صورتی خطا نمیده که کانکشن بسته باشه. شما می تونید قبل از اجرای این دستور از کد زیر کمک بگیرید.


myAdo.recordset.close

اگه باز هم نتونستی کنترلش کنی از On Error Resume Next استفاده کن.
در ضمن این خطاها خطاهایی نیست که بخاطرش کمک بخواهید. از یک برنامه نویس بعیده که نتونه این مشکل ها رو خودش حل کنه. در هر صورت ما آماده ایم که کمک کنیم.

[ashkan209]

دوست عزیز آقا مهدی ،
سلام
ضمن ارادت ،به خاطر پاسخگویی به مشکلات بنده و بقیه دوستان در تاپیکهای دیگه، باید عرض کنم که :
1- من همه این راههایی که گفتید ، رفته بودم ولی باز هم این فرمان جواب نداد (اصل برنامه پیوست می باشد)
2- ضمنا سوال کردن بنده از اساتید هم ، بگذارید به دید مبتدی بودن بنده
3- اینکه آخرش نفهمیدیم نپرسیدن عیبه یا پرسیدن ؟

سپاسگزار همه

[meh_secure]

دوست خوبم. از صحبت من ناراحت نشید. صحبت های من فقط و فقط بخاطر اینه که اعتماد به نفس پیدا کنید و خودتون مشکل خودتون رو حل کنید(البته در حد توان). در ضمن بدست آوردن تجربه تو برنامه نویسی یکی از مهم ترین نکات هستش که باید بهش توجه کنید. پس دیگه ناراحت نشید.

[meh_secure]

مشکلی که داشتید این بود که باید به properties کنترلadodc1 می رفتید و درقسمت recordsource و commandtype حالت accmdtext رو انتخاب می کردید تا بتونید دستورات sql رو به این کنترل بدید.
فایل ضمیمه رو یه نگاه بنداز.

[reza_optical]

با با چرا کارو خراب میکنی عزیز هنوز زود از ado استفاده کنی از data استفاده کن بعد این دستو رو بنویس حل میشه
b=data1.recordset.recordcount
for i=0 to b
if data1.recordset.eof=false then
Data1.Recordset.Delete
data1.recordset.movenext
end if
next
از راه راحت هل میشه خواستی sql هم میگم عزیز با ما باش

[meh_secure]

ولی بنظر من اگه از ابتدا با ado کار کنید خیلی بهتره تا اینکه از data استفاده کنید.