حذف رکوردهای جدول

[naeemeh]

با سلام
دوستان من می خوام اگر جدول خالی نباشه بیاد تمام رکوردهای جدول حذف بشه.
اما کدی که نوشتم فقط چند تا از رکوردهام رو پاک می کنه.ممنون می شم اگه کسی کمک کنه.


//hazf
datamodule5.ADOTable2.Close;
datamodule5.ADOTable2.Open;
datamodule5.ADOTable2.first;
if not(datamodule5.ADOTable2.IsEmpty) then begin
while not(datamodule5.ADOTable2.Eof) do begin
datamodule5.ADOTable2.Delete;
datamodule5.ADOTable2.Next;
end;//endwhile
end; //endif
//endhazf

[Hamid.Kad]

اگه از کوئری استفاده کنید فکر کنم هم منطقی تر و هم سریعتر باشه


AdoQuery1.sql.text := 'Delete from Table1'
AdoQuery1.execSql

[delphiprog3000]

سلام.
دوست عزیز سوال شما مربوط به بخش پایگاه داده ها در دلفی میباشید.

و ای کاش پیش از ایجاد موضوع یه جستجو کوچیک میزدید.

اینم لینکهای مورد نظر:

http://barnamenevis.org/forum/showthread.php?t=7503&highlight=%D8%AD%D8%B0%D9%81+%D8%B1%DA%A9%D9%88%D8 %B1%D8%AF%D9%87%D8%A7

http://barnamenevis.org/forum/showthread.php?t=4296&highlight=%D8%AD%D8%B0%D9%81+%D8%B1%DA%A9%D9%88%D8 %B1%D8%AF%D9%87%D8%A7



موفق باشید.................

[naeemeh]

ضمن تشکر از شما دو دوست عزیز ،مشکلم حل شد.چون اون next که گذاشته بودم باعث می شد یک درمیون پاک بشه.
datamodule5.ADOTablef2.Next;
این خط رو حذف کردم.مشکلم حل شد.باز هم از راهنماییتون متشکرم.