Если твое доп окно не всегда обязательно для работы, то можно заполнять асинхронно (только общее время выполнения запроса увеличивается) А можешь вообще убрать это окно и сделать отдельную кнопку для его вывода. Кому надо - нажмет и подождет
Асинхронно лучше по таймеру. В событие Timer() прописываешь что-то типа
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
local llFirst
if empty(thisform.nSQL)
SQLSetProp( 0 , 'DispWarning', .F.)
SQLSetProp( 0 , 'DispLogin', 3 )
thisform.nSQL = SQLStringConnect("Driver={SQL Server};SERVER=...;DATABASE=...;UID=...;Pwd=...")
if thisform.nSQL < 0
MessageBox('Не удалось соединиться с SQL-сервером')
thisform.nSQL = 0
else
SQLSetProp(thisform.nSQL, "Asynchronous", .t.)
llFirst = .t.
endif
endif
if thisform.nSQL > 0
if llFirst
lnRet = SQLExec(thisform.nSQL, ThisForm.edtQuery.value, "res")
else
lnRet = SQLExec(thisform.nSQL, '')
endif
do case
case lnRet < 0
aerror(laErr)
MessageBox('Ошибка № ' + str(laErr[ 1 , 1 ]) + ' ' + laErr[ 1 , 2 ])
SQLDisconnect(thisform.nSQL)
thisform.nSQL = 0
case lnRet > 0
* Здесь обрабатываем полученное
SQLDisconnect(thisform.nSQL)
thisform.nSQL = 0
endcase
endif
if thisform.nSQL = 0
this.Interval = 0
endif
