Abgebrochene ADOConnection wiederherstellen

[Iwo Asnet]

So eine Verbindung bekommt vom gezogenen Kabel nichts mit.
Stell Dir vor, Du machst das im Firmennetz und die Datei liegt auf einem Server in Honolulu und der dortige Admin stolpert über das Netzwerkkabel (klar, und wird gefeuert, der Depp).

Auf deinem PC ist die Welt so lange in Ordnung, bis Du versuchst, mit der Verbindung aktiv zu arbeiten. Bis dahin sagt die dir 'Alles in Butter, als mich hat noch niemand getrennt'.

Du kannst natürlich vor jeder Aktion prüfen, ob eine Verbindung besteht. Aber dazu musst Du irgend etwas mit der Verbindung anstellen. Einige Treiber machen das, indem Sie ein 'SELECT 1' schicken. Dieser Befehl wird im Server (den Du nun mal nicht hast, aber egal) verarbeitet und dann wird eine Tabelle bestehend aus einer Zeile und einer Spalte als Ergebnis geschickt. Wenn das klappt, ist die Verbindung ok. Das 'SELECT 1' ist deshalb beliebt, weil es kaum Last erzeugt.

Bei ACCESS müsste man das probieren, welcher Befehl schnell geht und trotzdem die Verbindung aktiv auffordert, sich mit der MDB-Datei zu beschäftigen.

Allerdings würde ich es einfach drauf ankommen lassen und bei einem Fehler die Verbindung neu aufbauen.

Alternativ kannst Du dir Gedanken über das 'Briefcase' Modell machen, bei der bewusst mit der Tatsache gearbeitet wird, das der Client nicht ständig Zugriff auf die Zentrale hat (Briefcase = Aktenkoffer => Außendienstmitarbeiter).

[Nico B.]

Hallo Leute,

ich habe jetzt eine Lösung für mein Problem gefunden.
Leider weiß ich zwar nicht wie man in meinem Fall einen Verbindungsausfall richtig erkennt, aber das Problem habe ich ein wenig umgangen. Das "SELECT 1" oder auch eine etwas tiefergehende Abfrage (bspw. nach dem ersten oder letzten Element einer bestimmten Tabelle) wie es mir von Iwo Asnet vorgeschlagen wurde, hat leider nicht funktioniert.

Hier mein Lösungsweg:
1. Ich gehe davon aus, dass die Verbindung zu meiner Datenbank immer besteht.
2. Über eine AppException fange ich alle Fehler meines Programms ab.
3. Entsteht der Fehler bei einer Datenbankabfrage versuche ich automatisch die Verbindung neu aufzubauen. Dazu trenne ich die Verbindung und starte anschließend einen TTimer.
4. Bei jedem Start des Timerevents versuche ich nun die Verbindung wieder aufzubauen.

Hier ein Teil des Quellcodes:

Delphi-Quellcode:

//im AppException-Event des Programms...
ADOC_CNC.Connected:=false;
Timer1.Enabled:=true;

//nun das Timer-Event...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Verbindung neu aufbauen
  try
    ADOC_CNC.Connected:=true;
    if ADOC_CNC.Connected
      then
        Timer1.Enabled:=false;
  except
    //Verbindungsaufbau gescheitert -> neuer Versuch im nächsten Event
  end;
end;

Damit ist zwar nicht alles geklärt, aber ich kann damit zumindest erst mal weiter.
Danke euch allen!

[Furtbichler]

Delphi-Quellcode:

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

Das sollte funktionieren.

[Nico B.]

Hallo Furtbichler,

ich habe deinen Code gerade einmal ausprobiert.
Leider erhalte ich damit immer (selbst nach aConnection.Connected:=false) ein true als Result.
Selbst wenn ich die Verbindung nie aufgebaut habe.
Das ist echt ein Phänomen...

[Iwo Asnet]

Na klar: Die Verbindung wird ja auch implizit aufgebaut.