Как связать долгий SQL-запрос с ProgressBar'ом и отменой?

[A.A.Z.]

Если у меня есть большой SQL-запрос, в смысле, долгий по времени, например, сортировка в таблице с огромным количеством строк, как можно отобразить ход сортировки в ProgressBar'е, и можно ли его, при желании, как-то отменить?
Ведь, насколько я понимаю, вся сортировка выполняется одной строкой, типа:

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

Data1.RecordSource = "SELECT Column1, Column3, Column5 FROM Table ORDER BY Column2": Data1.Refresh

[RayShade]

Вопрос поднимался уже. Никак. Ибо запрос исполянется сервером, а сервер никаких событий не генерирует во время исполнения. Так что увы.

[A.A.Z.]

А какой-нибудь обходной способ существует?

[Konst_One]

Надо выполнять SQL-код в ассинхронном режиме и тогда все можно сделать.

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

'cn - ADODB.Connection
'rs - ADODB.Recordset
SQL="SELECT * FROM BigTable"
rs.Open SQL, cn, adOpenStatic, adLockReadOnly, adCmdText + adAsyncFetchNonBlocking


А дальше в эвентах коннекшена можешь свой прогресс-бар крутить на нужную величину. Не забудь кэш-сайз указать для рекордсета, на величину которого будет фетчиться.

[A.A.Z.]

А не через ADO? (У меня обычный VB.Data)

[Konst_One]

Обычный DAO не поддерживает ассинхронность

[A.A.Z.]

Блин!
А как-нибудь еще можно что-то подобное организовать (не через SQL)?

[alibek]

DAO таки поддерживает асинхронность, но с большими ограничениями. В частности MSJet и асинхронность несовместимы, нужно подключаться через ODBC (что сводит на нет все удобства DAO по сравнению с ADO).

[Konst_One]

2 alibek: Я ему и предложил решение через ADO. В чем у него проблема, не понимаю. Заменить Data-контрол на рекордсет?

[A.A.Z.]

Ладно, поробую. Спасибо!