Question

Delphi从开始日期(datetimepicker1)和结束日期(datetimepicker2)之间查询代码该怎么写?

用的是SQl SERver2000数据库

Answer 1

不会使用adoquery?不会连接数据库?
教你!
1.找到adoconnection1的connectionstring属性,单击旁边的小按钮,出现一个画面,单击build按钮->选择Micorsoft Jet 4.0 OLE DB Provider,单击下一步 ->连线页面中,可以单击右边的按钮,找到你的access数据库,如果有密码,添入用户名和密码,如果没有,单击测试连接 ->确定.
连接ok.
2.设置adoquery1的connect属性为adoconnection1.找到它的sql属性,如果需要程序运行时就显示查询内容,可以在此写出查询语句,如果牵涉到一些控件内容作为查询条件,这个属性可为空.
3.设置datasource1,找到dataset属性,选择adoquery1.
4.设置dbgrid1,找到datasource属性,设为datasource1.
好了,数据库连接就算是完成了.

写代码:
双击button,添加如下代码就可以完成你要的结果:
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(format('select * from XSMX where [字段] between #%s# ',[DateToStr(datetimepicker1.Date)]));
adoquery1.SQL.Add(format('and #%s#',[DateToStr(datetimepicker2.Date)]));
adoquery1.Open;

Answer 2

语句和sql语句是一样的,在delphi里只要把语句放到数据库控件中执行就行了,比如放到adodataset里:adodataset.commandtext='select * from tablename where fdate>='''+datetimepicker1.text+''' and fdate<='''+datetimepicker2.text+''''
当然还有其他写法,看你自己喜欢吧

Answer 3

使用between
select * from 表名 where 字段名 between ''日期1'' and ''日期2''

Answer 4

var
s1,s2,sSQL: string;
begin
s1 := DateTimeToStr(Trunc(datetimepicker1.Date)) + '00:00:00';
s2 := DateTimeToStr(Trunc(datetimepicker1.Date)) + '23:59:59';
sSQL := 'select * from table_a where date1 >= '''+s1+''' and date2 <= '''+s2+'''';
end;