Шаг 20 - Метод SetOption

Описание
Временно переопределяет значения параметров для записей ядра базы данных 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

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