AdoQuery动态参数设定的问题,当USerNo,MeetNo为string类型,而Jhtype,Rctype为整形
如下代码:
USerNo:=edit1.text;
MeetNo:=edit2.text;
Jhtype:=StrToInt(edit3.text);
Rctype:=StrToInt(edit4.text);
with sql do
begin
Clear;
Add('Insert into Meet(USeNo,MeetNo,Jhtype,Rctype)');
Add('values(:USeNo,:MeetNo,:Jhtype,:Rctype)');
Parameters.ParamByName('Useno').Value:=UserNo;
Parameters.ParamByName('Jhtype').Value:=Jhtype;
Parameters.ParamByName('MeetNo').Value:=MeetNo;
Parameters.ParamByName('Rctype').Value:=Rctype;
ExecSql;
end;
为何执行出错,是类型的问题吗?
如下代码:
USerNo:=edit1.text;
MeetNo:=edit2.text;
Jhtype:=StrToInt(edit3.text);
Rctype:=StrToInt(edit4.text);
with sql do
begin
Clear;
Add('Insert into Meet(USeNo,MeetNo,Jhtype,Rctype)');
Add('values(:USeNo,:MeetNo,:Jhtype,:Rctype)');
Parameters.ParamByName('Useno').Value:=UserNo;
Parameters.ParamByName('Jhtype').Value:=Jhtype;
Parameters.ParamByName('MeetNo').Value:=MeetNo;
Parameters.ParamByName('Rctype').Value:=Rctype;
ExecSql;
end;
为何执行出错,是类型的问题吗?
解决方案 »
- ComBoBox中addObject函数的内存释放问题???
- 想在家访问公司内部局域网内sql数据库
- Treeview根据数据库建树的问题
- 本人有一套软件有关于退休人员管理软件,请问可以卖多少钱?
- 怎样激活一个MDI窗体?
- 如何在自定义组件中创建columns属性?(在线)
- 请各位指点Delphi中的字符串处理函数?在线等候
- 如何将big5转换gb码
- 如何用ActiveXForm导出Label控件的OnMouseMove事件?
- 如何使用鼠标右键?
- 其他单元怎样调用本单元定义的过程?在线等候
- 当我TADOQuery控件去链接台数据表中的char字段,在界面上用TDBGrid控件去修改数据时,好象有问题。
Parameters.ParamByName('Useno').asstring:=UserNo;
Parameters.ParamByName('Jhtype').asinteger:=Jhtype;
Parameters.ParamByName('MeetNo').asstring:=MeetNo;
Parameters.ParamByName('Rctype').asinteger:=Rctype;
Add('Insert into Meet(USeNo,MeetNo,Jhtype,Rctype) ');
Add('values(:USeNo,:MeetNo,:Jhtype,:Rctype) ');
因为你连接两个SQL。ADD
但是他们之间没有空格 这样就等于有语法问题 你把上面的语句的后面加上空格
或者后面的语句的前面加上空格 应该没有问题
试试