Driver={Microsoft Access

質問

アクセス２００７です。
Sub test()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim MyFile As String

MyFile = "C:\test.accdb"

cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\" & MyFile & ";"
rs.Open "SELECT * FROM テーブル1", cn
MsgBox "テーブルに接続出来ました。"

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
*********************************************************

を実行しても実行時エラーになります。

cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\" & MyFile & ";"
を
cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source= " & MyFile
に変えればうまくいきますが
なぜ、"Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\"じゃダメなのでしょうか？
教えてくださいませ。

回答No.3

nicotinism · ベストアンサー

64bit でしたか orz
piroin654 さんの紹介されたリンクの内容
と～～～～～～～～～～～～～～～～～～～～～～っても分かりにくい (＾＾ゞ
実は以前にも見てはいたのですが、あの時はあきらめました。OLEDBで間に合ってるし・・

気を取り直してもう一度。
間違った解釈も含まれているかもしれません。

64bit OS で 32bit Office を使用し ODBC で接続を行う場合。
OSの64bit版ODBC で接続しようとします。
しかし、64bit 版のドライバは有りませんのでエラーになります。
ドライバータブを見てください。
C:\Windows\System32\odbcad32.exe
↑コントロールパネルから辿って行って表示される
ODBC データ ソース アドミニストレーターです。
（何か別のアプリを入れた際にドライバが追加されてるかも知れません）
（その際の検証は当環境では出来ません（やりたくない））

実は32bit版ODBCも用意されています。
C:\Windows\SysWOW64\odbcad32.exe
パッと見は上記と同じですが、ドライバータブを見てください。
32bit版Officeが自動的に32bit版ODBCを読み込んでくれれば問題ないのですが・・
32bit版ODBCのユーザーDSNで登録すると、64bit版ODBCのユーザーDSNにも表示されます。
これはMS社の説明にもリダイレクトされるので・・とあります。
しかしながら、ドライバーは存在しないのでエラーになります。

なので、
32bit版のODBC データ ソース アドミニストレーター
C:\Windows\SysWOW64\odbcad32.exe
を立ち上げて、
システムDSNタブで『追加』ボタンをクリック
Microsoft Access Driver(*.mdb,*.accdb) を選択し『完了』ボタン
データソース名は、適当に分かりやすいものにします。
accdb_32 とかお好きに。
『OK』でとじます。

これをもとに
>cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\" & MyFile & ";"
を
cn.Open "DSN=accdb_32;DBQ=D:\" & MyFile & ";"
とすれば接続できるはずです。
解釈に間違っている部分もあるかと思います。
取りあえず出来た・・レベルですので、ご参考まで。

お礼

ありがとうございます。

回答No.2

piroin654

VBSでの接続でODBCを利用する方法を提案したので、
少し気にはなっていましたが、64BitのＯＳでAccess
でのODBCの使用については、

http://support.microsoft.com/kb/942976/ja

での回避策で大抵は可能かと思いますが。
他に原因がある場合は環境に左右されるので
何ともというところです。

お礼

ありがとうございます。

回答No.1

nicotinism

前者はODBCを使用しての接続です。accdbのドライバの指定が必要です。
OSが64bit ではなく32bit なら下記に変更すれば出来るかも？
cn.Open "Driver={Microsoft Access Driver (*.mdb,*.accdb)}; DBQ=D:\" & MyFile & ";"

ODBCのドライバはコントロールパネルの管理ツールのデータソース（ODBC）で
確認できます。（Windows7の場合）
OSが64bitの場合の対処方法は分かりません。

お礼

ＯＳは６４です。
なのでいただいたコードをやっても実行時エラーになってしまいました。

データソース（ODBC）を開いてみましたが、見てもよくわからりませんでした。調べてみます。ありがとうございました。