Шаг 4 - Свойство SystemDB

Описание

Задает или возвращает путь к текущему каталогу, содержащему файл системной базы данных (только в рабочей области 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

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.