DB2-VBA脚本在If RS.BOF And RS.EOF Then处崩溃的排查求助

听起来这个问题挺棘手的——之前稳定运行的脚本突然在特定用户那里崩溃，而且还是在看似简单的BOF/EOF判断上。结合你提到的驱动猜测，我从连接字符串、Recordset配置、环境差异这几个方向给你一些具体的调整和排查思路：

一、连接字符串的潜在优化点 #

你的现有连接字符串基础没问题，但可以针对iSeries ODBC驱动的特性做一些兼容调整，试试这些修改：

• 明确驱动版本：如果两位操作员的驱动版本不一致，可以指定更具体的驱动名称，比如32位驱动用{IBM iSeries Access ODBC Driver (32-bit)}，64位用{IBM iSeries Access ODBC Driver 64-bit}，避免系统自动匹配出错。
• 调整库参数：把Library = ourschema换成DefaultLibraries=ourschema——有些驱动版本对Library参数的支持不如DefaultLibraries稳定，而且后者可以指定多个库（用逗号分隔），更符合iSeries的库结构习惯。
• 添加事务相关参数：加上CommitMode=0（即无自动提交），避免因为事务设置差异导致Recordset打开后状态异常：

  conStr = "Driver={ISeries Access ODBC Driver};System=oursys;Uid=kUid;Pwd=kPass;DefaultLibraries=ourschema;CommitMode=0"
  

• 禁用游标库：如果游标是问题根源，可以加上CursorLibrary=0强制使用驱动原生游标，而不是ODBC游标库：

  conStr = "Driver={ISeries Access ODBC Driver};System=oursys;Uid=kUid;Pwd=kPass;DefaultLibraries=ourschema;CursorLibrary=0"
  

二、Recordset打开参数的调整 #

你当前用的adOpenStatic和adLockOptimistic在某些驱动环境下可能会触发兼容性问题，试试这些替代方案：

• 改用只读游标：如果你的脚本只是查询数据（不需要修改），把锁类型换成adLockReadOnly，同时游标类型换成adOpenForwardOnly，这是最轻量的组合，兼容性最好：

  RS.Open SQL_str, cnDB, adOpenForwardOnly, adLockReadOnly
  

• 省略参数用默认值：有时候显式指定的参数反而会和驱动默认行为冲突，试试只传SQL和连接对象：

  RS.Open SQL_str, cnDB
  

• 提前检查Recordset状态：在判断BOF/EOF之前，先确认Recordset是否正常打开，避免空对象崩溃：

  RS.Open SQL_str, cnDB, adOpenStatic, adLockOptimistic
  ' 先检查Recordset是否有效
  If RS Is Nothing Or Not RS.State = adStateOpen Then
      Debug.Print "Recordset未正常打开"
      Exit Sub
  End If
  If RS.BOF And RS.EOF Then
      ' 你的逻辑
  End If
  

三、环境差异的排查重点 #

既然脚本对第一位操作员正常，问题大概率出在第二位操作员的环境上，重点检查这些：

• 驱动位数匹配：确认两位操作员的Excel是32位还是64位，对应的iSeries ODBC驱动必须和Excel位数一致。比如64位Excel不能用32位驱动，否则会出现隐性的连接/游标异常。
• 驱动版本一致性：对比两位操作员的iSeries Access ODBC驱动版本，建议升级到同一版本（比如最新的IBM i Access Client Solutions），旧版本驱动可能存在已知的游标BUG。
• ODBC数据源配置：检查第二位操作员的ODBC数据源（ODBC数据源管理器）中，针对oursys的配置是否和第一位一致——比如默认库、游标设置、SSL选项等，有时候手动配置的数据源会覆盖连接字符串的参数。
• 用户权限验证：确认第二位操作员的iSeries账号kUid是否有TEST.TESTTABLE的查询权限，虽然你说单步到RS.Open时没异常，但权限不足可能导致Recordset状态异常（比如看似打开但实际无数据，触发BOF/EOF判断时崩溃）。

四、临时调试技巧 #

如果还是找不到问题，先加错误捕获看看具体崩溃原因：

On Error Resume Next
RS.Open SQL_str, cnDB, adOpenStatic, adLockOptimistic
If Err.Number <> 0 Then
    Debug.Print "Recordset打开错误：" & Err.Description & " 错误码：" & Err.Number
    On Error GoTo 0
    Exit Sub
End If
On Error GoTo 0

If RS.BOF And RS.EOF Then
    ' 你的逻辑
End If

错误描述会帮你定位是驱动问题、权限问题还是游标问题。

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