Delphi时间查询问题

答案:2 悬赏:80 手机版

解决时间 2021-05-06 08:36

提问者网友：自食苦果
2021-05-05 14:54

我数据库表table1中有个日期类型的字段Date, 窗体中有个comboBox1，还有一个Button1.我想要的效果是：在comboBox1输入数字，如5，再点击Button，则在dbgird中显示出表table1中Date小于当前今天日期或将在5天内就可以达到当前日期的表table1中的所有信息。举个例子吧，表中Date字段有3条数据2009-10-1，2009-11-10，2009-11-31；当前日期为2009-11-5，在comboBox1输入10，点击Button则查询出的结果为：表中Date字段值为2009-10-1，2009-11-10的记录。
请各位大侠写出代码。效果好的话再加30分！

最佳答案

五星知识达人网友：傲气稳了全场
2021-05-05 16:34

在SQL查询语句加上条件选择,使用DateDiff判断时间

大致是

interval := 'd'; //时间比较以天为单位

with AdoQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('SELECt * FROM <表名> WHERe DateDiff('''+interval+''',Now(),Date)<0 OR DateDiff('''+interval+''',Now(),Date)<=' + ComboBox1.Text); //DateDiff返回值小于0,表示小于今天日期

Open;

end;

全部回答

1楼网友：西风乍起
2021-05-05 16:43

对查询语句设置Where条件便可。

Where Date < GetDate() Or Date - GetDate() <= Combobox1.text

大体就是这样。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息