adq2.Close; (adq2: TADOQuery;)
adq2.SQL.Clear; adq2.Parameters.Add;
adq2.Parameters[0].Name:='c1';
adq2.Parameters[0].Value:=combobox1.Text;
adq2.Parameters.Add;
adq2.Parameters[1].Name:='c2';
adq2.Parameters[1].Value:=strtoint(trim(edit1.Text));
adq2.SQL.Add('update cqinfo set feipin=feipin+:c2 where cpbh=:c1');
adq2.ExecSQL;
cqinfo是表,feipin是整数型的字段,
现在问题老在+:c2处出问题,错误提示:“将截断字符串或二进制数据”
我个人因为是不是在UPDATE中的set处不能用参数啊???
请朋友们帮忙?
adq2.SQL.Clear; adq2.Parameters.Add;
adq2.Parameters[0].Name:='c1';
adq2.Parameters[0].Value:=combobox1.Text;
adq2.Parameters.Add;
adq2.Parameters[1].Name:='c2';
adq2.Parameters[1].Value:=strtoint(trim(edit1.Text));
adq2.SQL.Add('update cqinfo set feipin=feipin+:c2 where cpbh=:c1');
adq2.ExecSQL;
cqinfo是表,feipin是整数型的字段,
现在问题老在+:c2处出问题,错误提示:“将截断字符串或二进制数据”
我个人因为是不是在UPDATE中的set处不能用参数啊???
请朋友们帮忙?
解决方案 »
- 怎样向clientdataset动态建立字段
- 如何判断无类型指针pointer所指内容是何种类型数据,有关format 函数的使用
- 由12/30/1899以来的天数(比如39562)﹐計算出對應的日期。謝謝
- TreeView中的子节点与父节点的问题?帮忙!
- 如何动态改变QReport做的报表的格式
- 斑竹,是不是csdn出问题了?
- 记得delphi中有一个命令可以显示一个对话框得到一个返回的字符串的,是什么?忘记了,
- help workshop 帮助文档快速制作索引的问题
- 好慘
- 很急!大家帮忙
- delphi 如何做安装程序
- delphi中怎样把A数据库中对某张表的查询的结果插入到B数据库中的某个表里呢?
adq2.SQL.Clear;
adq2.SQL.Add('update cqinfo set feipin=feipin+:c2 where cpbh=:c1');
adq2.Parameters.Add;
adq2.Parameters[0].Name:='c1';
adq2.Parameters[0].Value:=combobox1.Text;
adq2.Parameters.Add;
adq2.Parameters[1].Name:='c2';
adq2.Parameters[1].Value:=strtoint(trim(edit1.Text));
adq2.ExecSQL;
adq2.Close; (adq2: TADOQuery;)
adq2.SQL.Clear;
adq2.SQL.Add('update cqinfo set feipin=feipin+:c2 where cpbh=:c1'); adq2.Parameters[0].datatype:=ftinteger ;
adq2.Parameters[0].Value:=combobox1.Text; adq2.Parameters[1].datatype:=ftstring ;
adq2.Parameters[1].size:=500 ;
adq2.Parameters[1].Value:=strtoint(trim(edit1.Text));
adq2.ExecSQL;
adq2.SQL.Clear;
adq2.SQL.Add('update cqinfo set feipin=feipin+:c2 where cpbh=:c1');
adq2.Parameters.ParamByName('c1').Value := ComboBox1.Text;
adq2.Parameters.ParamByName('c2').Value := StrToInt(Trim(Edit1.Text));
adq2.ExecSQL;
adq2.SQL.Text := 'update cqinfo set feipin=feipin+:c2 where cpbh=:c1';
adq2.Parameters.ParamByName('c1').Value := ComboBox1.Text;
adq2.Parameters.ParamByName('c2').Value := StrToInt(Trim(Edit1.Text));
adq2.ExecSQL;如果出现“将截断字符串或二进制数据” 应该是你数据库中的字段长度不够的原因
非常感谢大家的帮助,特别是四楼的阿三,感谢你的提醒。分给你。还有就是大家都是先写SQL语句,再定义参数赋值,但是我一直都是先定义参数赋值再写SQL语句。一样能成功!
再次感谢!