with query1 do
begin
close;
sql.Clear;
sql.Add('update userinfo set 商家名称=(:a),充值通ID=(:c),合同编号=(:d),地区=(:e),联系人=(:f) where 银行帐号=(:b)');
parambyname('a').AsString:=trim(dbedit2.text);
parambyname('b').AsString:=trim(dbedit1.text);
parambyname('c').AsString:=trim(dbedit3.text);
parambyname('d').AsString:=trim(dbedit5.text);
parambyname('e').AsString:=trim(dbcombobox1.text);
parambyname('f').AsString:=trim(dbedit4.text);
execsql;
messagedlg('修改成功!',mtinformation,[mbok],0);
end;
end;
begin
close;
sql.Clear;
sql.Add('update userinfo set 商家名称=(:a),充值通ID=(:c),合同编号=(:d),地区=(:e),联系人=(:f) where 银行帐号=(:b)');
parambyname('a').AsString:=trim(dbedit2.text);
parambyname('b').AsString:=trim(dbedit1.text);
parambyname('c').AsString:=trim(dbedit3.text);
parambyname('d').AsString:=trim(dbedit5.text);
parambyname('e').AsString:=trim(dbcombobox1.text);
parambyname('f').AsString:=trim(dbedit4.text);
execsql;
messagedlg('修改成功!',mtinformation,[mbok],0);
end;
end;
解决方案 »
- Delphi could not creat output file‘unit1.dcu’怎么回事?
- 关于delphi中的打印问题?
- 如何能够每隔十秒种,让dbgrid中的数据自动刷新一下?
- 如何在DBGRID里加入CHECKBOX。
- 如何动态的实现取数据库的记录添加到memo中显示?
- 为什么在异常处理时,不要create()呢?
- 请教证件或票据套打问题!急急急
- 貌似Delphi不能在Win8上开发了
- 如何使用中文(unicode格式): Access 2000, D6, ADO, Win98SE.
- table的filter属性怎样实现多个过滤条件(用代码实现)
- 缺少三方控件问题
- 帮忙看这段代码,关于delphi控制word打印的!
2、另外参数在书写时为什么要加 ()
3、最后,如果还不行请用Sql Server的“事件探查器”查看具体送往后端执行的Sql脚本,将脚本拷贝出来,运行一下,以便于查找具体的问题。
sql.Add('update userinfo set 商家名称=('':a''),充值通ID=('':c''),合同编号=('':d''),地区=('':e''),联系人=('':f'') where 银行帐号=('':b'')');
上面这种是错误的,参数怎么会要引号呢,又不是字符串。你试试看这样呢,不是string是value呢
Parameters.ParamByName('a').Value:=trim(dbedit2.text);
Parameters.ParamByName('b').Value:=trim(dbedit1.text);
Parameters.ParamByName('c').Value:=trim(dbedit3.text);
Parameters.ParamByName('d').Value:=trim(dbedit5.text);
Parameters.parambyname('f').Value:=trim(dbedit4.text);
execsql;
sql.Add('update userinfo set 商家名称=:a,充值通ID=:c,合同编号=:d,地区=:e,联系人=:f where 银行帐号=:b');
Prepare;