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