opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 20:00:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix: Handle errors which happen during "async" query execution.

Browse Source
This commit is contained in:
rosenfield
2007-10-05 13:03:24 +00:00
parent d616f1bdce
commit fccb838455
1 changed files with 16 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/mysqlquerythread.pas
View File

@ -231,6 +231,7 @@ begin
end; end;
end; end;
end else begin end else begin
try
if ExpectResultSet(FSql) then begin if ExpectResultSet(FSql) then begin
r := RunDataQuery (FSql,TDataSet(q),ex,FCallback); r := RunDataQuery (FSql,TDataSet(q),ex,FCallback);
if r then begin if r then begin
@ -243,6 +244,11 @@ begin
if r then SetState (MQR_SUCCESS,'SUCCESS') if r then SetState (MQR_SUCCESS,'SUCCESS')
else SetState (MQR_QUERY_FAIL,ex.Msg); else SetState (MQR_QUERY_FAIL,ex.Msg);
except
on E: Exception do begin
SetState (MQR_QUERY_FAIL,Format('%s', [E.Message]));
end;
end;
end; end;
end; end;