连接到Oracle DBA时出错:连接未打开

Question

我用VBA编写了连接到Oracle DBA的代码。但是在运行代码后，会弹出错误。

ORA-06413:连接未打开。

我的系统

• Windows 8 64位
• 微软办公专业人员加上2013年32位。
• 甲骨文是32位
• ODBC被设置为myORA 32位。

该代码在windows 7中运行良好。由于系统升级，我想修复这个ot在Windows 8上的工作。

Answer 1

ADO示例

也许你必须更新你的连接字符串。有关示例，请参阅https://www.connectionstrings.com。

微软ActiveX数据对象需要引用“ActiveX数据对象x.x库”

Sub ConnectToOracleViaADO()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim myResult As String

    Set cn = New ADODB.Connection

    cn.ConnectionString = "{Microsoft ODBC for Oracle};Server=myServerAddress; _
        Uid=myUsername;Pwd=myPassword;"
    cn.ConnectionTimeout = 5
    cn.Open

    If cn.State <> adStateOpen Then
        MsgBox "Sorry, couldn't open database connection.", _
            vbCritical + vbOKOnly, "Error"
        Exit Sub
    End If

    cn.CommandTimeout = 1

    Set rs = New ADODB.Recordset
    rs.Open Source:="SELECT something;", _
        ActiveConnection:=cn, _
        CursorType:=adOpenStatic, _
        LockType:=adLockReadOnly, _
        Options:=adCmdUnspecified
    myResult = rs.Fields(0).Value

    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub