如何用adotable彻底删除ACCESS表中的记录

Question

敬请各位高手指点哈，我要删除表中的所有记录，代码如下，但为什么删不完，总要剩几条？谢谢了！ADOTable2.Active:=True;
   ADOTable2.Edit;
   while not ADOTable2.Eof do
   begin
      ADOTable2.Delete;
      ADOTable2.Next
   end;

Answer 1

ADOTable2.Active:=True; 
  ADOTable2.Edit; 
ADOTable2.first;
  while not ADOTable2.Eof do 
  begin 
      ADOTable2.Delete; 
      ADOTable2.Next 
  end;

Answer 2

ADOTable2.Active:=True; 
while not ADOTable2.Eof do ADOTable2.Delete;delete后记录指针会自动移动到下一条的,不用next了

Answer 3

其实要清空表 还是用SQL好
delete from tablename
或
truncate table tablename

Answer 4

http://edysoftware.com/word/source/2008/10/24/delphi-compact-ms-accessmdb-using-ado.html

Answer 5

同意，删除一条后，下一条成为当前的，NEXT就跳过去了一条，结果就是删除了大约一半记录。最好的方法就是3楼的SQL命令，一条语句搞定，不仅代码少，效率还高。LZ的代码反映出多半是学过VFP而且还没学到家