المشاركات : 501
المواضيع 119
الإنتساب : Jul 2014
السمعة :
16
الشكر: 1786
تم شكره 1291 مرات في 275 مشاركات
هل هناك كود يحذف كل السجلات من الجدول مرة واحدة عن طريق اداة adodc
جربت هذا الكود لكن يظهر لي ان هناك خطأ في تنفيذ البرنامج
adodc1.recordsouce="delete*from table
المشاركات : 208
المواضيع 51
الإنتساب : Nov 2013
السمعة :
0
الشكر: 144
تم شكره 101 مرات في 32 مشاركات
On Error Resume Next
Set rs = Nothing
If rs.State = adStateOpen Then rs.Close
rs.Open "delete table1 where field1 like '" & Text1.Text & "'", Adodc1.ConnectionString, 1, 3
حسب المعطيات داخل حقل text
اذا اردت حذف الحقل كامل استخدم
delete table1
بدون الشرط where
rs.Open "delete table1", Adodc1.ConnectionString, 1, 3
المشاركات : 501
المواضيع 119
الإنتساب : Jul 2014
السمعة :
16
الشكر: 1786
تم شكره 1291 مرات في 275 مشاركات
الكود غير مفهوم اخي الكريم
المشاركات : 459
المواضيع 3
الإنتساب : Jan 2014
السمعة :
70
الشكر: 4548
تم شكره 3084 مرات في 332 مشاركات
16-02-15, 01:01 PM
(آخر تعديل لهذه المشاركة : 16-02-15, 01:02 PM {2} بواسطة السيد الغالي.)
استخدم هذا الكود
On Error Resume Next
Adodc1.RecordSource = " delete * from table "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم
المشاركات : 501
المواضيع 119
الإنتساب : Jul 2014
السمعة :
16
الشكر: 1786
تم شكره 1291 مرات في 275 مشاركات
16-02-15, 04:47 PM
(آخر تعديل لهذه المشاركة : 16-02-15, 05:01 PM {2} بواسطة larbihamri.)
شكــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا جزيلا
anan
السيد الغالي
superwoofer
استاذ anan
من فضلك ماهي فائدة هذا الكود:
for i=0 to adodc1.recordset.recordcount-1
.
.
.
.next i