人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ご存知の方教えて下さい。
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で参照可能でしょうか。

宜しく御願い致します。







●質問者: sinrabanshyo
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● cx20
ベストアンサー

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

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

sinrabanshyoさんのコメント
一覧表示よりも、データで取得するのは可能でしょうか。

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 <<
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ