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了 不知道为什么?
解决方案 »
- 软件中用户权限的判断问题
- 每份编程工作半年之后 就开始厌烦工作 怎么办?
- 谁能告诉我这个语句是什么意思
- 求助:TWebBrowser动态修改网页内容不规律报错
- 怎样在DBEdit里格式化小数位数
- TWebBrowser分析表格的问题,高分求教?
- 问DBGrid的问题...应该不是很难
- caption如何自动换行!
- 散分了,各位大虾们,辛苦了!先祝你们春节愉快,另问个小问题:sqlserver写的存储过程如何用delphi启用?
- 急急急!谁知道oicq的setup是什么做的?哪里有下载?
- 请教一个问题:关于一套程序同时支持SQL 2005 &orcale
- 在线等 :intraweb的刷新到一个放置了控件较多的页面时有时候快,有时慢到整死,而且就来几次就这样,大虾是否遇到同样问题,如何解决的
没有sql,他怎么找这两个参数啊?
open 后没有必要再active了。
: 与begintime 之间没有空格。