Catching Exception in Async TADOQuery

[NiMuSi]

Hi All,

I am using Delphi 2010 to run Asynchronous queries.

whosrdaddy's code example from thread102-1764605 allows me to cancel long running queries. I now need to catch exceptions in my Async ADOQuery. For example, if I run this query "SELECT * FROM NotATable" (where the table does not exist), should exit with the message invalid object name, but the app just hangs. The message only shows once I stop the app. The same thing happens with a timeout.

How can I capture these events, ie there is an error in the SQL or a timeout has occurred?

Grateful for any advice,
NiMuSi

 

[whosrdaddy]

Hi NiMusi,

you can add an OnExecuteComplete eventhandler to your TADOConnection object:

procedure TForm1.ADOConnection1ExecuteComplete(Connection: TADOConnection; RecordsAffected: Integer; const Error: Error;
                                               var EventStatus: TEventStatus; const Command: _Command; const Recordset: _Recordset);
begin
 if EventStatus = esErrorsOccured then
  begin
   memo1.Lines.add(Error.Description);
   // recover from error
   Button1.Caption := 'Start';
   Button1.Tag := 0;
  end;
end;

-----------------------------------------------------
Helping people is my job...

 

[NiMuSi]

Thank you, whosrdaddy.

NiMuSi