fix: automatic reconnect when firing query on a disconnected SQL server connection

Refs #2334

Author: ansgarbecker

source/dbconnection.pas

@@ -3620,6 +3620,11 @@ function TAdoDBConnection.Ping(Reconnect: Boolean): Boolean;
       if Reconnect then
         Active := True;
     end;
+  end
+  else begin
+    // Not active currently, reconnect
+    if Reconnect then
+      Active := True;
   end;
   Result := FActive;
   // Restart keep-alive timer
@@ -3691,6 +3696,11 @@ function TInterbaseConnection.Ping(Reconnect: Boolean): Boolean;
   Log(lcDebug, 'Ping server ...');
   if FActive then begin
     FFDHandle.Ping;
+  end
+  else begin
+    // Not active currently, reconnect
+    if Reconnect then
+      Active := True;
   end;
   Result := FActive;
   // Restart keep-alive timer