السلام عليكم
If Adodc1.Recordset.RecordCount <> 0 Then For i = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.Move (i) Adodc1.Recordset.Delete Next i End If
حاولت انفذ الكود هذا ولكن يبقى سجل واحد فما الخطأ؟
حذف جميع السجلات
مغلق
استبدل
For i = 1 To Adodc1.Recordset.RecordCount
بهذا
For i = 0 To Adodc1.Recordset.RecordCount
..تحياتي
اخوي محمد
يعطيك العافية على رد
جربت البداية من صفر ولكن لم تفيد
هل فيه طريقة اخرى
اكيد فيه طرق
cn.execute ("delete from tabelName")ملاحظه :: tabelName = اسم الجدول المراد مسح جميع سجلاته
cn متغير الإتصال بقاعدة البيانات
تحياتي
تم تعديل هذه المشاركة بواسطة محمدvb في 1 نوفمبر 2007 في 16:50
ليت توضح اخوي محمد اكثر اني مبتدء
اخي السديم ضع مثالك واعدله لك تحياتي
يعطيك الف عافية ويجزاك الف خير على متابعتك ومساعتك جميله
اخوي السديم
تفضل المثال تم التعديل عليه
وأيضاً ربط القاعدة بالكود أفضل بكثير من الطريقة المعمولة وموضح كل شي ومطلوبك مسح السجلات سويتها
ملاحظه :: لو حبيت تسوي برنامج آخر يجب عليك إضافة مكتبة الآدوا من Project ثم References
ثم أختر مكتبة الآدو = Microsoft Activex Data Object 2,5 Livrary
المهم أنا ضفت المكتبة في هذا البرنامج ما يحتاج تضيفها ..لو مو واضح عاد اخوي اسأل ثاني وأنا تحت أمرك .. تحياتي
الله يجزاك الف خير وفيت وكفيت اخوي محمد
تعديل جميل جدا ولكن هل يمكن اضافة Refresh للقاعدة بعد تنفيذ الامر ؟
نعم تقدر عمل ذلك والكود نفسه اللي يعرض البيانات بعد مسح البيانات ضعه يعرض البيانات مره اخرى فلو ما حصل بيانات سوف يعرضها فاضيه بدون بيانات اليس كذلك يالسديم
بعد السطر الخاص بمسح البيانات
اعمل الكود
if rs.state = 1 then rs.close
وهذا معناه لو الجدول مفتوح اقفل الجدول
بعد كذا افتح الجدول مره أخرى
بالكود اللي عندك في الفورم لود
rs.open "Table1",cn,1,2
اوكيه كذا فتح الجدول بقى علينا نعرض بياناته في القريد
set datagrid1.datasource = rs
وأنتهى الموضوع
سلمت يمناك بارك الله لك في وقتك وجهدك
هذا الموضوع مغلق.