各位前辈:
在利用‘update’语句更新时遇到麻烦,代码如下文,其中这一行老出问题,dm.sqlx5.Parameters.ParamByName('bh').Value :=edit22.Text;当edit22.Text的值不为空时,运行正常。当edit22.Text的值为空时,错误提示‘非法的精确度值’不知为何?????谢=================================================================
dm.sqlx5.SQL.Clear;
dm.sqlx5.SQL.Add('update jsk ');
dm.sqlx5.SQL.Add('set bm=:hh, ren=:gg,yh=:yh,fs=:fs,je=:je,bh=:bh');
dm.sqlx5.SQL.Add('where id=:hh1 ');
dm.sqlx5.Parameters.ParamByName('hh1').Value :=trim(hh);
dm.sqlx5.Parameters.ParamByName('gg').Value :=trim(c3.Text);
dm.sqlx5.Parameters.ParamByName('hh').Value :=trim(edit2.Text);
dm.sqlx5.Parameters.ParamByName('fs').Value :=trim(c2.Text);
dm.sqlx5.Parameters.ParamByName('yh').Value :=strtoint(edit20.Text);
dm.sqlx5.Parameters.ParamByName('bh').Value :=edit22.Text; /////////////////问题所在
dm.sqlx5.Parameters.ParamByName('je').Value :=strtoint(edit23.Text);
dm.sqlx5.ExecSQL;
在利用‘update’语句更新时遇到麻烦,代码如下文,其中这一行老出问题,dm.sqlx5.Parameters.ParamByName('bh').Value :=edit22.Text;当edit22.Text的值不为空时,运行正常。当edit22.Text的值为空时,错误提示‘非法的精确度值’不知为何?????谢=================================================================
dm.sqlx5.SQL.Clear;
dm.sqlx5.SQL.Add('update jsk ');
dm.sqlx5.SQL.Add('set bm=:hh, ren=:gg,yh=:yh,fs=:fs,je=:je,bh=:bh');
dm.sqlx5.SQL.Add('where id=:hh1 ');
dm.sqlx5.Parameters.ParamByName('hh1').Value :=trim(hh);
dm.sqlx5.Parameters.ParamByName('gg').Value :=trim(c3.Text);
dm.sqlx5.Parameters.ParamByName('hh').Value :=trim(edit2.Text);
dm.sqlx5.Parameters.ParamByName('fs').Value :=trim(c2.Text);
dm.sqlx5.Parameters.ParamByName('yh').Value :=strtoint(edit20.Text);
dm.sqlx5.Parameters.ParamByName('bh').Value :=edit22.Text; /////////////////问题所在
dm.sqlx5.Parameters.ParamByName('je').Value :=strtoint(edit23.Text);
dm.sqlx5.ExecSQL;
解决方案 »
- Socket 多次 Open,出现错误:由于系统缓冲区空间不足或队列已满,不能执行套接字上的操作(10055) on Api 'Connect&apo
- 使用Intall Shield Express3.5如何打包delphi數據庫程序
- 招聘了DELPHI程序,来看一下吧
- 求助,要设置 dbgrideh 的哪个属性,才使 dbgrideh 有checkbox 属性呢?
- 有关主从表的问题?
- 如何在程序执行时手动改变ADO数据库连接?
- 谁能解决我的winsock的问题,要多少分我可以全部给出了~,
- 紧急求救:我想控制MDI窗口的大小及出现位置。该怎么做?MDI全部通过form1继承
- 这是小第的处女作品构想,但很多问题有望大家指教,希望大家看
- 用QR制作的报表如何释放
- 指针的指针的问题 ^pchar
- 急求:焦点控件问题
那你就叫BH不出现空值咯,譬如自动编号什么的
可这样写:
dm.sqlx5.Parameters.ParamByName('bh').Value :=StrToIntDef(edit22.Text,0);
或者为什么不trim(edit22.Text)一下
是数字类型的?
dm.sqlx5.SQL.Text := ' update jsk ' +
' set bh=' + QuotedStr(edit22.Text) +
' where id=QuotedStr(trim(hh));
dm.sqlx5.SQL.ExecSQL;