Access子窗体执行MySQL passthrough查询后父窗体记录未更新

数据老陈

2026-8-28

问题根因

当前代码存在5个核心问题，导致父窗体无法加载预期的过滤结果：

记录源赋值逻辑错误：直接将原生MySQL SQL字符串赋值给Mainform的RecordSource属性时，Access会默认将该字符串作为本地Access SQL解析执行，不会走MySQL直通查询逻辑，通配符、转义规则完全不匹配MySQL语法，根本不会返回预期的过滤结果。
临时查询对象未生效：代码中创建的DAO直通查询qdfc配置完成后没有绑定到父窗体，创建完成就直接被释放，属于无效操作。
模糊查询语法缺失：仅将用户输入的*替换为MySQL通配符%，但拼接LIKE条件时未在关键词两侧补充%，生成的SQL为精确匹配逻辑，不符合预期的包含式模糊搜索要求。
错误被静默吞掉：错误处理块使用Resume Next直接跳过所有运行时错误，ODBC连接异常、SQL语法错误等问题完全没有提示，无法感知执行失败的具体原因。
额外隐患：使用DoCmd.SetWarnings False全局关闭系统提示，会放大排查难度，且赋值记录源后未主动触发窗体刷新，部分场景下会出现数据不更新的情况。

修正方案

替换button_search_description按钮的点击事件代码为以下版本，核心调整为：直接将临时直通查询返回的记录集绑定到父窗体、补全模糊查询通配符、移除静默吞错逻辑、主动触发父窗体刷新。

Private Sub button_search_description_Click()
    On Error GoTo ErrHandler
    Dim qdfc As DAO.QueryDef
    Dim qryPT As String
    Dim ODBC_STRING As String
    Dim kwd As String

    ' 处理用户输入关键词
    kwd = Nz(Me.keywordDescr, "")
    kwd = Replace(kwd, "*", "%") ' 适配用户习惯的Access通配符
    kwd = Replace(kwd, "'", "\'") ' 转义MySQL单引号避免语法错误
    kwd = "%" & kwd & "%" ' 补全模糊查询两侧通配符

    ODBC_STRING = "ODBC;DSN=MY_DSN_NAME"
    qryPT = "SELECT * FROM table_on_mysql_db WHERE description LIKE '" & kwd & "'"

    ' 配置临时直通查询
    Set qdfc = DBEngine(0)(0).CreateQueryDef("")
    With qdfc
        .Connect = ODBC_STRING
        .SQL = qryPT
        .ReturnsRecords = True
    End With

    ' 直接将直通查询返回的记录集绑定到父窗体，避免Access本地解析SQL
    Set Me.Parent.Recordset = qdfc.OpenRecordset(dbOpenSnapshot)
    ' 主动刷新父窗体展示最新结果
    Me.Parent.Requery

    ' 释放资源
    qdfc.Close
    Set qdfc = Nothing

ExitSub:
    Exit Sub
ErrHandler:
    ' 明确抛出错误提示，方便排查问题
    MsgBox "搜索执行失败：" & Err.Description, vbCritical
    Resume ExitSub
End Sub

可选优化点

若搜索操作频繁，可提前创建一个固定的直通查询对象（例如命名为qry_pt_search），每次搜索仅修改该查询的SQL属性，再将父窗体记录源指向该固定查询，减少临时对象创建开销，性能更稳定。
补充反斜杠转义逻辑：在关键词处理部分增加kwd = Replace(kwd, "\", "\\")，避免用户输入反斜杠触发MySQL语法错误。
因为原窗体记录集为只读状态，上述代码中打开记录集使用dbOpenSnapshot快照类型，比动态集拉取速度更快；如果后续需要编辑数据，可替换为dbOpenDynaset, dbSeeChanges参数。
移除所有业务代码中的DoCmd.SetWarnings False逻辑，该配置会全局关闭Access的系统提示，极易导致无感知的操作失败。

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