vbaでMicroSoft ODBC for Oracleを使用したDB接続

Question

vbaからOracleDBに接続するツールを作成したいのですが、うまくできません。
できればDSNを使わずに接続したいのですが、なにか手はないのでしょうか。
DSNを利用した方法もご教授いただけるとありがたいです。
質問がふわふわしていてすみません。
※MS製ODBCがサポートせず、将来なくなるのは了承済です。

コンポーネント
・Windows10 64bit
・Oracle 12c 64bit
・microsoft ODBC for oracle 32bit
・Oracle Client 32bit
・Excel 2016 32bit

Answer 1

ADO + Oracle OLEDB を使う方法を紹介しておきます。

    Dim con As New ADODB.Connection
    con.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=(DataSource);User ID=(UID);Password=(PASS)"
    con.Open

(DataSource) の部分は tnsname でも良いし、192.168.0.1:1521/ORCL のような形でもいいです。

追記:Microsoft Oracle ODBC を使用した接続（お勧めしません）

DSN を使用する場合

    Dim con As New ADODB.Connection
    con.ConnectionString = "DSN=(DSN名);UID=(ユーザID);PWD=(パスワード)"
    con.Open

DSN の作成は 32bit 用の ODBC アドミニストレータを起動することに注意すれば、特に迷うことはないはずです。
https://support.microsoft.com/ja-jp/help/942976/odbc-administrator-tool-displays-both-the-32-bit-and-the-64-bit-user-d

DSN を使用しない場合

    Dim con As New ADODB.Connection
    con.ConnectionString = "DRIVER={Microsoft ODBC for Oracle};SERVER=(TNS名);UID=(ユーザID);PWD=(パスワード)"
    con.Open

Comments

[a1578864]

回答ありがとうございます。
しかし、現在なにかを新しくインストールすることができない環境なので、
できれば今あるコンポーネントでなんとか接続したいのですが、何か手はないでしょうか。
こちらの都合で申し訳ありませんが、よろしくお願いします。

[KOZ6.0]

ADO も OLEDB も入っていると思うのですけどね。
試してみてください。

[a1578864]

試してみましたが、
プロバイダーが見つかりません。正しくインストールされていない可能性があります。
とエラーがでました。やはりOLEDBは入っていない模様です。。。

[KOZ6.0]

Instant Client を入れちゃったんですね。
前の質問で、OLDEB がインストールされると私が間違ったコメントを書いたためであれば申し訳なかったです。

サポート外のことをやるのであれば、リスクはすべて自分で負う必要があります。
なにかあれば自分で調べて解決しなければなりません。