Delphi 12.3中SQLite SELECT带日期范围查询无结果的问题求助

你好呀，这个问题我之前帮朋友排查过类似的，大概率是日期格式不兼容搞的鬼，咱们一步步来理清楚：

首先你已经确认了表、索引本身都没问题，单独查全表能出结果，那问题肯定出在日期范围的处理上。你用DateToStr()来转换TDateTime到字符串，但这个函数的输出格式是跟着系统区域设置走的——比如你的系统如果是中文环境，可能会输出07/01/2025（月/日/年）或者2025/07/01（年/月/日），但SQLite对DATE类型的解析是有严格要求的，它默认只认YYYY-MM-DD这种ISO标准格式，要是你传进去的格式不对，数据库根本没法把它和字段里的DATE类型做正确的范围比较，自然就查不到结果了。

那怎么解决呢？给你两个靠谱的方案：

方案一：强制生成ISO标准日期格式 #

不用DateToStr()，改用FormatDateTime()手动指定输出格式为yyyy-mm-dd，这样不管系统区域是什么，输出的日期字符串都是SQLite能正确识别的格式。修改后的代码大概是这样：

sqltxt:='SELECT * FROM ExpGenItem INDEXED BY idx_pdate WHERE ';
sqltxt:=sqltxt+'ExpDate BETWEEN '+etStrQuote(FormatDateTime('yyyy-mm-dd', RepStartDate))+' ';
sqltxt:=sqltxt+'AND '+etStrQuote(FormatDateTime('yyyy-mm-dd', RepEndDate))+';';

方案二：用参数化查询（更推荐） #

直接拼接字符串不仅容易踩格式的坑，还存在SQL注入的风险（虽然你这个场景可能没什么安全问题，但养成好习惯总是好的）。参数化查询会让数据库驱动自动处理类型转换，完全不用你操心格式的问题，代码改完是这样：

// 清空原有SQL，重新设置
dmData1.ExpItemQuery.SQL.Clear;
dmData1.ExpItemQuery.SQL.Add('SELECT * FROM ExpGenItem INDEXED BY idx_pdate WHERE ExpDate BETWEEN :StartDate AND :EndDate;');

// 绑定参数，直接传TDateTime类型就行
dmData1.ExpItemQuery.ParamByName('StartDate').AsDateTime := RepStartDate;
dmData1.ExpItemQuery.ParamByName('EndDate').AsDateTime := RepEndDate;

dmData1.ExpItemQuery.Open;

你可以先试试方案一，要是能解决问题，那就是格式的锅；要是想一劳永逸，直接用方案二更稳妥，以后换数据库或者系统区域变化都不会再踩这个坑啦。

内容来源于stack exchange