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

[hmidadz]

السلام عليكم

استعمل اكسس

كود :

procedure TForm2.BitBtn17Click(Sender: TObject); begin ADOTable7.Cancel; ADOTable7.First; while not (ADOTable7.Eof) do begin ADOTable7.Delete; end; end;

رسالة الخطأ

exception 'first chance' à $75E29617. Classe d'exception EOleException avec un message 'Informations sur la colonne clé insuffisantes ou incorrectes. Trop de lignes sont affectées par la mise à jour'. Processus Planta.exe (3836)

[Anter2010]

السلام عليكم
جرب هذا

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.open ;
ADOTable1.first;
while not(ADOTable1.eof) do
ADOTable1.delete;
ADOTable1.next;
end;
end. 


[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 هو اسم الجدول في قاعدة البيانات.

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

[hmidadz]

تم استعمال بنجاح

كود :

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

شكرا و تقدير