+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : لا استطيع افراغ جدول ado (/showthread.php?tid=5953)
لا استطيع افراغ جدول ado - hmidadz - 18-02-2014
السلام عليكم
استعمل اكسس
كود :
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)
لا استطيع افراغ جدول ado - Anter2010 - 18-02-2014
السلام عليكم
جرب هذا
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.open ;
ADOTable1.first;
while not(ADOTable1.eof) do
ADOTable1.delete;
ADOTable1.next;
end;
end.
لا استطيع افراغ جدول ado - Najy Ibraheem - 18-02-2014
السلام عليكم...
الطريقة الصحيحة (إذا كنا سنستعمل حلقة):
كود :
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 هو اسم الجدول في قاعدة البيانات.
نرجو الاستفادة و السلام.
لا استطيع افراغ جدول ado - hmidadz - 19-02-2014
تم استعمال بنجاح
كود :
ADOCommand1.CommandText := 'DELETE FROM Fin';
ADOCommand1.Execute;شكرا و تقدير