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.LogPrefix := _('Helper connection');
Killer.OnLog := LogSQL;
Killer.Active := True;
KillCommand := Killer.GetSQLSpecifity(spKillQuery, [ActiveConnection.ThreadId]);
try
Killer.Active := True;
KillCommand := Killer.GetSQLSpecifity(spKillQuery, [ActiveConnection.ThreadId]);
Killer.Query(KillCommand);
except
on E:EDbError do begin