| 戻る |
|
ADO を使用してパスワードプロテクトされている
Access データベースに接続します。
接続文字列に " Jet OLEDB:Database Password=パスワード
" を指定します。
「参照設定」で [Microsoft ActiveX Data Objects 2.1 Library] に参照します。
Private Sub cmdADO_Click() ' ADOを使用してパスワードを指定する Dim cnn As New ADODB.Connection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\My Documents\db1.mdb;" & _ "Jet OLEDB:Database Password=mypassword;" cnn.Close End Sub |
||||
©2000 VBMANIA All rights reserved.