VBA连接Oracle数据库失败求助：错误码3704

错误码3704「Operation is not allowed when object is closed」本质是你尝试操作了一个未处于打开状态的对象（通常是Recordset，也可能是连接对象本身），以下是具体排查和解决步骤：

1. 先确认数据库连接是否成功建立 #

在执行任何数据操作前，先验证连接对象的状态，避免后续操作基于无效连接：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

On Error GoTo ConnFail
conn.Open strcon
' 输出连接状态到立即窗口验证
If conn.State = adStateOpen Then
    Debug.Print "数据库连接成功"
Else
    Debug.Print "数据库连接未打开"
End If

' 后续业务代码...

ConnFail:
If Err.Number <> 0 Then
    MsgBox "连接错误: " & Err.Description & " 错误码: " & Err.Number
    Exit Sub
End If

2. 检查Recordset的打开逻辑 #

如果是查询数据时触发错误，要确保你正确关联了已打开的连接，且SQL语句有效：

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

' 必须指定已打开的连接对象，同时确保SQL语句无语法错误
rs.Open "SELECT * FROM YOUR_TARGET_TABLE", conn, adOpenStatic, adLockReadOnly

' 操作Recordset前先判断状态
If rs.State = adStateOpen Then
    ' 示例：遍历记录
    Do While Not rs.EOF
        Debug.Print rs.Fields("COLUMN_NAME").Value
        rs.MoveNext
    Loop
    rs.Close
Else
    MsgBox "数据集未成功打开，请检查SQL语句或连接状态"
End If

3. 优化连接字符串（可选但推荐） #

你当前使用的Microsoft ODBC for Oracle是微软的老旧驱动，兼容性有限，建议替换为Oracle官方ODBC驱动，连接字符串更简洁且稳定：

' 格式示例，需替换为你本地的Oracle驱动名称（比如OraClient19Home1）
strcon = "Driver={Oracle in OraClient19Home1};DB=" & dbHost_Name & ":" & dbPort & "/" & dbService_Name & ";Uid=" & dbUserName & ";Pwd=" & dbPassword & ";"

驱动名称可在「ODBC数据源管理器」→「驱动」标签页中查看。

4. 验证变量赋值正确性 #

确保dbHost_Name、dbPort、dbService_Name等变量没有空值或错误值，可在连接前打印验证：

Debug.Print "主机地址: " & dbHost_Name
Debug.Print "端口: " & dbPort
Debug.Print "服务名: " & dbService_Name

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