ExcelVBAでのAccessデータベースとの接続

ExcelのVBAによるAccessデータベースの操作を勉強中（始めたばかり）です。
ソフトバンク パブリッシング出版の「Excel VBA データベース構築」で勉強しているのですが、その中で、外部データとの接続に関して以下のような例文がありました。

Sub openADOdb()
Dim myADOcon As ADODB.Connection
Set myADOcon = New ADODB.Connection
myADOcon.Open _
"Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\残高DB.mdb"
myADOcon.Close
Set myADOcon = Nothing
End Sub

これを実行すると、myADOcon.Open ”Provider～　のところで、以下のエラーが発生しました。

実行時エラー’3706’:
プロバイダが見つかりません。正しくインストールされていない可能性があります。

これはExcelもしくはAccessが正しくインストールされていないということなのでしょうか。対処法としてはどのような方法がありますか。

また、本には「プロバイダ名には、どのOLE DBプロバイダを使用するかをしていします。この文字列は、OLE DBプロバイダのマニュアルやヘルプを調べると記載されています。」と出ているのですが、OLE DBプロバイダのヘルプとはどのようにしたら見れるのでしょうか。

なお、Excel97とAccess97を使っています。
以上２点よろしくお願いします。

No.1 回答者： mld_sakura 回答日時： 2002/10/09 12:36

myADOcon.Open _

"Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\残高DB.mdb"

↑「Open」ではなく、「ConnectionString」ではないでしょうか？

上記の接続を確率してから、「myADOcon.Open」だと思います。

No.2 回答者： taka_tetsu 回答日時： 2002/10/09 12:48

OSは何でしょう？Jet.OLEDB.3.51がインストールされていないと思われます。

OSやIEのバージョンによってはOLEDBのバージョンが異なるものが標準で入っていることのほうが多いので、バージョンの個所を変えれば接続できると思います。

私がよくやっている”インチキ”な確認方法です。
１．どこでもいいんで、拡張子が.udlのファイルを作成する（空でかまわない）。アイコンが変わればADO(MDAC)がインストールされている。

２．ファイルをダブルクリックで開くと”データリンクプロパティ”が表示されるので、プロバイダのタブを選択し、インストールされているJetプロバイダのバージョン番号を確認する。

ちなみに私のWin2000マシンでは、4.0が入っていました。

なお、Office97ではADOはインストールされません。
というか、Office97のあとに世に出てきたものなんで。

この回答へのお礼

ありがとうございました。
お教えいただいた確認方法は便利そうなので、私も使わせていただきます。

お礼日時：2002/10/09 22:54

No.3 回答者： gooco_chan 回答日時： 2002/10/09 13:32

Excelはちょっとわかりませんが、AccessのADO接続は２０００からですので、

９７では無理だと思います。

OFFICEをバージョンアップするか、DAOの勉強をするかですね・・・

No.4 ベストアンサー 回答者： O_cyan 回答日時： 2002/10/09 13:57

97ではADOは使えません。

ADOは2000からです。
2000の場合はAccess2000の形式のデータベースに接続する場合プロバイダは
Microsoft.Jet.OLEDB.4.0 以上のバージョンを指定します。

"Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\残高DB.mdb"
ではなく
"Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=C:\残高DB.mdb"
で出来るはずです。

97で同様の処理をするならDAOを使えばできます。
DAOを使用してAccessデータベースに接続するんです。
OpenDatabase メソッドの引数にデータベース名を指定します
「参照設定」で [Microsoft DAO 3.5 Object Library] に参照します。

Dim ws As DAO.Workspace, db As DAO.Database
Dim rs As DAO.Recordset

Set ws = DBEngine.Workspaces(0)　 'デフォルトのワークスペースを定義
Set db = ws.OpenDatabase("C:\残高DB.mdb") 'データベースを開く
Set rs = db.OpenRecordset("Table1", dbOpenDynaset) 'テーブル名を指定してレコードセットを作成する

こんな感じで出来ますよ。

この回答へのお礼

ありがとうございました。
よく分かりました。

お礼日時：2002/10/09 22:52