ورود

View Full Version : سوال: حذف کل دیتا بیس



moghadam1372
شنبه 15 بهمن 1390, 21:26 عصر
چطور می شود که کل اطلاعات جداول یک دیتا بیس اکسس را حذف کرد ؟

محسن واژدی
شنبه 15 بهمن 1390, 23:02 عصر
سلام
برای حذف همه اطلاعات از query زیر استفاده کنید:
"Delete * From " & sTargetTableName$

برای مثال:


Adodc1.RecordSource = "Delete * From Table1"
Adodc1.Refresh

موفق باشید

moghadam1372
یک شنبه 16 بهمن 1390, 13:53 عصر
با تشکر ولی روی Adodc1.Refresh خطا میگیره؟

kitcat_m18
یک شنبه 16 بهمن 1390, 14:47 عصر
سلام،
دستور زیر از لحاظ گرامری اشتباه هست.
Adodc1.RecordSource = "Delete * From Table1"
Adodc1.Refresh

این دستور رو امتحان کنید:
Adodc1.RecordSource = "Delete From Table1"
Adodc1.Refresh


من خودمم معمولا این اشتباه رو می کنم و برای پاک کردن هم فیلد ها رو انتخاب می کنم (*) :لبخند:
موفق باشید.

M.T.P
یک شنبه 16 بهمن 1390, 17:53 عصر
با تشکر ولی روی Adodc1.Refresh خطا میگیره؟

کدتون رو چطور نوشتید؟

moghadam1372
یک شنبه 16 بهمن 1390, 19:39 عصر
Adodc1.RecordSource = "Delete * From Table1"Adodc1.Refresh


بازم روی adodc1.refresh خطا میگیره

M.T.P
یک شنبه 16 بهمن 1390, 21:38 عصر
یعنی اسم جدول شما Table1 است؟

moghadam1372
دوشنبه 17 بهمن 1390, 09:14 صبح
Adodc1.RecordSource = "Delete * From forosh"Adodc1.Refresh
اسم جدول فروش است .حذف می کند ولی روی خط Adodc1.Refresh خطا میگیرد .واگرAdodc1.Refresh را برداریم حذف نمی کند واگرگفته دوستمان علامت ستاره را هم برداریم حذف نمی کند

Adodc1
اینم پیغام خطاش=apration is not allowed when the opject is closed

Javad-2010
دوشنبه 17 بهمن 1390, 09:26 صبح
If Adodc1.Recordset.State = 1 Then Adodc1.Recordset.Close
Adodc1.Recordset.Open "Delete From forosh"
Adodc1.Refresh

kitcat_m18
دوشنبه 17 بهمن 1390, 10:10 صبح
سلام،
عزیزم ADODC1.ConnectionString رو چک کن
یه Select بزن ببین RecordCount بهت میده یا نه
موفق باشی:لبخندساده:

sehm67
دوشنبه 17 بهمن 1390, 13:59 عصر
دستور آقا Javad درسته.

moghadam1372
دوشنبه 17 بهمن 1390, 14:34 عصر
باتشکر فراوان حا لا چند جدول است واین کد رابرای Adodc2 الی 6 پشت سرهم تکرار کردم ولی جواب نداد فقط adodc1را حذف کرد و در adodc2.refresh گیرداد وباز پیغام خطا
apration is not allowed when the opject is closed را می ذهد

kitcat_m18
سه شنبه 18 بهمن 1390, 01:00 صبح
سلام،

باتشکر فراوان حا لا چند جدول است واین کد رابرای Adodc2 الی 6 پشت سرهم تکرار کردم ولی جواب نداد فقط adodc1را حذف کرد و در adodc2.refresh گیرداد وباز پیغام خطا
apration is not allowed when the opject is closed را می ذهد
دوست من مارو دست انداختی؟؟؟
خب نمونه برنامت رو. حداقل بذار ببینیم مشکلت چیه؟؟؟
من علم غیب ندارم که ببینم تو داری چیکار می کنی :عصبانی:

موفق باشی :لبخندساده:

Javad-2010
سه شنبه 18 بهمن 1390, 08:17 صبح
این کد را برای Adodc2 الی 6 پشت سر هم تکرار کردم

به چه صورت کد نوشتی؟

moghadam1372
سه شنبه 18 بهمن 1390, 08:27 صبح
با سلا خدمت جواد اقا : ببخشید وقت گرامی را گرفتم این کد را پشت سرهم قرار دادم ولی ارور می دهد
If Adodc1.Recordset.State = 1 Then Adodc1.Recordset.Close
Adodc1.Recordset.Open "Delete From forosh"
Adodc1.Refresh

If Adodc2.Recordset.State = 1 Then Adodc2.Recordset.Close
Adodc2.Recordset.Open "Delete From amal"
Adodc2.Refresh

If Adodc3.Recordset.State = 1 Then Adodc3.Recordset.Close
Adodc1.Recordset.Open "Delete From bd"
Adodc3.Refresh

If Adodc4.Recordset.State = 1 Then Adodc4.Recordset.Close
Adodc4.Recordset.Open "Delete From zamin"
Adodc4.Refresh

الی adodc6
?

Javad-2010
سه شنبه 18 بهمن 1390, 09:55 صبح
ظاهراً که نباید مشکلی باشه!
اگه جواب دقیق میخوای، نمونه برنامه خودت رو بذار تا بررسی بشه.

Javad-2010
سه شنبه 18 بهمن 1390, 09:58 صبح
If Adodc3.Recordset.State = 1 Then Adodc3.Recordset.Close
Adodc1.Recordset.Open "Delete From bd"
Adodc3.Refresh

در خط دوم، تو این قسمت کد شما، باید Adodc3 بنویسی!

moghadam1372
چهارشنبه 19 بهمن 1390, 07:49 صبح
با سلام وتشر زیاد ازجواداقا مشکل با دستکاری کد شما حل شد .

Adodc4.Recordset.Close
Adodc4.Recordset.Open "Delete From zamin"
Adodc4.Refresh
با این کد کارم راه افتاد