Шаг 41 - Свойство LoginTimeout

Описание
Задает или возвращает величину промежутка времени в секундах, по истечении которого возникает ошибка при попытке подключения к базе данных ODBC.

Значение
Задаваемое или возвращаемое значение является выражением типа Integer, представляющим величину интервала ожидания в секундах, по истечении которого возникает ошибка подключения. По умолчанию в свойстве LoginTimeout задается интервал 20 секунд. При заданном в свойстве LoginTimeout значении 0 ошибка превышения предельного времени подключения не возникает.

Замечания
Попытка подключения к базе данных ODBC, такой как Microsoft SQL Server, может оказаться неудачной в результате ошибок сети или в случае, когда сервер не работает. Вместо того чтобы ожидать подключения стандартные 20 секунд, можно указать величину времени ожидания, после которого возникает ошибка. Подключение к удаленному серверу может производиться неявно в результате выполнения ряда действий, таких как выполнение запроса к базе данных на сервере.
Свойство LoginTimeout можно применять для объекта DBEngine как в рабочей области Microsoft Jet, так и в рабочей области ODBCDirect. Для объекта Workspace свойство LoginTimeout является применимым только в рабочей области ODBCDirect. Задание значения -1 для данного свойства объекта Workspace задает использование в качестве значения по умолчанию текущего значения свойства DBEngine.LoginTimeout. Пользователь имеет возможность изменить значение данного свойства в объекте Workspace в любое время. Новая настройка вступит в силу при следующем открытии объекта Connection или Database.
Значение по умолчанию определяется драйвером ODBC. В рабочей области Microsoft Jet для замены стандартной настройки драйвера следует создать новую запись «ODBC» на пути реестра \HKEY_LOCAL_MACHINE\SOFTWARE\Jet\3.5\, создать в этой записи параметр LoginTimeout и задать для него требуемое значение.

Пример
Следующая программа задает в свойстве LoginTimeout объекта DBEngine величину интервала ожидания 120 секунд. Далее открываются три рабочие области ODBCDirect и изменяет в свойстве LoginTimeout значения, унаследованные от объекта DBEngine.

Sub LoginTimeoutX()

	' Изменяет стандартное значение свойства LoginTimeout.
	DBEngine.LoginTimeout = 120

	Dim wrkODBC1 As Workspace
	Dim wrkODBC2 As Workspace
	Dim wrkODBC3 As Workspace

	Set wrkODBC1 = CreateWorkspace("", "admin", "", dbUseODBC)
	Set wrkODBC2 = CreateWorkspace("", "admin", "", dbUseODBC)
	Set wrkODBC3 = CreateWorkspace("", "admin", "", dbUseODBC)

	' Задает для свойства LoginTimeout отдельных объектов 
	' Workspace ODBCDirect значение 60 секунд, значение 
	' по умолчанию (120 секунд) и отсутствие интервала ожидания.
	wrkODBC1.LoginTimeout = 60
	wrkODBC2.LoginTimeout = -1
	wrkODBC2.LoginTimeout = 0
	wrkODBC1.Close
	wrkODBC2.Close
	wrkODBC3.Close

End Sub

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