var
begintime: Tdatetime;
endtime : Tdatetime; procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
Try
ADOQuery1.Parameters.ParamByName('begintime').Value := DateTimePicker1.DateTime;
ADOQuery1.Parameters.parambyname('endtime').Value := DateTimePicker2.DateTime;
ADOQuery1.sql.Add('select * from Table1 where call =''' +Edit2.Text+''' and begin <:endtime and begin > : begintime');
except
ADOQuery1.SQL.Clear;
ADOQuery1.sql.Add('select * from Table1 where call ='''+Edit2.Text+'''');
end;
ADOQuery1.Open;
ADOQuery1.Active := True;
end;
有错误!!没有找到"begintime" 我已经定义过SQL变量begintime和endtime了 不知道为什么?
begintime: Tdatetime;
endtime : Tdatetime; procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
Try
ADOQuery1.Parameters.ParamByName('begintime').Value := DateTimePicker1.DateTime;
ADOQuery1.Parameters.parambyname('endtime').Value := DateTimePicker2.DateTime;
ADOQuery1.sql.Add('select * from Table1 where call =''' +Edit2.Text+''' and begin <:endtime and begin > : begintime');
except
ADOQuery1.SQL.Clear;
ADOQuery1.sql.Add('select * from Table1 where call ='''+Edit2.Text+'''');
end;
ADOQuery1.Open;
ADOQuery1.Active := True;
end;
有错误!!没有找到"begintime" 我已经定义过SQL变量begintime和endtime了 不知道为什么?
解决方案 »
- 有那位朋友有BusinessSkinForm v7.45 Creaked的发小弟一个
- 给我把ak 肯定把农行的那些人打死
- sql的insert中有个问题,请指教下
- 求一算法!
- 请问:TDBText连接的数据是0.125显示成12.5%怎样实现呀?
- 关于 TPageControl 与 TTabSheet !!!
- 正在开发或准备开发报表控件的朋友,请到这里来一起切磋切磋,QQ群:6030791
- 我一兄弟刚出去,在外很不爽,又上不了CSDN,特在此散分!希望大家都过得爽!!
- 各位高手,请问能不能在内存中建目录、写文件?
- 索引,排序问题,敬请您的解答!谢谢
- 请教一个问题:关于一套程序同时支持SQL 2005 &orcale
- 在线等 :intraweb的刷新到一个放置了控件较多的页面时有时候快,有时慢到整死,而且就来几次就这样,大虾是否遇到同样问题,如何解决的
没有sql,他怎么找这两个参数啊?
open 后没有必要再active了。
: 与begintime 之间没有空格。