ADODB.Connection.CommandTimeout
Здравствуйте!
Есть некоторый vba-скрипт, в котором использую доступ к БД MSSQL.
Public Con As New ADODB.Connection
Public Cmd As New ADODB.Command
Public Rst As New ADODB.Recordset
Con.CommandTimeout = 360
Con.Open "dsn=seleste;database=techotdel;Uid=sa;pwd=******;Database=Techotdel"
Cmd.CommandText = "select id, [name] from users"
Cmd.CommandType = adCmdText
Cmd.ActiveConnection = Con
With Rst
.Open Source:=Cmd, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
.MoveFirst
Do While Not .EOF
...
Loop
.Close
End With
Так вот. Если запрос выполняется больше 30 секунд, то excel выводит сообщение об ошибки. CommandTimeout выставляю больше - ничего не меняется. Как быть?
Есть некоторый vba-скрипт, в котором использую доступ к БД MSSQL.
Public Con As New ADODB.Connection
Public Cmd As New ADODB.Command
Public Rst As New ADODB.Recordset
Con.CommandTimeout = 360
Con.Open "dsn=seleste;database=techotdel;Uid=sa;pwd=******;Database=Techotdel"
Cmd.CommandText = "select id, [name] from users"
Cmd.CommandType = adCmdText
Cmd.ActiveConnection = Con
With Rst
.Open Source:=Cmd, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
.MoveFirst
Do While Not .EOF
...
Loop
.Close
End With
Так вот. Если запрос выполняется больше 30 секунд, то excel выводит сообщение об ошибки. CommandTimeout выставляю больше - ничего не меняется. Как быть?