Как установить пароль на базу данных

Jet 3.0 (в 32-битном VB4) включает в себя новую систему безопасности, основанную на паролях базы данных. Эта система позволяет устанавливать единственный, многопользовательский пароль для открытия базы данных.

Установка пароля в VB делается при помощи метода NewPassword объекта базы данных. Ниже представлен пример того, как это делается:

Dim wrk As Workspace
Dim dbPwd As Database

Set wrk = DBEngine.Workspaces(0)

' Необходимо открыть базу данных в эксклюзивном режиме (второй параметр).
Set dbPwd = _
wrk.OpenDatabase_
        ("MyData.MDB", True)

' Устанавливаем текущий пустой пароль в "NewPass".
dbPwd.NewPassword "","NewPass"