procedure TForm1.Button1Click(Sender: TObject);
var
t1,t2: string;
begin
t1:=DateTimePicker1.Date;
t2:=DateTimePicker2.Date;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from abc where date between '+t1+' and '+t2);
open;
end;
end;
双击没有反映,请问会是怎么回事?
后来改成下面样子也是一样的:
procedure TForm1.Button1Click(Sender: TObject);begin with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from abc where date>:a');
Parameters.ParamByName('a').value := DateTimePicker1.Date;
open;
end;
end;
var
t1,t2: string;
begin
t1:=DateTimePicker1.Date;
t2:=DateTimePicker2.Date;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from abc where date between '+t1+' and '+t2);
open;
end;
end;
双击没有反映,请问会是怎么回事?
后来改成下面样子也是一样的:
procedure TForm1.Button1Click(Sender: TObject);begin with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from abc where date>:a');
Parameters.ParamByName('a').value := DateTimePicker1.Date;
open;
end;
end;
解决方案 »
- Quickreport不用数据字段,如何实现多页打印?
- SQLServer2005安装了SP2和SP3之后,查询一下子变得特别慢
- 如何在新弹出窗口中显示原窗口中的数据?
- 开发了一个小软件,关于介面的问题? 请进指导
- 在线等待,急求flash播放器的源代码
- 求助~~~~~~~~~~~~~~~ QuickReport的用法,谢谢大家
- 大家帮我看看这几本delphi的书哪本比较好?
- 如何设置我的应用程序所能打开的文件的图标?
- DELPHI编程问题:用ADO支持下的ACCESS数据库如何在网络中使用?难道只能进行共享吗?最多有多少个用户同时打开它?
- 为什么这个Form第一次能正常显示,以后却不行了?
- 用delphi开发web services 时,如何返回数据集?
- 显示声音控制属性窗口?
var
t1,t2: string;
begin
t1:=DateTimePicker1.Date;
t2:=DateTimePicker2.Date;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from abc where date between #'+t1+'# and #'+t2+'#'); //查詢日期型字段是要加#號的.
open;
end;
end;
还有t1:=DateTimePicker1.Date忘记加datetostr了