各位,ADO我已经升级了可问题还不能解决!!真着急。查询原代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
try
with adoquery1 do begin
close;
SQL.clear;
sql.add('select * from dagl');
SQL.add('where '+combobox1.Items[combobox1.itemindex]+' like ''%'+edit1.text+'%''');
if prepared=false then prepared;
open;
str:='共查到 '+inttostr(recordcount)+' 条记录'+#10#13;
end;
showmessage(str);
except
showmessage('请选择查询条件');
end;
end;
当查询记录为0时,再执行查询,出现如下情况:
exception E01eException in module project1.exe at 00076F0B.
BOF或EOF中有一个是“真”,或者当前的记录已被删除,所需要的操作要求一个当前的记录。
在线等候