لا استطيع افراغ جدول ado

[Najy Ibraheem]

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

الطريقة الصحيحة (إذا كنا سنستعمل حلقة):

كود :

ADOTable7.Open; // OR: ADOTable7.Active := True; while not ADOTable7.IsEmpty do ADOTable7.Delete; ADOTable7.Close; // OR: ADOTable7.Active := False;

* و لكن هذه الطريقة غير عملية إذا كان عدد السجلات كبيراً لأنها تأخذ وقتاً طويلاً. و بدلاً من ذلك نستعمل Query أو Command لحذف كافة السجلات في جملة واحدة. مثلاً:

كود :

ADOCommand1.CommandText := 'DELETE FROM table_name'; ADOCommand1.Execute;

حيث table_name هو اسم الجدول في قاعدة البيانات.

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