如何解决VBA连接Oracle时的ORA-06413: Connection not open错误？

环境信息 #

• Windows 10 64位
• Office 2013 32位
• Oracle 11g Home 32位

使用的VBA代码 #

Dim rs As ADODB.Recordset
Dim myOracleDriver As String
Dim myOracleServer As String 
Dim myAccount As String                 
Dim myPassword As String        

Set myCon = New ADODB.Connection
Set myRst1 = New ADODB.Recordset

myCon.ConnectionString = "Driver={" & myOracleDriver & "};SERVER=" & myOracleServer & ";UID=" & myAccount & ";PWD=" & myPassword & ""

SQL = ""
SQL = SQL + " SELECT CST1,LOT_1,CST2,LOT_2"
SQL = SQL + " FROM mydb"

mydata1.Select
Range("A1").Select
 
With myCon
    .Open
End With

已执行的排查操作 #

1. 检查TNSNAMES.ora、SQLNET.ora、LISTENER.ora文件，未发现异常；
2. 执行命令 C:\>mkLink /j "Program Files x86" "Program Files (x86)" 成功关联文件夹，但调用myCon.open时仍出现‘connection not open’错误。

错误原因及解决方法 #

1. 核心问题：连接参数未赋值

代码中myOracleDriver、myOracleServer、myAccount、myPassword四个关键变量仅声明但未赋值，生成的连接字符串是无效空值，直接导致连接失败。

解决：
给变量填充有效信息（根据你的实际环境调整）：

myOracleDriver = "Oracle in OraClient11g_home1" '对应32位Oracle驱动名称，可在ODBC管理器中查看
myOracleServer = "ORCL" 'TNSNAMES.ora中配置的服务名，或用EZCONNECT格式如"//192.168.1.100:1521/orcl"
myAccount = "your_username"
myPassword = "your_password"

2. 变量未显式声明

代码中myCon、SQL变量未声明，VBA默认按Variant类型处理，可能引发隐式错误。

解决：
在代码开头补充变量声明：

Dim myCon As ADODB.Connection
Dim SQL As String

3. 缺少错误捕获，无法定位具体问题

当前代码无错误处理逻辑，仅能得到模糊的‘connection not open’提示，无法获知真实错误原因（如驱动不存在、服务名错误、账号密码错误等）。

解决：
添加错误捕获代码获取详细信息：

On Error Resume Next
myCon.Open
If Err.Number <> 0 Then
    MsgBox "连接失败：" & Err.Description, vbExclamation
    Exit Sub
End If
On Error GoTo 0

4. 确认32位Oracle驱动可用性

由于Office是32位，必须使用32位Oracle ODBC驱动：

• 打开32位ODBC管理器：C:\Windows\SysWOW64\odbcad32.exe
• 检查「驱动程序」标签下是否存在对应Oracle驱动，若不存在需重新安装32位Oracle客户端。

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