|
いつもお世話になっております。
VBAでACCESSに接続し、データを取りたいのですが、
テーブルにパスワードがかかれている場合、どのように接続を書けばよいのでしょうか?
ちなみに今はこのような構文を書いています。
下記構文だと、A_DATAに接続するとき(dbRes.Openのとき)にパスワードを
聞いてきます。
Password=ABCDE でパスワードを指定しているつもりなのですが、
パスワードを記入する場所が悪いのでしょうか?
Sub accessDB()
Dim dbCon As New ADODB.Connection
Dim dbRes As New ADODB.Recordset
Dim dbCols As ADODB.Fields
Dim dbCols2 As ADODB.Fields
Dim strSQL As String
' 接続を確立する
dbCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\My Documents\SW_aa.mdb; " & _
"Jet OLEDB:Database Password=ABCDE;"
'データを取得する
strSQL = "SELECT 項目 FROM A_DATA WHERE A_PNUM = '99999'"
dbRes.Open strSQL, dbCon, adOpenKeyset, adLockReadOnly
※いろんな処理
' レコードセット、データベースを閉じる
dbRes.Close
Set dbRes = Nothing
dbCon.Close
Set dbCon = Nothing
End Sub
|
|