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
با این کد کارم راه افتاد
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.