[asto]

ناجي إبراهيم كتب :السلام عليكم...



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

الطريقة الصحيحة هي استعمال جملة 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.

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

مشكور بس معليش اطلب شرح اكثر مرة واحدة لافهم اكثر

اذا انا انشأت زر كوماند

وضعت فيه :

كود :

Set Db = DBEngine.OpenDatabase(App.Path & "\db2.mdb")
Set Rs = Db.OpenRecordset("table", 1)

فما هي التغييرات التي يجب عملها في هذا الكود
:

كود :

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