运行下列代码的时候运行到->处报错:“EOF或者BOF为真,或者当前记录已经删除。所需的操作要求一个当前的记录。”adoquery1有时候是空的,但没有空记录,以前运行都没问题,突然间就出现了这个问题?该怎么解决?
begin
Adoquery1.active:=True;
Adoquery1.close;
Adoquery1.sql.clear;
Adoquery1.sql.add('select * from temp');
Adoquery1.sql.add('where ifsend= "N"');
Adoquery1.open;
Adoquery1.first;
-> while not Adoquery1.eof do begin
try
Table1.Insert;
Table1.Post;
AdoQuery1.delete;
except
Adoquery1.next;
end;
end;
begin
Adoquery1.active:=True;
Adoquery1.close;
Adoquery1.sql.clear;
Adoquery1.sql.add('select * from temp');
Adoquery1.sql.add('where ifsend= "N"');
Adoquery1.open;
Adoquery1.first;
-> while not Adoquery1.eof do begin
try
Table1.Insert;
Table1.Post;
AdoQuery1.delete;
except
Adoquery1.next;
end;
end;
adoquery1.execsql
访问我的主页就有答案了,给分!:)
http://www.ifrance.com/man8888/FAQs_ADO.htm
我爱Delphi!
Adoquery1.active:=True;
Adoquery1.close;
Adoquery1.sql.clear;
Adoquery1.sql.add('select * from temp');
Adoquery1.sql.add('where ifsend= "N"');
Adoquery1.open;
Adoquery1.first;
-> while not Adoquery1.eof do begin
try
Table1.Insert;
Table1.Post;
AdoQuery1.delete;
-> finally
Adoquery1.next;
end;
end;
end;
riff ur life