Abgebrochene ADOConnection wiederherstellen

[Nico B.]

Hallo alle miteinander,

ich habe ein Problem mit einer ADOConnection und brauche eure Hilfe.

Ich habe eine Datenbankverbindung, die ab und an abbricht, weil mein Netzwerk zusammenbricht.
Nun habe ich schon verschiedene Möglichkeiten probiert, um die Verbindung nach dem Zusammenbruch wiederherzustellen.

Aktuell ist dies mein Quellcode zum Wiederaufbau der Verbindung:

Delphi-Quellcode:

//Globale Variable
var
  ADOC_CNC: TADOConnection;

//Funktion zum Test der Verbindung
function Test_CNCDB: boolean;
var
  slHilf: TStringList;
begin
  slHilf:=TStringList.Create;
  Result:=ADOC_CNC.Connected;
  try
    try
      if Result
        then
          ADOC_CNC.GetTableNames(slHilf);
    except
      Result:=false;
    end;
  finally
    slHilf.Free;
  end;
end;

//Funktion zum Herstellen der Verbindung
function Open_CNCDB: boolean;
begin
  Result:=true;
  try
    if Test_CNCDB
      then
        begin
          if Close_CNCDB
            then
              begin
                ADOC_CNC.ConnectionString:='...';
                ADOC_CNC.LoginPromt:=false;
              end
            else
              begin
                //Fehler beim Trennen der Verbindung
              end
        end
      else
        begin
          ADOC_CNC.ConnectionString:='...';
          ADOC_CNC.LoginPromt:=false;
        end;
    ADOC_CNC.Open;
  except
    Result:=false;
  end;
end;

//Funktion zum Trennen der Verbindung
function  Close_CNCDB:boolean;
begin
  Result:=true;
  try
    ADOC_CNC.Close;
  except
    Result:=false;
  end;
end;

//Nun das Wiederherstellen der Verbindung im eigentlichen Programm
if not Test_CNCDB
  then
    begin
      Close_CNCDB;
      if Open_CNCDB
        then
          //Wiederaufbau der Verbindung erfolgreich
        else
          //Verbindung konnte nicht wieder hergestellt werden
    end;

Habt ihr ne Idee, warum der Wiederaufbau der Verbindung nie klappt?
Ich probiere seit Tagen an diesem Code rum und bekomme es einfach nicht hin.

[sx2008]

Frage: greifst du wirklich auf eine MS Access Datenbank über das Netzwerk (also eine MDB-Datei auf einem freigebenen Verzeichis) zu?

[Furtbichler]

Zitat von sx2008:

Frage: greifst du wirklich auf eine MS Access Datenbank über das Netzwerk (also eine MDB-Datei auf einem freigebenen Verzeichis) zu?

Der Einwand ist berechtigt, beantwortet aber nicht die ursprüngliche Frage.

Ich mache es immer so:

Delphi-Quellcode:

Procedure DoDatabaseStuff;
  Procedure _InnerDoDatabaseStuff;
  Begin
    // Lesen, beschreiben whatever der DB.
  End;

Begin
  Try
    _InnerDoDatabaseStuff;
  Except
    Reconnect;
    _InnerDoDatabaseStuff;
  End
End;

Ich gehe davon aus, das die Verbindung ok ist ('happy path'). Wenn nicht, baue ich die Verbindung neu auf und versuche mein Glück nochmal.

Natürlich sollte man die Exception auswerten und nur bei Verbindungsproblemen neu verbinden, klar.

Bei Neuaufbau der Verbindung kann man
* Eine Meldung aufpoppen lassen
* Es mehrmals versuchen
* Durch eine eigene Exception den Programmfluss kontrolliert unterbrechen.

[Nico B.]

Hallo ihr beiden,

also erst mal zu sx2008:
Ja, ich greife auf eine mdb-Datei auf einem freigegebenen Verzeichnis zu (Data Source=\\123.123.123.132\ordner\datenbank.mdb). Aber wo liegt hier das Problem?

@Furtbichler:
Ich denke, wie man nun mitbekommt, dass ein reconnect notwendig ist, ist in meinem Fall erstmal zweitrangig. Mich interessiert eher, wie man den reconnect richtig macht, denn meiner funktioniert irgendwie nicht.
Ich mache den reconnect folgendermaßen:
1. Testen, ob die Verbindung noch besteht (dazu nehme ich meine Funktion Test_CNCDB)
=> 2. wenn nicht, dann Verbindung trennen (dazu nehme ich meine Funktion Close_CNCDB)
und anschließend Verbindung neu aufbauen (dazu nehme ich meine Funktion Open_CNCDB)

[Furtbichler]

1. Access über Netzlaufwerk: Schlecht, wegen Mehrbenutzerbetrieb usw. GANZ Schlect!
2. Wieso prüfen, ob die Verbindung besteht? Bau sie im Fehlerfall neu auf. Du könntest die Connection auch verwerfen und eine neue instantiieren.

Delphi-Quellcode:

MyADOConnection.Connected := False;
MyADOConnection.Connected := True;

Reicht doch, oder? Wenn das wider Erwarten nicht funktioniert, dann eben so:

Delphi-Quellcode:

MyADOConnection.Free;
MyADOConnection := TADOConnection.Create(Nil);
MyADOConnection.ConnectionString := MyConnectionString;
MyADOConnection.Connected := True;

Ich finde das simpel, viel simpler als deinen Ansatz.

[Nico B.]

Da bin ich wieder.
Ich wollte soeben probieren, ob es so einfach geht.
Habe dazu ein Testprogramm geschrieben.
Über einen Button kann ich die Verbindung herstellen
und über einen zweiten Button kann ich die Verbindung trennen.
Mit dem dritten Button kann ich die Verbindung testen.

So weit so gut.

Nun stelle ich die Verbindung her. -> Klappt.
Anschließend teste ich den Verbindungszustand. -> Klappt.
Dann ziehe ich das Netzwerkkabel von meinem Rechner.
-> Nun dürfte die Verbindung nicht mehr bestehen.
Ich teste also wieder den Verbindungszustand. -> Ergebnis: Verbindung besteht.
Das kann aber nicht sein!!!

Den Test der Verbindung habe ich über 3 verschiedene Wege probiert:
1. Über die Eigenschaft Connected der ADOConnection

Delphi-Quellcode:

if ADOC_CNC.Connected
  then //Verbindung besteht

2. Über eine Abfrage des Tabellenkopfes

Delphi-Quellcode:

try
  ADOQ_CNC.GetTableNames(Hilfsstringliste);
except
  //Verbindung unterbrochen
end;

3. Über eine Abfrage des Tabelleninhalts

Alle 3 Möglichkeiten funktionieren wie bei einer bestehenden Datenbankverbindung.
Warum?
Beziehungsweise was viel wichtiger ist, wie kann ich die Verbindung besser testen?