前提・実現したいこと
Excel VBAからOracleに接続しようとすると「致命的なエラーです」というエラーが発生する。
エラーを解消してOracleに接続したい。
発生している問題・エラーメッセージ
「実行時エラー'-2147418113(8000ffff)':致命的なエラーです」
該当のソースコード
VBA
1Dim OraCon as Object 2 Dim constr As String 3 4 constr = "Provider=OraOLEDB.Oracle" _ 5 & ";User Id =" & xxxx _ 6 & ";Password=" & xxxx _ 7 & ";Data Source=(DESCRIPTION=(ADDRESS_LIST=" _ 8 & "(ADDRESS=(PROTOCOL=TCP)" _ 9 & "(HOST=" & xx.xx.xx.xx & ")" _ 10 & "(PORT=" & 1521 & ")))" _ 11 & "(CONNECT_DATA=(SID=" & xxx & ")" _ 12 & "(SERVER=DEDICATED)));" 13 14 15 Set OraCon = CreateObject("ADODB.Connection") 16 OraCon.ConnectionString = constr 17 OraCon.Open 18 19
試したこと
同じPCでVB.NETからの接続はできています。
SQL*PLUSからの接続も確認しています。
補足情報(FW/ツールのバージョンなど
Windows10 64bit
Excel2016 32bit
OracleClient(ODAC) 32bit
Oracle11g 64bit
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/01/14 04:31
2021/01/14 04:44
2021/01/14 05:57