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!
解决方案 »
- webbrowser打开超连接
- delphi 高手帮忙!我该怎么写这段代码。我真的需要帮助,郁闷好多天了
- 使用了个XP控件,(XP.Style.v2.6.0.1),在点击xpcombobox的时候出现错误:
- fastreport中用Totalpages 返回已完成报表的总页数时要求必须扫描两遍报表,扫描两遍报表是什么意思?怎么实现?
- 为什么总出错???????????
- 请给我一个Grid控件吧!救命啊!!
- QReport 可以合并相同记录格吗,能不能自动换行?
- 怎样用TAPI实现来电显示(delphi环境)?
- DELPHI跨平台开发!
- 菜鸟问题4
- 程序打包中关于数据库的解决方法
- 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中的冒号当参数了