Access DAO Passthrough查询自动追加SQL分号问题咨询

Access创建保存型查询对象时会默认标准化SQL格式、自动在末尾追加分号，该行为没有直接的关闭开关，可通过以下两种方案规避：

• 方案1：改用匿名临时QueryDef，从根源避免自动格式化
  你当前的代码创建了名为temp的保存型查询，触发了Access的SQL自动标准化逻辑。改为使用无名称的临时QueryDef即可避开该问题，临时QueryDef不会被Access保存，也就不会自动补充分号，同时也无需手动删除临时查询，简化逻辑。
  优化后的代码如下：

Sub RunSQL(strSQL As String, DSN As String)
    Dim db As DAO.Database
    Dim qd As DAO.QueryDef
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    ' 创建匿名临时查询，不会触发Access的SQL自动格式化
    Set qd = db.CreateQueryDef("")
    qd.Connect = "ODBC;DSN=" & DSN
    qd.SQL = strSQL
    qd.ODBCTimeout = 999
    qd.ReturnsRecords = True
    
    On Error GoTo Handler
    Set rs = qd.OpenRecordset
    ' 修正原代码变量名不一致的问题：原变量定义为rs，调用时误写为rst
    Debug.Print rs!IALITM
    
    ' 释放资源
    rs.Close
    Set rs = Nothing
    Set qd = Nothing
    Set db = Nothing
    Exit Sub
Handler:
    Dim dbeError As Error
    For Each dbeError In DBEngine.Errors
        Debug.Print "(" & dbeError.Number & "): " & dbeError.Description
    Next
    ' 异常场景也释放资源
    If Not rs Is Nothing Then
        If rs.State = dbOpen Then rs.Close
        Set rs = Nothing
    End If
    Set qd = Nothing
    Set db = Nothing
End Sub

• 方案2：注释屏蔽自动追加的分号
  如果业务逻辑需要保留保存型查询的设计，可以在SQL语句末尾拼接单行注释符，Access自动追加的分号会被判定为注释内容，不会被ODBC数据源解析：

' 仅需修改SQL赋值行即可
qd.SQL = strSQL & " --"

Access自动补全后的SQL会变为你的原始SQL --;，末尾的分号被注释符标记，不会影响ODBC执行。

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