回 帖 发 新 帖 刷新版面

主题:在delphi中使用update语句的问题

我定义了一过程:
procedure tfrm_memhk.modifyothertablekh(oldkh,newkh,table:string);
begin                                   //oldkh:原卡,newhk:新卡;table:表名;
with datamodule1.q_other do
 begin
  close;
  sql.Clear;
  sql.Add('update '+trim(table));
  sql.Add('set hykh='''+newkh+'''');
  sql.Add('where hykh='''+oldkh+'''');
  try
    open;
  except
    execsql;
  end;
end;
end;

提示错误:'query1 commandtext doesn't return a result value'
请问是怎么回事.该如何解决呢?谢谢大家的帮助!!!

回复列表 (共1个回复)

沙发

既然是用update操作数据库,为什么还要用open呢?也不要用异常处理,直接用execsql不就可以了吗?

我来回复

您尚未登录,请登录后再回复。点此登录或注册