Abgebrochene ADOConnection wiederherstellen

[Furtbichler]

Delphi-Quellcode:

Function ConnectionIsValid (aConnection : TADOConnection);
Begin
  Try
    aConnection.Execute('SELECT 1');
    Result := True
  Except
    Result := False
  End
End;

Das sollte funktionieren.