【结贴】[请求] 查询出错**

trickle

根据日期查询，代码如下：
procedure TMainForm.Button1Click(Sender: TObject);
var
  lFilter:String;
begin
//查询事件
  if DataSetBroker1.DataSet.Active then
  begin
    lFilter := sysutils.DateToStr(DateTimePicker1.Date);
    if lFilter <> '' then lFilter := 'RQ = '''+lFilter+'''';
    TSqlDataSet(DataSetBroker1.DataSet).UserFilter :=lFilter;
  end;
end;

查询结果时对时错，如图：
全部数据

trickle

查询结果不完整

trickle

查不出来

gaihl

参考
http://bbs.justep.com/forum.php?mod=viewthread&tid=15729

jiahaiming

估计是数据库里存的日期数据带了时间。

可以用>= 和<的方法来比较日期，不要用=

trickle

数据库中存储的是“日期时间”，现在根据输入的时间查询。是否要对数据库中的值进行操作呢？

gaihl

类似这样的查询就可以了：RQ >= '2008-06-16 00:00:00' and RQ <= '2008-06-16 23:59:59'

trickle

改成7楼的别的都可以了，可是当天的却查不出来

gaihl

代码是如何写的

trickle

procedure TMainForm.Button1Click(Sender: TObject);
var
  lFilter:string;
begin
//查询事件
  if DataSetBroker1.DataSet.Active then
  begin
    lFilter := Business.system.sysutils.FormatDatetime('YYYY-MM-DD',DateTimePicker1.Date);
    if lFilter <> '' then lFilter :='(RQ >= ''' + lFilter+' 00:00:00'
    +'''' +') and (RQ <= ''' +lFilter+' 23:59:59' +'''' + ')';
    TSqlDataSet(DataSetBroker1.DataSet).UserFilter :=lFilter;
  end;
end;