Connected=True während der ganzen Programmlaufzeit ?

[alzaimar]

Zitat von Hansa:

Bring mal Beispiel.

So etwa.

Delphi-Quellcode:

Function ExecuteSQL (Const anSQLStmt : String) : TExecuteResult;
  Procedure _InnerExecute;
  Var
    iRetryCount : Integer;

  Begin
    Result := erNone;
    iRetryCount := 0;
    Repeat
      Try
        Connection.Execute (anSQLStmt);
        Result := erOK;
      Except
        On E:EDeadLockException Do Begin
          Result := E.SQLResult;
          inc (iRetrycount);
          Sleep (DELAY_ON_DEADLOCK);
        End;
        On E:ESQLException Do
          Result := E.SQLResult;
      End;
    Until (Result <> erNone) or (RetryCount = MAXRETRIES_ON_DEADLOCK); // z.B. 3
  End;

Begin
  Try
    _InnerExecute;
  Except
    On E:ELostConnectionException Do Begin
      Reconnect;
      _InnerExecute;
    End
  End
End;