Описание
Задает или возвращает путь к текущему каталогу, содержащему файл системной базы данных (только в рабочей области Microsoft Jet).
Значение
Задаваемое или возвращаемое значение определяется выражением типа String, описывающим полный путь к файлу системной базы данных.
Замечания
Ядро базы данных Microsoft Jet позволяет определить рабочую группу и установить различные разрешения на доступ к каждому объекту в базе данных для каждого пользователя, входящего в рабочую группу. Рабочая группа определяется в файле системной базы данных, обычно имеющем имя "system.mda". Для того чтобы пользователи получили доступ к защищенным объектам базы данных, объекты доступа к данным (DAO) должны иметь информацию о положении этого файла системной базы данных. Положение этого файла определяется для механизма DAO либо по записям в реестре Windows, либо по значению свойства SystemDB. При установке это свойство получает значение по умолчанию "system.mda" без указания пути.
Чтобы изменение настройки по умолчанию вступило в силу, значение свойства SystemDB должно быть задано до инициализации объекта DBEngine (т.е. до создания экземпляра любого другого объекта доступа к данным). Область определения этого значения ограничена текущим приложением и не может быть изменена без повторного запуска приложения.
Пример
Следующая программа использует свойства SystemDB, AllPermissions и Permissions для демонстрации получения пользователями различных разрешений в зависимости от группы, к которой они принадлежат.
Sub AllPermissionsX() ' Проверяет, что файл системной базы данных Microsoft Jet ' является доступным. DBEngine.SystemDB = "system.mdw" Dim dbsNorthwind As Database Dim ctrLoop As Container Set dbsNorthwind = OpenDatabase("Борей.mdb") ' Отображает семейство Containers и печатает имя текущего ' пользователя и присвоенные ему разрешения. For Each ctrLoop In dbsNorthwind.Containers With ctrLoop Debug.Print "Контейнер: " & .Name Debug.Print "Пользователь: " & .UserName Debug.Print " Permissions: " & .Permissions Debug.Print " AllPermissions: " & _ .AllPermissions End With Next ctrLoop dbsNorthwind.Close End Sub