Описание
Временно переопределяет значения параметров для записей ядра базы данных Microsoft Jet в реестре Windows(только в рабочей области Microsoft Jet).
DBEngine.SetOption параметр, новоеЗначение
Параметры
параметр
Константа типа Long. Каждая константа определяет соответствующий параметр реестра на пути Jet\3.5\Engines\Jet 3.5\ (например, dbSharedAsyncDelay соответствует записи Jet\3.5\Engines\Jet 3.5\SharedAsyncDelay и т.д.).
dbPageTimeout PageTimeout dbSharedAsyncDelay SharedAsyncDelay dbExclusiveAsyncDelay ExclusiveAsyncDelay dbLockRetry LockRetry dbUserCommitSync UserCommitSync dbImplicitCommitSync ImplicitCommitSync dbMaxBufferSize MaxBufferSize dbMaxLocksPerFile MaxLocksPerFile dbLockDelay LockDelay dbRecycleLVs RecycleLVs dbFlushTransactionTimeout FlushTransactionTimeout
новоеЗначение
Значение типа Variant, с помощью которого задается параметр.
Замечания
Метод SetOption позволяет переопределить значение параметра реестра во время выполнения. Новые значени параметров, заданные в методе SetOption, действуют до их изменения при новом вызове метода SetOption или до закрытия объекта DBEngine.
Для получения дополнительных сведений о записях реестра и соответствующих значениях параметров см. в разделе Инициализация ядра базы данных Microsoft Jet 3.5
Пример
Следующая программа использует метод SetOption для изменения значений в двух разделах реестра на основании данных, введенных пользователем. Метод SetOption переопределяет сохраненные параметры реестра только для текущего приложения. Сохраненные значения останутся неизменными и доступными для просмотра с помощью программы REGEDIT.EXE.
Sub SetOptionX() Dim intExclusiveDelay As Integer Dim intSharedDelay As Integer ' Принимает от пользователя новые значения параметров ' ExclusiveAsyncDelay и SharedAsyncDelay. intExclusiveDelay = Val(InputBox("Введите новое значение " & " параметра ExclusiveAsyncDelay " & "(в миллисекундах):")) intSharedDelay = Val(InputBox("Введите новое значение " & "параметра SharedAsyncDelay " & "(в миллисекундах):")) If intExclusiveDelay > 0 And intSharedDelay > 0 Then ' Изменяет значения параметров реестра. SetOption dbExclusiveAsyncDelay, intExclusiveDelay SetOption dbSharedAsyncDelay, intSharedDelay MsgBox "Параметры реестра получили новые " & "значения на время выполнения программы." Else MsgBox "Параметры реестра не были изменены." End If End Sub