MS Access VBA中使用dd/mm/yyyy格式编写SQL查询时出现语法错误

核心问题 #

1. 日期识别歧义：系统默认按mm/dd/yyyy解析日期，导致7/12/2024被识别为2024年7月12日，与表中存储的12月7日不匹配，查询无结果。
2. SQL拼接错误：原代码将VB的Format函数直接嵌入SQL字符串，Access SQL无法识别该写法；同时日期变量直接拼接时会被系统区域设置自动转换格式，引发语法错误。

错误代码问题拆解 #

原代码：

sqlF = "select * from fixtures where fixture_dt_short = #" & "Format(" & vFixtureDate & ", " & Chr(34) & "dd/mm/yyyy" & Chr(34) & ")#"

• vFixtureDate是Date类型，拼接时会被转换成系统默认格式的字符串（如12/7/2024），导致SQL中出现Format(12/7/2024, "dd/mm/yyyy")，这里的12/7/2024会被SQL当成除法运算，而非日期。
• 字符串拼接时的引号和#符号嵌套混乱，导致最终SQL语法不完整，出现末尾缺少闭合#的情况。

解决方案 #

方案1：在VB中格式化日期后拼接SQL #

先在VB层将日期转换为Access能正确识别的格式，再拼入SQL：

' 方法1：转换为dd/mm/yyyy格式
Dim formattedDate As String
formattedDate = Format(vFixtureDate, "dd/mm/yyyy")
sqlF = "SELECT * FROM fixtures WHERE fixture_dt_short = #" & formattedDate & "#"

' 更稳妥的方法2：使用ISO标准格式yyyy-mm-dd（Access对该格式无识别歧义）
formattedDate = Format(vFixtureDate, "yyyy-mm-dd")
sqlF = "SELECT * FROM fixtures WHERE fixture_dt_short = #" & formattedDate & "#"

方案2：参数查询（推荐） #

参数查询彻底避免字符串拼接的格式问题和SQL注入风险，是更安全可靠的写法：

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qdf As DAO.QueryDef

Set db = CurrentDb()
' 创建临时参数查询
Set qdf = db.CreateQueryDef("", "SELECT * FROM fixtures WHERE fixture_dt_short = [ParamDate]")
' 绑定参数值
qdf.Parameters("[ParamDate]") = vFixtureDate
' 执行查询获取记录集
Set rs = qdf.OpenRecordset()

' 后续处理记录集（示例）
If Not rs.EOF Then
    ' 读取数据逻辑
End If

' 释放资源
rs.Close
qdf.Close
Set rs = Nothing
Set qdf = Nothing
Set db = Nothing

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