maincd是某个字符串
T_mainnum是数据表q2.Close;
q2.SQL.Text :='select * from T_mainnum where cardnum= '+ maincd+'';
q2.Prepared;
q2.Open;
if q2.RecordCount=0 then
begin
...
end;
报错!求救!sos!
T_mainnum是数据表q2.Close;
q2.SQL.Text :='select * from T_mainnum where cardnum= '+ maincd+'';
q2.Prepared;
q2.Open;
if q2.RecordCount=0 then
begin
...
end;
报错!求救!sos!
解决方案 »
- exe生成exe问题 例如:动态贺卡EXE生成器
- 怎样对指定的一个文件夹进行遍历?遍历的对象包括子目录和文件,并将筛选出的文件地址存放进 Listbox 或者 Tstringlist 对象实例里
- 请问这个错误:(EOleException)超时已过期 是什么意思?
- 如何动态添加treeview控件的节点
- 菜鸟请教!
- 小妹求助
- 一个SQL的问题!高分求解。在线等待。
- 关于F1book6打印预览的问题的讨论,MAIL和网速快的同志为大家出一次手吧!up有分
- 请问如何让button处于被按下状态,或者是选中状态
- 有关VC和Delphi的比喻。。。
- 程序打包中关于数据库的解决方法
- HotKeyManager 在 Delphi 2007 下使用遇到问题!
还有一个
q1.Close;
q1.SQL.Text := 'insert into '+maincd+' ([CARDNUM],[username],[datetime],[TYPE],[STATE],[REMARK],[APPNUM],[EDITNUM]) values (:lcardnum,:lusername,:ldatetime,:ltype,:lstate,:lre,:lappnum,:leditnum)';
q1.Parameters.ParamByName('lcardnum').Value :=cardnum;
q1.Parameters.ParamByName('lusername').Value :=username;
q1.Parameters.ParamByName('ldatetime').Value :=formatdatetime('yyyymmdd hh:nn:ss',now());
q1.Parameters.ParamByName('ltype').Value := stype;
q1.Parameters.ParamByName('lstate').Value := 1;
q1.Parameters.ParamByName('lre').Value :=re;
q1.Parameters.ParamByName('lappnum').Value := appnum;
q1.Parameters.ParamByName('leditnum').Value := editnum;
q1.Prepared;
q1.ExecSQL;
总是报错:无效参数啥的,郁闷啊!
这个错误也就是每个具体的参数,如::lcardnum等
添加到QRY的Parmaters属性当中,并设置它们的属性和默认值在试一下
q1.Parameters.ParamByName('ldatetime').Value :=formatdatetime('yyyymmdd hh:nn:ss',now());
//这句话有问题~
Delphi把hh:nn:ss中的冒号当参数了