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

締切り済みの質問

ExcelVBAからAccessにアクセスする

ExcelVBAからパスワード付きAccessにアクセスする

ExcelVBAからADOでAccessに次のようにしてアクセスしています。
Dim Cnn As ADODB.Connection
Set Cnn = New ADODB.Connection
Cnn.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;\" _
& \"Data Source=\" & mdbのフルパス
Cnn.Open

パスワード付きのmdbにアクセスするのはどのようにしたらよろしいでしょうか?

投稿日時 - 2008-07-07 15:43:25

QNo.4158148

困ってます

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

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

回答(2)

チクッとテスト用関数を作成すると接続確認ってのができます。

? CNNTest("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\DB9.mdb;Jet OLEDB:Database Password=xxxx;")
True

Public Function CNNTest(ByVal strCNNString As String) As Boolean
On Error GoTo Err_CNNTest
  Dim isNotOK As Boolean
  Dim cnn   As ADODB.Connection
  
  Set cnn = New ADODB.Connection
  With cnn
    .ConnectionString = strCNNString
    .Open
  End With
Exit_CNNTest:
  CNNTest = Not isNotOK
  Exit Function
Err_CNNTest:
  isNotOK = True
  Resume Exit_CNNTest
End Function

投稿日時 - 2008-07-07 16:59:08

お礼

ありがとうございました

投稿日時 - 2008-07-07 17:15:59

ANo.1

MDBにパスワードをつけた場合
JET OLDDB:Database Password でMDBに設定したパスワードをConnectionStringの中に追加しましょう

パスワードが"abc123"の場合
Cnn.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;\" _
  & \"Data Source=\" & mdbのフルパス & ";" & _
  "JET OLEDB:Database Password=" & "abc123;"
といった具合になります

投稿日時 - 2008-07-07 16:13:23

お礼

ありがとうございました。出来ました。

投稿日時 - 2008-07-07 17:06:14

あなたにオススメの質問