منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] هل هناك كود يحذف كل السجلات من الجدول مرة واحدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] هل هناك كود يحذف كل السجلات من الجدول مرة واحدة (/showthread.php?tid=11436)



هل هناك كود يحذف كل السجلات من الجدول مرة واحدة - larbihamri - 15-02-15

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


RE: هل هناك كود يحذف كل السجلات من الجدول مرة واحدة - superwoofer - 15-02-15

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


RE: هل هناك كود يحذف كل السجلات من الجدول مرة واحدة - larbihamri - 16-02-15

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


RE: هل هناك كود يحذف كل السجلات من الجدول مرة واحدة - السيد الغالي - 16-02-15

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


RE: هل هناك كود يحذف كل السجلات من الجدول مرة واحدة - larbihamri - 16-02-15

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

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

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