White Tiger

DAOを使用してコードでデータベースパスワードを設定する方法

文書番号: ac2002013
動作確認: Access 97/2002

◆概要
　この資料は、Microsoft Access データベースをDAOを使用して、コードでデータベースパスワードを設定する方法を記載しています。

◆内容

　DAOのNewPasswordメソッドを使って、データベース パスワードを設定することができます。 NewPassword メソッドには、パラメータとしてユーザーの現在のパスワードと新しいパスワードを指定します。

最初にデータベースまたは Admin ユーザーのパスワードを変更するときは、既存のパスワードとして空文字列 ("") を使用します。


次のコードは、Admin ユーザーのパスワードに "topsecret" を設定してユーザー レベルのセキュリティを有効にする方法を示します。

◆Sample code

　Microsoft データ アクセス オブジェクト(DAO)を使用するため、Microsoft DAO 3.6 Object Library を参照する必要があります。 これを行うには、 Visual Basic Editor の ツール メニューで 参照設定をクリックし、 Microsoft DAO 3.6 Object Library チェック ボックスをオンにします。


　次のサンプルでは、Mydatabase.mdbを排他モードで開き、パスワードを設定した後にデーベースを閉じます。

Private Sub SetDBPassword()
'Microsoft DAO 3.6 Object Library を参照する必要があります。

    'データベース変数を宣言します｡
    Dim dbs As DAO.Database 'Access 97ではDAOは必要ありません。
    'フォルダパスを格納します。
    Const conFilePath = "C:\mydb\"
    
    '排他モードでデータベースを開きます。
    Set dbs = OpenDatabase(conFilePath & "Mydatabase.mdb", True)

    'データベース パスワードを設定して、データベースを閉じます。
    dbs.NewPassword "", "topsecret"
    dbs.Close

End Sub

テストを行うには、コード上にカーソルを置きF5キーを押します。

Link