Delphi7中带起止日期参数的ADOQuery关联DBGrid筛选无结果求助

• 确保参数化查询的正确绑定
  避免直接拼接日期字符串到SQL，必须用参数化方式传递，同时指定参数类型匹配数据库字段：

  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM 你的表名 WHERE 日期字段 BETWEEN :StartDate AND :EndDate');
  // 显式指定参数类型为日期时间，避免类型不匹配
  ADOQuery1.Parameters.ParamByName('StartDate').DataType := ftDateTime;
  ADOQuery1.Parameters.ParamByName('StartDate').Value := SDateEdit1.Date;
  ADOQuery1.Parameters.ParamByName('EndDate').DataType := ftDateTime;
  ADOQuery1.Parameters.ParamByName('EndDate').Value := SDateEdit2.Date;
  ADOQuery1.Open;
  

• 验证参数的实际传递值
  在执行Open前添加调试代码，确认日期控件的取值是否正确，同时把参数值拿到数据库客户端直接执行SQL，排查是Delphi端还是数据库端的问题：

  // 输出日期控件的实际值
  ShowMessage('开始日期：' + DateTimeToStr(SDateEdit1.Date) + #13#10 + '结束日期：' + DateTimeToStr(SDateEdit2.Date));
  // 复制这个日期值，到数据库客户端（比如Access查询、SSMS）执行对应的SQL，看是否有结果
  

• 处理日期类型与时间部分的兼容性
  如果数据库字段是纯日期类型（如SQL Server的DATE、MySQL的DATE），而Delphi的TDateTime默认带时间（00:00:00），若要包含结束日期的全天数据，需要给结束日期加上当天的最后一刻：

  ADOQuery1.Parameters.ParamByName('EndDate').Value := Trunc(SDateEdit2.Date) + EncodeTime(23, 59, 59, 999);
  

  如果数据库是用字符串存储日期，必须保证传递的日期格式和存储格式完全一致，比如：

  ADOQuery1.Parameters.ParamByName('StartDate').Value := FormatDateTime('yyyy-MM-dd', SDateEdit1.Date);
  

• 排查Filter属性的干扰
  检查ADOQuery是否意外启用了Filter，导致SQL返回的结果被二次过滤：

  ADOQuery1.Filter := '';
  ADOQuery1.Filtered := False;
  

• 确认日期范围逻辑正确
  检查开始日期是否小于等于结束日期，若范围搞反，BETWEEN条件会返回空结果：

  if SDateEdit1.Date > SDateEdit2.Date then
  begin
    ShowMessage('开始日期不能晚于结束日期');
    Exit;
  end;
  

内容的提问来源于stack exchange，提问作者khichaya