![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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を使っています。
以上2点よろしくお願いします。
No.4ベストアンサー
- 回答日時:
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) 'テーブル名を指定してレコードセットを作成する
こんな感じで出来ますよ。
No.3
- 回答日時:
Excelはちょっとわかりませんが、AccessのADO接続は2000からですので、
97では無理だと思います。
OFFICEをバージョンアップするか、DAOの勉強をするかですね・・・
No.2
- 回答日時:
OSは何でしょう?Jet.OLEDB.3.51がインストールされていないと思われます。
OSやIEのバージョンによってはOLEDBのバージョンが異なるものが標準で入っていることのほうが多いので、バージョンの個所を変えれば接続できると思います。
私がよくやっている”インチキ”な確認方法です。
1.どこでもいいんで、拡張子が.udlのファイルを作成する(空でかまわない)。アイコンが変わればADO(MDAC)がインストールされている。
2.ファイルをダブルクリックで開くと”データリンクプロパティ”が表示されるので、プロバイダのタブを選択し、インストールされているJetプロバイダのバージョン番号を確認する。
ちなみに私のWin2000マシンでは、4.0が入っていました。
なお、Office97ではADOはインストールされません。
というか、Office97のあとに世に出てきたものなんで。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_15.png?5a7ff87)
No.1
- 回答日時:
myADOcon.Open _
"Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\残高DB.mdb"
↑「Open」ではなく、「ConnectionString」ではないでしょうか?
上記の接続を確率してから、「myADOcon.Open」だと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) Access VBAから使用したExcelプロセスを閉じる方法について 4 2022/06/08 17:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UPDATE時にSETしたい日本語文字...
-
【VB】コンボボックスにデータ...
-
初心者ですデータベースの形式 ...
-
名前'dbOpenDynaset'は宣言され...
-
VB6.0でSQLServerへ・・・Recor...
-
VBSでADOを使ってaccessのテー...
-
Javaでデータベースにアクセス
-
ExcelVBAでのAccessデータベー...
-
VBA 変数名に変数を使用したい。
-
ファイル名の一部削除について
-
「Nullの使い方が不正です」の...
-
AccessからExcelへエクスポート...
-
VBAでアクセスDBからデータの取...
-
C#でbyte配列から画像を表示さ...
-
DataTableに特定のフィールドが...
-
VB6.0の「vbFromUnicode」はVB....
-
vba フィルター 複数条件 3つ以...
-
VBAコンボボックスの内容が反映...
-
定数配列の書き方
-
XMLでデータとして画像を指定す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
UPDATE時にSETしたい日本語文字...
-
複数SQL発行について
-
初心者ですデータベースの形式 ...
-
VB6.0とaccessのDBを接続する
-
VB6.0でSQLServerへ・・・Recor...
-
データベースの接続ができない
-
PHP+ACCESSのデータベース接続...
-
名前'dbOpenDynaset'は宣言され...
-
ListviewにDB内容を表示し方に...
-
vb.netでデータベース(Access)...
-
OracleDataReaderについて…
-
VBSでADOを使ってaccessのテー...
-
VBでAccessにSQL文を実行して値...
-
VBでmdbファイルの抽出
-
PHPでのsqlite_close();について。
-
Accessを編集するとASPで接続で...
-
レンタルサーバでのDB接続の件
-
[ASP]エラー プロバイダが指...
-
VB2005でmdbに接続するには?
おすすめ情報