VBAでOracle接続において、ドライバーが見つかりませんというエラーを解決したい

Question

前提・実現したいこと

社内ツールのOfficeのヴァージョンアップ対応をしています。
Offcie2007のツールを以下の環境で稼働確認を行っています。

・windows10 64bit
・office365 64bit
・oracle client12c 64bit
・ODBCデータソース 64bit
ドライバータブにOracle in OraClient12Home1の設定有

社内ツールを以下の要件を満たしてOracleに接続したいです。
<要件>
・ドライバー接続
・ユーザーDSN、システムDSNの設定追加をしない
（⇒tnsnames.ora ファイルのネットサービス名を指定する方法を希望）

発生している問題・エラーメッセージ

oraCon.Openのところで以下のエラーメッセージが出力されます。

データソース名および指定された既定のドライバーが見つかりません。
エラーNo -2147467259

該当のソースコード

'コードは、自宅から手動で入力しているため、誤りがある可能性がございます。
Const DRIVER = "{Oracle in OraClient12Home1}"
Const NETSERVICENAME = "test"
Const USERNAME = "test01"
Const PASSWORD = "password"

Dim oraCon As ADODB.Connection
Set oraCon = New ADODB.Connection

oraCon.Open("DRIVER=" & DRIVER & ";CONNECTSTRING=" & NETSERVICENAME & ";UID=" & USERNAME & ";PWD=" & PASSWORD & ";")

試したこと

ドライバ名が間違っているのかと思い、
Const DRIVER = {Oracle 12c ODBC driver}に変更したが結果は変わらなかった。

補足情報（FW/ツールのバージョンなど）

・windows10 64bit
・office365 64bit
・oracle client12c 64bit
・ODBCデータソース 64bit
ドライバータブにOracle in OraClient12Home1の設定有

Answer 1

接続文字列が誤っていました。
CONNECTSTRINGをDBQに修正して、
DBに接続できました。

Answer 2

＞ＯＤＢＣデータソースで接続確認は行いました。
繋がっているのであれば登録したDNS名を指定すると繋がると思います。
(例:OBDC64登録名称test_ora/Oracleサービスネーミングtest)

Sub Test_Sample_Miniature()    
    Dim oraCon As ADODB.Connection
    Dim oraRs As ADODB.Recordset
    Dim constr As String
    Dim strSQL As String
    
    '(ODBC64)
    constr = "DSN=test_ora;UID=user;PWD=password"
    '又は(MS ODBC)
    'constr = "Provider=MSDASQL;DSN=test_ora;UID=user;PWD=password;"
    '又は(OLE DB)
    'constr = "Provider=OraOLEDB.Oracle;Data Source=test;User ID=user;Password=password;"
    '又は(Oracle ODBC Driver)
    'constr = "DRIVER={Oracle in OraClient12Home1};UID=user;PWD=password;DBQ=test;DBA=W;"

    Set oraCon = New ADODB.Connection
    oraCon.ConnectionString = constr
    oraCon.Open
    
    strSQL = "select * from testOraDB.TestTable"
    Set oraRs = New ADODB.Recordset
    oraRs.Open strSQL, oraCon
    'レコード
    Dim row As Long
    Do Until oraRs.EOF
        row = row + 1: oraRs.MoveNext
    Loop
    
    oraRs.Close
    oraCon.Close
    Set oraCon = Nothing
    
End Sub

但し、Oracle12cClientが正常にインストール済みか確認必要ですので、
Excel2019(64ビット版)からOBDC経由で接続を行った方が良いです。
(データ→データ取得→その他のデータソースから→ODBC）
これでデータ取得できない場合には、環境設定の確認が必要と思われます。
https://docs.oracle.com/cd/E96517_01/adfns/odbc-driver.html#GUID-F141C2E1-BA44-4399-B72A-3B1FBA2BC750

Comments

[dispatch_worker]

ご丁寧にハードコピーまでつけて頂きありがとうございます。
大変わかりやすいです。

システムDSN（またはユーザーDSN）に追加するときに
ユーザーＩＤとパスワードを指定しないといけないと思いますが、
ツールの仕様でユーザーＩＤとパスワードを
外部ファイルから読み込む方式となっております。

そういう状況なので、ユーザーDSNには、
こちらで把握しているＩＤとパスワードを入力し、
正常に接続できることは確認したものの
DSNには追加していない状態です。

端末数が多く、ＩＤとパスワードが固定でないので、
できればＤＳＮに設定を追加しない方法を希望していました。
※ＤＳＮに追加する方法しかないのであれば、
　基盤にお願いしなければなりませんが、
　絶対に必要だとわからないとお願いできない状況です。

tosi様のアドバイスで、
こちらのOracle接続の要件に不足があったので
前提・実現したいこと
にOracle接続の要件を追加致しました。

引き続き、どなたかアドバイスを頂けると幸いです。

[tosi]

ソースに下記も記載しています。
'又は(MS-ODBC)
'又は(OLE DB)
先づは、VBAからDSNで接続成功させることが大切と思います。
成功すれば、あとは直接Driverへ変える記述方法を探すという手順に移れますので、具体的な問い合わせが可能になると思われます。

Answer 3

odbcデータソースで接続できるのであればファイルdsn？かなにかで接続文字列を吐き出せたと思います。
ですがまずdsnでadodb接続ができるか試されてはいかが？

Comments

[dispatch_worker]

ご回答頂きありがとうございます。

接続文字列を吐き出せることを知りませんでした。
調べてみようと思います。

dsnでadodb接続について、調べて接続できるか確認してみます。

アドバイス頂きありがとうございます。

Answer 4

なんとなくOpenの引数が違うような。
Openの第一引数自体が接続文字列なので、"CONNECTSTRING="が含まれるのはおかしくないですかね。
"Data Source"が正しいような気がします。
その他のプロパティも要確認。
こちらのサイトなどを参考にしてみてください。

Comments

[dispatch_worker]

ご回答頂きありがとうございます。

ご提示いただいたページは、プロバイダ接続のようです。
丁度、ご提示いただいたサイトにドライバ接続もあって、
職場のＯＰＥＮの引数は、そちらを参考にして記入した次第です。

windows10では、プロバイダ接続が未対応のようで、
さらにoo4oもOracleClient12のため、使用できず、
結果的にドライバ接続しか方法がないと思っていますが、
質問のとおり、ドライバが見つからないと言われ困っている次第です。

Answer 5

ODBCデータソース上で表示されるドライバー名で確認してみてください

Comments

[dispatch_worker]

ご回答頂きありがとうございます。
ODBCデータソース上で表示されるドライバー名とは、
ODBCデータソースアドミニストレターの
ドライバータブに表示されている名前欄がドライバー名ということで
よろしいのでしょうか？

[sazi]

はい。その認識です。

[dispatch_worker]

ご返信ありがとうございます。
ドライバー名の指定は、間違っていないようです。

[sazi]

oracle clientの使用前提なのですよね？

[dispatch_worker]

はい。oracle clientの使用前提です。

[sazi]

ODBCデータソースで接続確認は行われてますか？
利用するしないに関わらず試してみた方が良いかと思います。

[sazi]

ドライバーの場所の設定はどのように行われていますか？
指定が無ければ、tnsnames.oraのある場所（ORACLE_HOME/network/admin）を参照に行くはずですが。
※たまにしか行わないので、記憶が曖昧ですのでご容赦願います。

[dispatch_worker]

ご回答頂きありがとうございます。

ＯＤＢＣデータソースで接続確認は行いました。
正常に接続できたことを確認しています。

ドライバーの場所の設定が不明です。
基盤担当は他の方が行っています。
そもそもドライバーの場所を設定しなければならないこと知りませんでした。
ドライバーの場所の設定をどのように確認するのかは調べてみようと思います。
ありがとうございます。

/network/adminにtnsnames.oraは、存在し、
接続したいNETSERVICENAMEの記載はあることを確認しています。