Фоновый режим работы программы

[alviga]

Есть процедуру подключения к удаленному SQL серверу, которая просто вешает приложение на несколько минут. Возможно ли ее выполнить в фоновом режиме.

[FaKk2]

Есть процедуру подключения к удаленному SQL серверу, которая просто вешает приложение на несколько минут. Возможно ли ее выполнить в фоновом режиме.

DoEvents пробовали?

[alviga]

А примерчик можно ?

[alviga]

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

[FaKk2]

А примерчик можно ?

Хмм....
Вот, м том месте где у тебя стоит вызов процедуры, поставь DoEvents

[alviga]

Да но странное дело, что doevent не помогает, все равно приложение виснет.
В Дельфи есть функци Application.ProcessMessage
что можно придумать в VB

[FaKk2]

Да но странное дело, что doevent не помогает, все равно приложение виснет.
В Дельфи есть функци Application.ProcessMessage
что можно придумать в VB

DoEvents
хотя это возможно была опечатка.
Если, да, то я не знаю чем помочь. Подожди, кто нибудь обязательно ответит

[Георгий]

Сдается мне, господа, вы несколько не верно трактуете DoEvents и Application.ProcessMessage.

Они останавливают выполнение вашей программы и дают системе обработать сообщения. Однако если имеет место вызов типа SomeRecordSet.ExecSQL или что-то в этом духе, то DOEvents тут не поможет. Это один вызов и Вы не можете вставить ему в середину DoEvents.

Но выход есть: Сама по себе выборка из удаленной базы данных - это отправка запроса и получение ответа по протоколу сервера. Берешь чистый TCP сокет и реализуешь на нем протокол сервера - дальше все просто. Выборка поделилась на две части - запрос - ответ.
Между ними делай что хочешь.

Но стоит ли игра свеч? Покажи табличку типа: "Работаем..." до запроса и убери ее после - все дела [/b]

[alibek]

Если делается выборка, то можно в методе Execute указать, что запрос асинхронный. Тогда ничего зависать не будет. Делается примерно так:

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

...
Public WithEvents MyCnn As ADODB.Connection
...
Private Sub MyCnn_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)
MsgBox "Выборка сделана"
End Sub
...


Но насколько я понял вопрос, тебе нужно асинхронное подключение к серверу, а как это сделать, я не знаю. Правда у объекта Connection есть событие WillConnected, попробуй поэкспериментировать.

[Георгий]

Не пойму, где тут указание, что вызов асинхронный

[alibek]

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

MyCnn.Execute "select * from mytable", , adAsyncExecute

Эта команда запустит асинхронный запрос. Когда он отработает, будет вызвано событие MyCnn_ExecuteComplete