ご存知の方教えて下さい。

VBA で

'参照設定よりMicrosoft ActiveX Data Objects 2.x Libraryを指定して
以下の接続情報で接続

Dim oADOcn As New ADODB.Connection
Dim oRst As New ADODB.Recordset

oADOcn.Open "SQLドライバ名",ユーザー名,パスワード

で接続しているます。
1,参照設定をせずにVBAで設定を省くコーディングという方法はありますでしょうか。

2,インストールされているドライバの一覧などはVBAで参照可能でしょうか。

宜しく御願い致します。





回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2012/11/21 14:05:49
  • 終了:2012/11/22 08:24:25

ベストアンサー

id:cx20 No.1

cx20回答回数607ベストアンサー獲得回数1082012/11/22 01:04:26

以下のやり方で如何でしょうか?

Sub ShowOleDbProvider()
    ' 1. 参照設定は行わず ADO を使用する
    Dim cn
    Set cn = CreateObject("ADODB.Connection")
    
    ' 2. OLE DB Provider の一覧を表示する(データリンクプロパティの表示)
    Dim oledb
    Set oledb = CreateObject("DataLinks")
    oledb.PromptNew
    
    ' 3. 選択した OLE DB Provider の情報を取得する
    oledb.PromptEdit (cn)
    Debug.Print cn.ConnectionString
End Sub
id:sinrabanshyo

一覧表示よりも、データで取得するのは可能でしょうか。

2012/11/26 15:05:09
id:cx20

申し訳ございませんが VBA から手軽に取得する方法(API)は存じ上げていません。
値としては、レジストリに値を持っているので、下記情報を列挙すれば、一覧が取得できるのでは?と思います。

■ Provider Registry Entries
http://msdn.microsoft.com/en-us/library/windows/desktop/ms709941.aspx

HKEY_CLASSES_ROOT\CLSID\<ProviderCLSID>\OLE DB Provider

2012/11/26 23:43:26

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません