Question

delphi 中出现cannot perform this operation on a closed dataset问题

procedure Tfrm_bmxx.FormShow(Sender: TObject);
begin
data1.ADOQYbmxx.Active:=false;
with data1.ADOQYbmxx do
begin
close;
sql.Clear;
sql.text := 'select * from 部门表'; // sql.Add('select * from 部门表');
open;

data1.ADOQYbmxx.Active:=true;
if data1.ADOQYbmxx.FieldByName('部门编号').Value= null then
begin
application.MessageBox('数据库中没有数据,请添加数据','提示',64);
speedbutton1.Click;
end;
end;
end;

代码如上，请高手指点~~
每次运行时点击dbgrid时出现此错误，且显示不了数据库里的信息。

Answer 1

建议在dbgrid的onclick事件里打断点跟踪一下
或者在调试模式下运行，看看出错时代码停在哪
你这段代码虽然罗嗦，但是执行没有问题，而且这段代码是在窗体create完成后显示的时候执行的，不是点击dbgrid的时候执行的

Answer 2

这段代码没错，只是有点小重复
close代码和data1.ADOQYbmxx.Active:=false一样的意义；
open代码和data1.ADOQYbmxx.Active:=true一样的意义
估计是你其他地方错了
close状态下操作数据库就会出现这种错误

Answer 3

怎么找到错误的 什么错误？能指点下么？