VBA/ADODB Recordset查询结果未更新 仅单台PC出现异常

可能的故障诱因 #

• ADODB游标配置逻辑缺陷：现有代码中rs.CursorLocation = adUseClient是在关闭Recordset后设置的，不同设备的ADODB组件初始化逻辑存在差异，异常设备可能默认使用了adUseServer服务端游标，读取的是驱动内置的缓存数据而非最新的工作表内容。
• Excel ODBC驱动隐式缓存：异常设备的Excel ODBC驱动默认开启了文件读取缓存，当工作簿被Excel进程本身打开时，驱动不会实时拉取单元格的最新修改，而是返回第一次读取时的缓存结果。
• 驱动版本或位数不匹配：即便引用库版本一致，异常设备安装的Access Database Engine（Excel ODBC驱动所属组件）的位数、版本可能和Office不匹配，例如32位Office搭配了64位驱动，会出现数据读取异常。
• 同步工具缓存干扰：如果文件存储在OneDrive、SharePoint同步目录或网络共享盘内，异常设备的同步工具可能锁定了旧版本文件，ADODB实际读取的是未更新的本地缓存副本。
• 列类型识别错误：ODBC驱动默认扫描工作表前8行判定字段类型，如果异常设备上case status列前8行均为Open，后续修改的Closed如果携带不可见空格、格式不统一，驱动可能识别为无效值，返回旧的匹配结果。

修复与排查步骤 #

1. 修正游标设置逻辑，将游标位置配置移到Recordset打开前：

Public Sub closeRS()
    If rs.state = adStateOpen Then rs.Close
End Sub

' 调用查询的部分修改为：
closeRS
OpenDB
rs.CursorLocation = adUseClient
rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic

2. 给连接字符串添加显式参数禁用缓存，同时简化路径拼接逻辑：

Public Sub OpenDB()
    If cnn.state = adStateOpen Then cnn.Close
    cnn.ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & _
    ActiveWorkbook.FullName & ";ReadOnly=0;IMEX=0;"
    cnn.Open
End Sub

3. 核实异常设备的Office位数与ODBC驱动位数一致，版本和正常设备对齐，不一致则重装对应版本的Access Database Engine组件即可。
4. 将测试文件复制到异常设备的本地磁盘根目录（避开同步目录、网络共享盘）测试，排除同步工具缓存干扰。
5. 在异常设备上选中case status整列，统一设置单元格格式为「文本」，清除单元格内多余的不可见字符后重试。

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