Пример 6. Пример 1. Фрагмент модуля (процедуры) Результат после выполнения Dim prMyProp As String prMyProp = DBEngine.IniPath

Пример 3.

Пример 2.

Пример 1.

Фрагмент модуля (процедуры)	Результат после выполнения
… Dim prMyProp As String prMyProp = DBEngine.IniPath …	Переменная prMyProp будет содержать путь к ключу реестра   SOFWAREMicrosoftOffoce8.0AccessJet3.5

2. SystemDB. Это свойство возвращает путь к файлу SYSTEM.MDW.

Фрагмент модуля (процедуры)	Результат после выполнения
Dim prMyProp As String prMyProp = DBEngene.SystemDB	Переменная prMyProp будет содержать путь к файлу System.MDW C:WindowsSystem system.mdw

3. Version. Это свойство возвращает версию ядра Базы Данных, которая используется в данный момент.

Фрагмент модуля (процедуры)	Результат после выполнения
… Dim prMyProp As String prMyProp = DBEngene.Version …	Для Ms Access 97 после выполнения этого кода свойство вернет значение3.5

Количество свойств объекта, их имена можно получить программным путем.

Фрагмент модуля (процедуры)

Sub PropDBE() Dim IntPropCount As Integer IntPropCount = DBEngine.Properties.Count Debug.Print IntPropCount End Sub

Методы: Используются слeдующие методы объекта DBEngine.

1.RepairDatabase. Этот метод служит для устранения неисправностей в поврежденной базе данных.

Следующий пример восстанавливает БД MyDB.

RepairDatabase

Восстанавление БД

Рис.3 Схема использования метода восстановления БД.

Дата добавления: 2014-01-15