32位Excel 2016 VBA连接PostgreSQL时RecordSet.Open报错排查

一、确认ADODB.Connection对象是否真的正常工作 #

• 不要仅依赖Connection.Open不报错判断连接状态，需主动验证：
  • 调用Open后，检查conn.State属性，若等于adStateOpen（数值1），才表示连接已成功建立。
  • 执行简单测试SQL验证连接有效性，比如：

    Dim testRs As ADODB.Recordset
    Set testRs = conn.Execute("SELECT 1")
    If Not testRs.EOF Then MsgBox "连接有效"
    testRs.Close
    Set testRs = Nothing
    

• 随机DSN不触发错误的问题，大概率是驱动的静默兼容机制或连接字符串写法异常。需确认连接字符串是否明确指定了32位驱动，比如：

  connStr = "DSN=你的32位DSN名称;Driver={PostgreSQL Unicode(x86)};"
  

二、RecordSet.Open报错的其他可能原因 #

• 权限不匹配：ODBC数据源配置的用户可能没有hi表的SELECT权限。即使PGAdmin能执行，也要确认ODBC连接使用的账号是否具备该表的访问权限。
• SQL标识符大小写问题：PostgreSQL默认将未加引号的表名转为小写，若实际表名是大写或混合大小写，需用双引号包裹，比如SELECT * FROM "hi"。
• RecordSet参数兼容性：尝试使用最基础的游标和锁定类型，避免驱动不支持的参数组合：

  rs.Open "SELECT * FROM hi", conn, adOpenForwardOnly, adLockReadOnly
  

• 驱动版本问题：旧版32位PostgreSQL ODBC驱动可能存在ADODB交互bug，建议更新至最新32位驱动版本。
• 数据类型冲突：hi表中若包含VBA无法解析的特殊类型（如JSON、数组、大对象），可先测试查询单个普通类型字段（如SELECT id FROM hi），逐步排查是否为字段类型导致的错误。
• 资源泄漏：未正确关闭之前的RecordSet或Connection对象，导致资源占用。确保操作完成后执行：

  rs.Close: Set rs = Nothing
  conn.Close: Set conn = Nothing
  

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