? Открыть Access-базу с паролем.

[i_mark]

Открываю базу так.
Set dbm = OpenDatabase(path_base)
' path_base - просто путь к базе

Если я поставлю пароль на базу, то как с ним открыть?

[Vitaly1]

Синтаксис

Set базаДанных = рабочаяОбласть.OpenDatabase (имяБД, параметры, толькоЧтение, подключение)

Синтаксис метода OpenDatabase содержит следующие элементы.

Элемент Описание
базаДанных Объектная переменная, представляющая открываемый объект Database.
рабочаяОбласть Необязательный. Объектная переменная, представляющая существующий объект Workspace, который будет содержать базу данных. Если аргумент рабочаяОбласть не задан, метод OpenDatabase использует стандартную рабочую область.
имяБД Выражение или переменная типа String, задающая имя существующего файла базы данных с ядром Microsoft Jet или имя источника данных ODBC. Дополнительные сведения о значениях данного аргумента см. в разделе справки для свойства Name.
параметры Необязательный. Выражение или переменная типа Variant, задающая параметры базы данных, как описано в разделе "Значения".
толькоЧтение Необязательный. Значение типа Variant (подтип Boolean), имеющее значение True, если база данных открывается только для чтения, и значение False (по умолчанию) при открытии базы данных с доступом для чтения и записи.
подключение Необязательный. Выражение или переменная типа Variant (подтип String), содержащая сведения о подключении, в том числе пароли.

[Beerkoff]

Как описать, что надо подключится именно к базе данных Jet (Access) и указать пароль?

[Alex404]

Код: Выделить всё

Dim db As DAO.Database, rs As DAO.Recordset, SQL As String
dbFile = App.Path & "\base.mdb"
Set db = DBEngine.OpenDatabase(dbFile, False, False, ";pwd=ТутТвойПароль")
SQL = "SELECT * FROM Table WHERE ..."
Set rs = db.OpenRecordset(SQL)
.....


[/b]

[Beerkoff]

Alex404,

Спасибо, как раз то, что мне и надо было!

";pwd=Пароль"