ExcelVBAからのOracle接続で致命的なエラー

• 質問

• 

  

  0

  サインインして投票

  お世話になります。

  ExcelVBAからOracleに接続しようとすると「実行時エラー'-2147418113(8000ffff)':致命的なエラーです」というエラーが発生します。

  具体的なコードは以下のとおりです。

  ------------------

  Dim OraCon as Object  
   Dim constr As String
     
      constr = "Provider=OraOLEDB.Oracle" _
              & ";User Id =" & xxxx _
              & ";Password=" & xxxx _
              & ";Data Source=(DESCRIPTION=(ADDRESS_LIST=" _
              & "(ADDRESS=(PROTOCOL=TCP)" _
              & "(HOST=" & xx.xx.xx.xx & ")" _
              & "(PORT=" & 1521 & ")))" _
              & "(CONNECT_DATA=(SID=" & xxx & ")" _
              & "(SERVER=DEDICATED)));"

     
      Set OraCon = CreateObject("ADODB.Connection")
      OraCon.ConnectionString = constr
      OraCon.Open

  ----------------------

  最後のOraCon.Openのところで「致命的なエラー」が発生します。

  使用しているExcelは2016、Oracle ClientはODACの32bitです。

  Microsoft ActiveX Data Object 6.1 Libraryを参照設定しています

  何が問題なのかメッセージからはわからず、困っています。

  解決できませんでしょうか。

  2021年1月12日 6:38

  返信

  |

  引用