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