AdoDB & RecordSet & TimeOut - VB

Узнай цену своей работы

Формулировка задачи:

люди... есть такой вот код...
Где PCol.ODBCfile - UDL файл! такая вот проста функция для вызова Sp... НО! Timeout по дефолту стоит 15 сек! ЭТО МАЛО! ЛЮДИ ДОБРЫЕ! ПОМОГИТЕ! надо это как переписать с мин изменениями чтобы таймоут поставить сколь надо...

Решение задачи: «AdoDB & RecordSet & TimeOut»

textual
Листинг программы
Dim cn as ADODB.Connection
Dim SQL as String
 
    Set cn=New ADODB.Connection
    cn.CommandTimeout=30
    cn.ConnectionTimeout=60
    cn.Open 'FILE NAME=' + PCol.AppPath + PCol.ODBCfile
 
    SQL=PCol.RemoteDB + '.' + PCol.User + '.' + PRName + ' ' + Params
 
    Set GetPR = New ADODB.Recordset
    Set GetPR.ActiveConnection=cn
    GetPR.Open SQL,,adOpenStatic, adLockReadOnly, False

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.75 из 5