| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
асинхронное соединение с MySQL [MySQL]
nomadminded © (2007-01-10 12:46:00)доброго времени суток. помогите пожалуйста, никак не могу разобраться.
пробую установить асинхронное соединение с MySQL из delphi через ADODB библиотеку (ADOConnection.ConnectOptions:=coAsyncConnect; ADOCommand1.ExecuteOptions:=[eoAsyncExecute];)
посылаю на сервер большой SQL (INSERT) с помощью ADOCommand.Execute и продолжаю работать, пока он там выполняется. как мне узнать, что он закончил выполнение? каким образом можно это проверить?
спасибо заранее.
sniknik (2007-01-10 20:28:00) [1]> while form1.ADOCommand1.States = [stExecuting] do;
и зачем тебе тогда асинхронное выполнение?...
nomadminded (2007-01-10 20:24:00) [2]разобралась, спасибо.
while form1.ADOCommand1.States = [stExecuting] do;
nomadminded (2007-01-10 13:44:00) [3]сработывает только, когда открывается коннекшн, а когда заканчивается execute, эта процедура не запускается ): нет ли у ADOCommand чего-то подобного?
nomadminded (2007-01-10 13:28:00) [4]понятно, спасибо огромное, сейчас попробую.
sniknik (2007-01-10 13:22:00) [5]
Label1.Caption:= 'чтото стартовало!';
ADOCommand.Execute;
procedure TForm1.ADOConnection1ExecuteComplete(Connection: TADOConnection;
RecordsAffected: Integer; const Error: Error;
var EventStatus: TEventStatus; const Command: _Command;
const Recordset: _Recordset);
begin
Label1.Caption:= 'чтото выполнилось!';
end;
nomadminded (2007-01-10 13:17:00) [6]видела такое, но не понимаю как его использовать, не могу найти в инете примеры, требует какие-то параметры. не могли бы вы написать коротенький код с примером? (спасибо)
sniknik (2007-01-10 13:13:00) [7]> как мне узнать, что он закончил выполнение?
у ADOConnection есть событие onExecuteComplete
| |
