كيف يمكن حذف جدول بأكمله

[DJILANI]

أستخدمت هذين الكودين ولكن دون جدوى

PHP كود :

procedure TForm16.Button4Click(Sender: TObject);

begin


ADOQuery1.Close;
ADOQuery1.SQL.Text:='DELETE FROM calcul';
ADOQuery1.ExecSQL;
ADOTable4.Close;
ADOTable4.open;

end;

procedure TForm16.Button5Click(Sender: TObject);
var i:integer;
begin
//ADOTable4.First ;

 while not ADOTable4.Eof do
begin

    ADOTable4.First ;
    ADOTable4.Delete;

end;

end; 


[igidher]

هذه تعمل معي

PHP كود :

ADOTable1.First;
  while NOT ADOTable1.Eof do
  ADOTable1.Delete; 


[DeadC0der]

انا أستعمل هذه و تنجح معي 100%

PHP كود :

tbl1.First;
while not(tbl1.EOF) do 
begin
tbl1.Delete;
tbl1.First;
end; 


[igidher]

انا أستعمل هذه و تنجح معي 100%

PHP كود :

tbl1.first;
while not(tbl1.eof) do 
begin
tbl1.delete;
tbl1.first;
end; 


التعليمة الأخيرة زائدة تستطيع الاستغناء عنها

[DeadC0der]

أنت على حق يمكن الأستغناء عنها :p

[S.FATEH]

السلام عليكم

جرب

PHP كود :

ADOQuery1.SQL.Text:='DELETE * FROM calcul'; 


بدل

PHP كود :

ADOQuery1.SQL.Text:='DELETE FROM calcul'; 


[DJILANI]

شكرا للاخوة الكرام
بارك الله فيكم جميعا igidher DeadC0der لكن لم تشتغل معي كذلك
كود مشرفنا S.FATEH أشتغل تمام شكرا لكن هل من طريقة لتسريع الحذف

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته:
أخي يمكنك إستخدام الدالة EmptyTable

Table1.Close;
Table1.EmptyTable;
Table1.Open;

بالتوفيق

[S.FATEH]

هل من طريقة لتسريع الحذف

يمكنك تسريع البحث بهذه الطريقة

PHP كود :

Table.DisableControls;
كود الحذف 
Table.EnableControls;