EXCELにマクロ(VBA) ORA-01019エラーで接続できなくなった

Question

初めまして。どなたか、解決法がわかる方がいればご教授下さい。

今まで、EXCELにマクロ(VBA)を組み込んで、データベースからデータを抽出できていたのですが、

ＰＣ環境が変わったら、できなくなりました。

[正常なPC状態]

・Windows7　Professional 32bitOS

・ODBCユーザーデータソース：名前　AAAAAA　ドライバー Microsoft ODBC for Oracle

データソース名　AAAAAA ユーザー名 READ_AAA サーバー AAAAAA

・EXCEL2010

・プログラム

Dim cn As ADODB.Connection

Dim SQL As String

Dim rs As ADODB.Recordset

'SQLへ接続

Set cn = New ADODB.Connection

cn.ConnectionString = "Data Source=AAAAAA;" & "User ID = READ_AAA;" & "Password = XXXXXX"  '　←ODBC設定を呼び出し

cn.Open  ' ←データベース接続

以下　省略します。

[動作しなくなった状態]

・Windows10　 64bitOS

・ODBCユーザーデータソース：名前　AAAAAA　ドライバー Microsoft ODBC for Oracle

データソース名　AAAAAA ユーザー名 READ_AAA サーバー AAAAAA

・EXCEL2013

プログラム

Dim cn As ADODB.Connection

Dim SQL As String

Dim rs As ADODB.Recordset

'SQLへ接続

Set cn = New ADODB.Connection

cn.ConnectionString = "Data Source=AAAAAA;" & "User ID = READ_AAA;" & "Password = XXXXXX"  '　←ODBC設定を呼び出し

cn.Open  ' ←データベース接続

以下　省略します。

cn.Openのところで、エラー発生

実行時エラー　'-214746259(80004004)':

[Microsoft][ODBC driver for ORACLE][Oracle]Error while trying to retrieve text for error ORA-01019

ODBCユーザーデータソースは、32bitで設定しています。

ODBCの64bitドライバーを削除しても変わりませんでした。

よろしくお願いします。

Answer 1

​TOSHI_0077 さん、こんにちは。

マイクロソフト コミュニティへの投稿、ありがとうございます。

マクロを実行すると ORA-01019 エラーが発生するのですね。

VBA に関する内容については、より専門的な MSDN の VBA フォーラムの方が、情報が集まりやすいと思いますので、そちらで情報を集めてみてはいかがでしょうか。

・MSDN フォーラム - Visual Basic for Application (VBA)

よろしければご活用くださいね。

Answer 2

秋山様

早々の連絡ありがとうございます。

さっそく投稿させていただきました。

今後ともよろしくお願いします。