みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

DBパスワードありVBAアクセスについて

Access2010を使用しております。
Excel2010からAccessにVBAからSelect文でデータセット取得しようとしております。
接続には以下の記述で接続しようとしてますが、オートメーションエラーになります。

Set con = New ADODB.Connection

con.Provider = "Microsoft.Ace.OLEDB.12.0"
con.Properties("Jet OLEDB:Database Password") = Password
con.Open "C:\\Directory"

または

con.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Directory;Jet OLEDB:Database Password=Password"

con.Open

などいろいろ試してますがうまくいきません。
パスワードがなければ以下の記述で開けるのですが。

con.Provider = "Microsoft.Ace.OLEDB.12.0"

con.Open "c:\\Directory"


アドバイス等お願いします。

投稿日時 - 2011-10-26 11:36:07

QNo.7095212

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

どのようなメッセージが出ていますか?
Driver=の記述でダメだった経験が
ありません。単純なミスのような気が
します。

投稿日時 - 2011-10-27 19:58:50

ANo.2

じゃあこうしましょ。

Dim 接続文字列 As String
Dim パスワード As String
Dim DB接続 As ADODB.Connection

接続文字列 = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\~"
パスワード = "uuuu"
Set DB接続 = New ADODB.Connection
DB接続.Open 接続文字列, , パスワード

"Provider="の方は指定のバージョンを使う
"Driver="は最新バージョンを使う
よって、上はバージョンが変わる度に修正が
必要だが、下はそれが要らない。但し、
複数のバージョンがインストールされている
マシンで、下位バージョンで接続する時は
Provider=でないとダメです。

投稿日時 - 2011-10-26 21:08:45

お礼

うーん出来ませんでした。
なんか記述ミスと言うよりか、Accessの設定でしょうか。
Accessのパスワード外し、パスワード部分の記述を外せば問題ないのですが・・・

外部アクセスの許可設定などあるのでしょうか。

投稿日時 - 2011-10-27 11:08:05

ANo.1

Openメソッドの第2パラメータがユーザID、
第3パラメータがパスワードです。
con.Open "C:\~", "uuuu", "pppp"
としてみてください。

投稿日時 - 2011-10-26 15:11:51

お礼

回答ありがとうございます。

データベースパスワードのユーザー名はデフォルトではなにになるのでしょうか。
どこかで確認できるのでしょうか。
ユーザー名を空白、省略、Adminなどで試しましたが、うまくいきませんでした。

投稿日時 - 2011-10-26 16:18:25

あなたにオススメの質問