Я создаю пользовательский интерфейс для некоторых "тяжелых" процедур SQL Server.Я хочу позволить пользователю запрашивать несколько «заданий» для асинхронного запуска на SQL Server.
Я вызываю функцию из-под кнопки, которая создает ADODB.COMMAND для выполнения асинхронного SQL.
Function ExecQdef(qDef As QueryDef, tSql As String)
DoEvents
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = "DSN=TFTEA_Template2;MultipleActiveResultSets=True;" 'conn
cmd.CommandText = tSql
Debug.Print cmd.CommandText
cmd.Execute tSql, , adAsyncExecute
Set cmd = Nothing
End Function
Вторая функция таймера считывает таблицу прогресса и сообщает о результатах «задания».
Отлично работает, если пользователь запрашивает одно или два «задания».Если они отправляют третью или более, я ничего не получаю, как и третья команда. Execute игнорируется.
sp_who2 показывает, что мое приложение получает только 2 сеанса.sp_configure'd его, чтобы разрешить 20. Без изменений.
Попытка добавления настройки MARS в ODBC.Без изменений.