with gpio_sql do
begin
close();
SQL.Clear;
SQL.text:='insert into gpiolog (table(:sqaddr,'+'''YSP-5'''+',:zpsl_i,:kpsl_o,getdate()),(:sqaddr,'+'''YSP-10'''+',:zpsl_i1,:kpsl_o1,getdate()),(:sqaddr,'+'''YSP-15'''+',:zpsl_i2,:kpsl_o2,getdate()),(:sqaddr,'+'''YSP-50'''+',:zpsl_i3,:kpsl_o3,getdate()))';
Parameters.ParamByName('sqaddr').value:=''''+v+'''';
Parameters.ParamByName('zpsl_i').value:=Edit1.text;
Parameters.ParamByName('kpsl_o').value:=Edit5.text;
Parameters.ParamByName('zpsl_i1').value:=Edit2.text;
Parameters.ParamByName('kpsl_o1').value:=Edit6.text;
Parameters.ParamByName('zpsl_i2').value:=Edit3.text;
Parameters.ParamByName('kpsl_o2').value:=Edit7.text;
Parameters.ParamByName('zpsl_i3').value:=Edit4.text;
Parameters.ParamByName('kpsl_o3').value:=Edit8.text;
open;
end;编译通过,运行时提示“不正常的定义参数对象,提供了不完整或者不一致的信息”
begin
close();
SQL.Clear;
SQL.text:='insert into gpiolog (table(:sqaddr,'+'''YSP-5'''+',:zpsl_i,:kpsl_o,getdate()),(:sqaddr,'+'''YSP-10'''+',:zpsl_i1,:kpsl_o1,getdate()),(:sqaddr,'+'''YSP-15'''+',:zpsl_i2,:kpsl_o2,getdate()),(:sqaddr,'+'''YSP-50'''+',:zpsl_i3,:kpsl_o3,getdate()))';
Parameters.ParamByName('sqaddr').value:=''''+v+'''';
Parameters.ParamByName('zpsl_i').value:=Edit1.text;
Parameters.ParamByName('kpsl_o').value:=Edit5.text;
Parameters.ParamByName('zpsl_i1').value:=Edit2.text;
Parameters.ParamByName('kpsl_o1').value:=Edit6.text;
Parameters.ParamByName('zpsl_i2').value:=Edit3.text;
Parameters.ParamByName('kpsl_o2').value:=Edit7.text;
Parameters.ParamByName('zpsl_i3').value:=Edit4.text;
Parameters.ParamByName('kpsl_o3').value:=Edit8.text;
open;
end;编译通过,运行时提示“不正常的定义参数对象,提供了不完整或者不一致的信息”
解决方案 »
- 请教,谁会用delphi的wwDBLookupCombo
- 图像的编辑问题,谢谢大家,急用
- 50分求一个InstallShield有效的下载地址...
- access中ole字段中word文档的读取
- 请问高手这样的树形怎么实现?
- 这个网站:http://www.softwww.com 中的一款聊天软件,要出售源代码,我准备买一套,大家认为这样的软件的源代码值多少钱
- 为什么我这样做不能显示所有的记录??快帮我看看!!
- 《Delphi面向对象编程的20条规则》第9条是什么意思??
- 请问这是什么错误?如何解决?
- dana(dana):来这拿分
- WebBrowser1.OleObject.document.links.item(i).Click 单击超此超链接,如何让打开此链接的IE为最小化或隐藏?
- 数据库中的变量问题,请高手指点迷津,谢谢您!
up...
insert命令sql一般使用ExecSql,而不是open
是不是v获得的值和左面不一致,下面的edit.text的没看出来,水平有限...
改成ExecSQL;
就可以了
SQL.text:='insert into gpiolog (table(:sqaddr,'+'''YSP-5'''+',:zpsl_i,:kpsl_o,getdate()),(:sqaddr,'+'''YSP-10'''+',:zpsl_i1,:kpsl_o1,getdate()),(:sqaddr,'+'''YSP-15'''+',:zpsl_i2,:kpsl_o2,getdate()),(:sqaddr,'+'''YSP-50'''+',:zpsl_i3,:kpsl_o3,getdate()))';
改为
SQL.text:='insert into gpiolog (values(:sqaddr,'+'''YSP-5'''+',:zpsl_i,:kpsl_o,getdate()),(:sqaddr,'+'''YSP-10'''+',:zpsl_i1,:kpsl_o1,getdate()),(:sqaddr,'+'''YSP-15'''+',:zpsl_i2,:kpsl_o2,getdate()),(:sqaddr,'+'''YSP-50'''+',:zpsl_i3,:kpsl_o3,getdate()))';
下面的open改为ExecSQL