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

[y397526029]

敬请各位高手指点哈，我要删除表中的所有记录，代码如下，但为什么删不完，总要剩几条？谢谢了！

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

[zhangA]

ADOTable2.Active:=True;
ADOTable2.Edit;


ADOTable2.first;


while not ADOTable2.Eof do
begin
ADOTable2.Delete;
ADOTable2.Next
end;

[ysai]

ADOTable2.Active:=True;
while not ADOTable2.Eof do ADOTable2.Delete;

delete后记录指针会自动移动到下一条的,不用next了

[ysai]

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

[qiume]

直接用SQL最简单......

[僵哥]

ADOX压缩一下.

[僵哥]

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

[yshuui]

不用ADOTable2.Next。

[liups]

[Quote=引用 7 楼 yshuui 的回复:]
不用ADOTable2.Next。
[/Quote]
同意，删除一条后，下一条成为当前的，NEXT就跳过去了一条，结果就是删除了大约一半记录。

最好的方法就是3楼的SQL命令，一条语句搞定，不仅代码少，效率还高。LZ的代码反映出多半是学过VFP而且还没学到家