Delphi中Access文本类型DATE字段使用Between语句查询的解决方案

首先得指出你代码里的几个关键问题，这些是导致你得不到预期结果的核心原因：

• DATE是Access的保留字，直接作为字段名使用会引发语法冲突，必须用方括号[DATE]包裹；
• Access SQL中日期常量需要用#符号包裹，而不是直接拼接字符串；
• 你没有把Text类型的[DATE]字段转换为日期类型，直接比较字符串很容易因为格式不统一（比如字段里的日期是dd/mm/yyyy而你拼的是yyyy/mm/dd）导致结果错误。

下面给你几种可靠的解决方案，按推荐程度排序：

方案1：参数化查询（最安全、最可靠） #

参数化查询不仅能避免SQL注入风险，还能让ADO自动处理日期类型的转换，完全不用手动格式化字符串，是最优选择：

ADOQuery1.SQL.Text := 'SELECT * FROM tst WHERE 1=1 AND CDate([DATE]) Between :StartDate And :EndDate';
// 绑定参数值
ADOQuery1.Parameters.ParamByName('StartDate').Value := Date1.Date;
ADOQuery1.Parameters.ParamByName('EndDate').Value := Date2.Date;
ADOQuery1.Open;

这里用CDate([DATE])把Text字段转成日期类型，确保比较是基于日期逻辑而非字符串字典序。如果字段里存在非法日期格式的文本，可以加个IsDate过滤：

ADOQuery1.SQL.Text := 'SELECT * FROM tst WHERE 1=1 AND IsDate([DATE]) = True AND CDate([DATE]) Between :StartDate And :EndDate';

方案2：手动转换字段并拼接日期常量 #

如果你不想用参数化，需要手动把日期格式化为Access识别的格式，并用#包裹，同时转换Text字段为日期类型：

ADOQuery1.SQL.Text := 'Select * From tst Where 1=1';
// 注意[DATE]的方括号，以及日期前后的#
ADOQuery1.SQL.Add(' And CDate([DATE]) Between #' + Date1.Date.Format('yyyy/mm/dd') + '# And #' + Date2.Date.Format('yyyy/mm/dd') + '#');
ADOQuery1.Open;

这个方案要确保[DATE]字段里的所有文本都是合法的日期格式，否则CDate会抛出错误。

方案3：仅当字段格式严格统一时用字符串比较 #

如果你的[DATE]字段存储的文本绝对都是yyyy/mm/dd格式（包括前导零，比如2024/05/01而不是2024/5/1），可以直接用字符串比较，因为这种格式的字典序和日期顺序一致：

ADOQuery1.SQL.Text := 'Select * From tst Where 1=1';
ADOQuery1.SQL.Add(' And [DATE] Between ''' + Date1.Date.Format('yyyy/mm/dd') + ''' And ''' + Date2.Date.Format('yyyy/mm/dd') + '''');
ADOQuery1.Open;

但这个方案风险很高，一旦字段里的日期格式出现不一致，查询结果就会完全错误，所以仅在你能100%保证格式统一的情况下使用。

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