delphi中使用sql 语句进行日期比较有问题

Posted 2023-05-16

首先是继承了一个窗体模板
然后是做了两个datetimepicker打算走SQL做查询
代码如下

procedure TF_cwtj1.Button3Click(Sender: TObject);
begin
inherited;
with F_database.ADOQuery_cwtj1 do
begin
close;
SQL.Clear;
Parameters.ParamByName('a').Value:=formatdatetime('yyyy-mm-dd',F_cwtj1.DateTimePicker1.Date);
parameters.ParamByName('b').Value:=formatdatetime('yyyy-mm-dd',F_cwtj1.DateTimePicker2.Date);
sql.Add('select * from danyy where t1_date bewteen and :b');
open;
end;

end;

如果不用parameters转换直接走sql.add也是数据库报错
不知SQL中的datetime如何用在delphi中的数据库查询里面
望赐教
2L，我复制的时候忘掉:a了，补全了也是不行的
1L，暂时还不行，我再试试吧，多谢两位了

参考技术A datetime类型只需要 between a and b

关键是你的sql.Add('select * from danyy where t1_date bewteen and :b');
少了一个:a.

遇到这种错误，要用个语句输出最终的sql语句，看看直接在数据库中运行有没有错，一般就能查出问题来了。 参考技术B procedure TF_cwtj1.Button3Click(Sender: TObject);
begin
inherited;
with F_database.ADOQuery_cwtj1 do
begin
close;
SQL.Clear;
sql.Add('select * from danyy where t1_date bewteen ''' +formatdatetime('yyyy-mm-dd',F_cwtj1.DateTimePicker1.Date)
+ '''' +'and '''+formatdatetime('yyyy-mm-dd',F_cwtj1.DateTimePicker2.Date+'''');
open;
end;

end;

delphi中adodataset问题

delphi 中,我在adodataset中用sql语句从数据库表中取一个日期型的字段,数据库里的日期字段值都是带时间的,我想用这个dataset取出不带时间的日期值,就取前10位,我在dataset中的sql要怎么写呢?

Select convert(char(10),getdate(),112) as date
这样显示出来的字符型的。 参考技术A 就是这个 参考技术B 的看你是用的什么数据库，如果是accses convert就不能用了