SQL connection Fehler abfangen

[Jasocul]

Zitat von Pet04:

Mit "IF not" ändert sich auch nichts.

Das war generell gemeint und nicht auf das aktuelle Problem bezogen. Ein Vergleich auf True oder False kann in seltenen Fällen zu unerwarteten Fehlern führen.

Zum Thema:
Wenn die Connection fehlgeschlagen ist, also Connected auf False steht, solltest du kein Close der Connection mehr machen. Eventuell (kann ich hier nicht testen) führt das zu einer weiteren Exception. Dadurch würde der Rest im Finally-Block nicht mehr ausgeführt. Warum es dann beim Debuggen trotzdem durchlaufen wird, kann ich dir so nicht sagen.

[Pet04]

Leider hat das mit der "ADOC_ChristDB.close;" auch nichts gebracht.

[HolgerX]

Hmm..

Hast Du dass mal mit einer Fehlerausgabe getest?
Nach folgendem Schema?

Delphi-Quellcode:

  ADOC_ChristDB.CLose;
  ADOC_ChristDB.ConnectionString := SQL_Server;
  try
    ADOC_ChristDB.Open;
  except
    // OLE-Exception von MS/ADO
    on e: EOLEException do begin
      // Zum Testen!!
      ShowMessage('[' + E.ClassName + '] ' + IntToHEX(E.ErrorCode,8) + ' ' + E.Source + #13#10 + E.Message);
      // Hier könnte auf den spezifischen ErrorCode von Microsoft reagiert werden!!!

      //OpenSQLServerForm := TOpenSQLServerForm.Create(Application); //
      //OpenSQLServerForm.ShowModal;
    end;
    // Andere Exception
    on e: Exception do begin
      ShowMessage(E.Message);
    end;
  end;

(Aus dem Kopf herunter getippt...)

[Pet04]

Problem besteht immer noch. Auf mit OLEExeption.

[Jasocul]

Ich habe den Verdacht, dass du an der falschen Stelle suchst.
Mache mal zwischen jedem schritt ein ShowMessage, damit du siehst, wie weit dein Programm kommt.
Meine Vermutung ist, dass der Fehler im TOpenSQLServerForm.Create(Application) entsteht. Aber das ist nur Spekulation.

[HolgerX]

Hmm..

Zitat von Pet04:

Problem besteht immer noch. Auf mit OLEExeption.

Hast Du meinen Source mit dem ShowMessage verwendet (Auskommentierter Dialog)?

Wenn ja, was wird den als Fehler angezeigt?

[Pet04]

es kommt die Fehlermeldung
"Cannot open database "dbname" requested by Login. The Login failed"

diese Meldung kommt wohl von open und das except wird wohl nicht mehr ausgeführt.

[HolgerX]

Hmm..

Zitat von Pet04:

es kommt die Fehlermeldung
"Cannot open database "dbname" requested by Login. The Login failed"

diese Meldung kommt wohl von open und das except wird wohl nicht mehr ausgeführt.

Dass das Open den Fehler schmeißt ist Richtig, wenn jedoch die Exeption nicht vom Ty.. except gepackt wird, dann ist hier wohl was anderes nicht OK...

Wenn Du mein Muster-Src verwendet hast, sollte zum einen im Debugger (beim Open) die Fehlermeldung kommen und anschließend von der Exception ein ShowMessage.

Bei OLE-Fehlern (und hierzu gehört dein Fehler) sollte auch der FehlerCode kommen, bei allen anderen nur der Text.

Deshalb: Welcher Text wird wann angezeigt, mit oder ohne OLE-Fehlercode?