منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هل هناك كود يحذف كل السجلات من الجدول مرة واحدة عن طريق اداة adodc
جربت هذا الكود لكن يظهر لي ان هناك خطأ في تنفيذ البرنامج
adodc1.recordsouce="delete*from table

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

الكود غير مفهوم اخي الكريم

استخدم هذا الكود
On Error Resume Next
Adodc1.RecordSource = " delete * from table "
Adodc1.CommandType = adCmdText
Adodc1.Refresh

شكــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا جزيلا
anan
السيد الغالي
superwoofer

---

استاذ anan
من فضلك ماهي فائدة هذا الكود:

for i=0 to adodc1.recordset.recordcount-1
.
.
.
.next i