以下代码,在部分电脑里会提示“标准表达式中数据类型不匹配。”但不明白原因,其中id、cid 是数字,posttime是日期,其他是备注。保证都有数据。Parameters.ParamByName(xx).Value 是 Variant类型,怎么会不匹配?
with rs do
begin
close; Parameters.Clear;
ParamCheck:=true;
sql.Clear;
sql.append('insert into list(id,cid,list,title,link,chkflag,actionflag,posttime,postflag,errflag) values(:id,:cid,:list,:title,:link,false,false,:posttime,false,false)');
Parameters.ParamByName('id').Value:=id;
Parameters.ParamByName('cid').Value:=cid;
parameters.ParamByName('list').Value:=list;
parameters.ParamByName('title').Value:=tmptitle;
parameters.ParamByName('link').Value:=tmplink;
parameters.ParamByName('posttime').Value:=now; Prepared:=true;
try
ExecSQL; except On E:Exception DO
begin
showmessage(E.Message);
break;
end;
end;
end;
with rs do
begin
close; Parameters.Clear;
ParamCheck:=true;
sql.Clear;
sql.append('insert into list(id,cid,list,title,link,chkflag,actionflag,posttime,postflag,errflag) values(:id,:cid,:list,:title,:link,false,false,:posttime,false,false)');
Parameters.ParamByName('id').Value:=id;
Parameters.ParamByName('cid').Value:=cid;
parameters.ParamByName('list').Value:=list;
parameters.ParamByName('title').Value:=tmptitle;
parameters.ParamByName('link').Value:=tmplink;
parameters.ParamByName('posttime').Value:=now; Prepared:=true;
try
ExecSQL; except On E:Exception DO
begin
showmessage(E.Message);
break;
end;
end;
end;
解决方案 »
- 我如何知道窗口的最大化, 最小化消息?
- 如何设置dbnavigator中post按钮和insert按钮的快捷键啊?
- ADOQuery的updateBatch问题
- 使用dbexpress更新数据,用ApplyUpdates方法总出现comands out sync;you can run this command now!错,怎么解决?帮UP
- ClientDataSet提交数据的时候出现"Record not found or changed by another user"错误!
- 大侠救命!急需一程序解析器,回者必酬!!
- 接:遇到一个问题: 象$D7、$08是不是代表十六进制? 如何计算一个表达式? 高分求教
- 请问哪里有可以同时输入日期和时间的时间控件?急!!!!100分
- 当form1调用form2时,如何能保证焦点只在form2中(除非form2关闭),即form2只能在最前
- 如何在本地机上完成通信程序的测试?
- delphi中弹出窗体
- DELPHI C/2 2层架构的产品 能使用应用服务器和数据服务器吗?
没必要用本地时间。