Fix crash when trying to stop current query and the helper connection cannot connect for some reason.

This commit is contained in:
Ansgar Becker
2023-10-20 07:14:35 +02:00
parent 0c94e93198
commit ab33f73d07

View File

@ -13448,9 +13448,9 @@ begin
Killer.Parameters := ActiveConnection.Parameters; Killer.Parameters := ActiveConnection.Parameters;
Killer.LogPrefix := _('Helper connection'); Killer.LogPrefix := _('Helper connection');
Killer.OnLog := LogSQL; Killer.OnLog := LogSQL;
try
Killer.Active := True; Killer.Active := True;
KillCommand := Killer.GetSQLSpecifity(spKillQuery, [ActiveConnection.ThreadId]); KillCommand := Killer.GetSQLSpecifity(spKillQuery, [ActiveConnection.ThreadId]);
try
Killer.Query(KillCommand); Killer.Query(KillCommand);
except except
on E:EDbError do begin on E:EDbError do begin