使用VBScript与SQL操作Access数据库：按日期筛选记录异常求助

我来帮你排查下这个问题，核心原因主要是数据类型不匹配和DateDiff的使用逻辑有偏差，另外你提到的Today报错是因为VBScript里没有这个内置函数~

问题分析 #

1. 字符串与数字的隐式转换错误
   你把my_time_period用单引号括起来当成字符串传入SQL，比如<= '365'，Access在比较日期差值（数字）和字符串时会做隐式转换，小数字可能碰巧能转换成功，但大数字（31、365）的转换逻辑会出错，导致结果异常。即使硬编码'7'，本质还是字符串，逻辑上就不对。

2. DateDiff的参数顺序与逻辑偏差
   Access的DateDiff('d', date1, date2)返回的是date2 - date1的天数差。你写的DateDiff('d',LastUpdated,now)得到的是「当前时间距离LastUpdated的天数」，如果LastUpdated是过去的日期，这个值是正数。但如果LastUpdated的时间比当前时间晚（比如测试数据），这个值会是负数，会被错误地包含在结果里，导致筛选不准确。

3. Today函数不存在
   VBScript里没有Today()函数，获取当前日期应该用Date()（仅日期部分）或者Now()（日期+时间）。

修正方案 #

推荐用DateAdd来计算起始日期，逻辑更直观，也避免DateDiff的顺序陷阱：

Dim my_time_period
' 先把参数转换成整数，避免字符串干扰
my_time_period = CInt(Request.QueryString("time_period"))
' 筛选LastUpdated在「当前日期 - N天」之后的记录
selection_list.Source = "SELECT * FROM document WHERE LastUpdated >= DateAdd('d', -" & my_time_period & ", Date())"

如果坚持用DateDiff，要去掉单引号（用数值比较），同时确认逻辑正确：

selection_list.Source = "SELECT * FROM document WHERE DateDiff('d', LastUpdated, Date()) <= " & my_time_period

额外调试建议 #

可以先把生成的SQL语句输出到页面，确认参数是否正确传入：

Response.Write(selection_list.Source)
Response.End()

比如当time_period=31时，正确的SQL应该是：

SELECT * FROM document WHERE LastUpdated >= DateAdd('d', -31, Date())

这样能快速排查参数是否正确、SQL语法是否有误。

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