Асинхронный запрос

[VVitafresh]

Запускаю запрос:

Код: Выделить всё

Public WithEvents rsSybr As ADODB.Recordset

Public Sub Select
     rsSybr.Open SQL, cn, adOpenStatic, adLockReadOnly, adAsyncFetch
End Sub

Private Sub rsSybr_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    Me.lblCount.Caption = rsSybr.RecordCount
End Sub


По идее ведь прогрмма должна "жить", на самом деле она замирает (Not responding) и висит так пока запрос не выполнится (минут 5), после чего вываливает данные в датагрид.
В чем может быть проблема? Может не все БД поддерживают асинхронные запросы (делаю запрос к Sybase ASE)?

[Konst_One]

sybase поддерживает, просто у тебя вызов не совсем верный.

adAsyncFetchNonBlocking надо, чтобы грид не застывал

[alibek]

Плюс к этому, RecordCount лучше не трогать.
Если тебе прогрессбар нужен, то есть MaxProgress.

[Ennor]

Опять-таки, adAsyncFetch дает тебе асинхронность только для вытяжки данных, но не для всей работы запроса. Может, он там у тебя эти 5 минут математику крутит, а потом за полсекунды возвращает на клиента несколько строк.

adAsyncExecute пробовал?

ЗЫ Это читал?
ЗЗЫ А это? Понимаю, что не совсем твой случай, но все-таки CursorType проверь...

[VVitafresh]

Почитал ответы, всем спасибо за участие!
Но я забыл сразу уточнить, что запрос у меня -- это вызов хранимой процедуры, возвращающей рекордсет. Поэтому мне подошел вариан, предложенный Ennor:

Код: Выделить всё

Public WithEvents cnn As ADODB.Connection

rsSybr.Open SQL, cnn, adOpenStatic, adLockReadOnly, adAsyncExecute

Private Sub cnn_ExecuteComplete(ByVal RecordsAffected As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pCommand As ADODB.Command, ByVal pRecordset As ADODB.Recordset, ByVal pConnection As ADODB.Connection)
    Me.lblCount.Caption = RecordsAffected 'Только кол-во записей не показывает почему-то
End Sub

А вот такой вариант не катит (программа висит до конца запроса):

Код: Выделить всё

rsSybr.CursorLocation = adUseClient
rsSybr.Properties("Initial Fetch Size") = 0
rsSybr.Properties("Background Fetch Size") = 1

rsSybr.Open SQL, cn, adOpenStatic, adLockReadOnly, adAsyncFetchNonBlocking

[Konst_One]

вот так надо:

Код: Выделить всё

    Set rsSMS = New ADODB.Recordset
    rsSMS.CursorLocation = adUseClient
    rsSMS.PageSize = 100
    rsSMS.CacheSize = 1000
    Set rsSMS.ActiveConnection = cn
    rsSMS.Open SQL, , adOpenStatic, adLockReadOnly, adAsyncFetchNonBlocking

[VVitafresh]

Konst_One, так я тоже пробовал по твоему примеру.
Проблема, наверное, в том что у меня ХП "5 минут математику крутит" (как выразился Ennor), а результат в рекордсет выдает довольно быстро.
ИМХО

adAsyncFetchNonBlocking

ждет пока не возвратится хотя бы одна запись и только тогда создает отдельный асинхронный поток и установка свойства:

Код: Выделить всё

rst.Properties("Initial Fetch Size") = 0

почему-то не помогает исправить ситуацию.

[Konst_One]

попробуй свою ХП выполнить в QA (в самой базе) и посмотри за какое время она выполняется.

[VVitafresh]

попробуй свою ХП выполнить в QA (в самой базе) и посмотри за какое время она выполняется.

QA в Sybase нет, зато есть SQL Advantage. Он при вызове ХП задумывается на те же ~5 минут, после чего выдает ~1000 записей результата. Так что конкретно в моем случае adAsyncExecute, наверное, более предпочтительный вариант. Даже события таймера отрабатывают (для создания иллюзии поиска изменением прогрессбара).