关于“对象关闭时，不允许操作”

小白_=__-White

这是界面

我在做delphi 连接数据库的时候  想通过输入文本框实时修改数据库中的数据，可是连接数据库之后，运行时老是提醒我“对象关闭时，不允许操作”
代码如下：
procedure TForm1.btn2Click(Sender: TObject);
begin
con1.BeginTrans;
Form1.con1.Open;
  with qry1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('insert 病人信息（exam_name,patient_id,patient_name,sex,age,birth_date,weight,height,refer_phy,radiologist,operator,history,exam_des,protocol_num,proc.id)');
    SQL.Add('values :a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o');
    Parameters.ParamByName('a').Value:=Trim(edt1.Text);
    Parameters.ParamByName('b').Value:=Trim(edt2.Text);
    Parameters.ParamByName('c').Value:=Trim(edt3.Text);
    Parameters.ParamByName('d').Value:=Trim(edt4.Text);
    Parameters.ParamByName('e').Value:=Trim(edt5.Text);
    Parameters.ParamByName('f').Value:=Trim(edt6.Text);
    Parameters.ParamByName('g').Value:=Trim(edt7.Text);
    Parameters.ParamByName('h').Value:=Trim(edt8.Text);
    Parameters.ParamByName('i').Value:=Trim(edt9.Text);
    Parameters.ParamByName('j').Value:=Trim(edt10.Text);
    Parameters.ParamByName('k').Value:=Trim(edt11.Text);
    Parameters.ParamByName('l').Value:=Trim(edt12.Text);
    Parameters.ParamByName('m').Value:=Trim(edt13.Text);
    Parameters.ParamByName('n').Value:=Trim(edt14.Text);
    Parameters.ParamByName('o').Value:=Trim(edt15.Text);
    Prepared:=True;
    ExecSQL;
  end;
end;

Saith2008

写个存储过程吧， 这样看着眼花缭乱

小白_=__-White

Saith2008 发表于 2013-4-27 15:59

                               
登录/注册后可看大图

写个存储过程吧， 这样看着眼花缭乱

额，我是新手。这个就是文本控件的文本内容写入数据库里的程序。提示说对象关闭，语句倒是没写错。

Saith2008

小白_=__-White 发表于 2013-4-27 21:42

                               
登录/注册后可看大图

额，我是新手。这个就是文本控件的文本内容写入数据库里的程序。提示说对象关闭，语句倒是没写错。

con1是数据连接控件？
你将con1.open 放到  con1.BeginTrans;的前面试试

Saith2008

Saith2008 发表于 2013-5-22 09:38

                               
登录/注册后可看大图

con1是数据连接控件？
你将con1.open 放到  con1.BeginTrans;的前面试试

还有， 这是单个语句， 没必要加事务， 如果你要加， 后边也要加提交事务的语句， 或者出错时回滚事务

小白_=__-White

Saith2008 发表于 2013-5-22 09:40

                               
登录/注册后可看大图

还有， 这是单个语句， 没必要加事务， 如果你要加， 后边也要加提交事务的语句， 或者出错时回滚事务

谢谢 已经解决了。非常感谢。

mjljy2013

至尊会员了都 怎么会有这种错误呢

11年__那些事儿

mjljy2013 发表于 2013-7-19 14:12

                               
登录/注册后可看大图

至尊会员了都 怎么会有这种错误呢

至尊会员花点钱你也可以搞到！！！