[ناجي إبراهيم]

السلام عليكم...

asto كتب :مطلوب كود افراغ قاعدة بيانات بدون معرفة عدد السجلات

حيث الكود rs.delete

مع حلقة التكرار لم ينجح

و أيضاً غير عملي مع عدد كبير من السجلات و قد يؤدي إلى توقف البرنامج عن العمل.

الطريقة الصحيحة هي استعمال جملة DELETE مع ADO Command لحذف كافة السجلات:

كود :

Dim ADOCmd As ADODB.Command
'
    Set ADOCmd = New ADODB.Command
    ADOCmd.CommandType = adCmdText
    ADOCmd.ActiveConnection = AConnection
    ADOCmd.CommandText = "DELETE FROM table_name"
    ADOCmd.Execute

حيث table_name هو اسم الجدول الذي تريد إفراغه.

و AConnection في السطر ADOCmd.ActiveConnection = AConnection هو إما كائن ADODB.Connection معرف و مفتوح سابقاً، أو ConnectionString.

نرجو الاستفادة و السلام.