SQL connection Fehler abfangen

[Pet04]

Hallo,

ich habe folgendes Problem.
Ich möchte meine Datenbankverbindung anpassen und ein Dialog (ÄHNLICH wie UDL Datei) für den Bunutzer anzeigen lassen wenn die Datenbankverbindung fehl schlägt.

Ist zB. der DB-Name falsch kommt eine Fehlermeldung von Windows/SQLServer und das finally wird nicht mehr ausgeführt.

Benutze MSSQLServer 2008R2 Express

Delphi-Quellcode:

 // Verbindungsaufbau zum SQL Server
  ADOC_ChristDB.Connected := false;
  ADOC_ChristDB.ConnectionString := SQL_Server;
    try  
    ADOC_ChristDB.open;
  finally
    if ADOC_ChristDB.Connected = false then
    begin
      ADOC_ChristDB.close;
      OpenSQLServerForm := TOpenSQLServerForm.Create(Application); // 
      OpenSQLServerForm.ShowModal;      
      //Application.Terminate;
    end;
  end;

Danke für eure Hilfe

Grüße Pet

[timog]

Was passiert, wenn Du das try eine Zeile nach oben schiebst? Wäre ein except auf bestimmte Fehler hier nicht besser?

[Jasocul]

Zunächst mal müsstest du das open nach dem try machen. Da das open den Fehler verursacht, aber bei dir nicht im Schutzblock steht, kann das Finally nicht greifen.

Außerdem:
Nicht

Delphi-Quellcode:

if ADOC_ChristDB.Connected = false then

sondern

Delphi-Quellcode:

if not ADOC_ChristDB.Connected then

Das wurde im Forum schon so oft besprochen, dass ich es hier nicht nochmal erkläre.

[Pet04]

Sorry try ist verrutscht und ist vor open.
Mit except tritt das gleiche Problem auf.

Mit "IF not" ändert sich auch nichts.

Wenn ich einen Haltepunkt bei " ADOC_ChristDB.open;" setze und debugge funktioniert es.

[Jasocul]

Zitat:

Zitat von Pet04 (Beitrag 1404135)

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:

Zitat von Pet04 (Beitrag 1404182)

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:

Zitat von Pet04 (Beitrag 1404232)

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?

[Pet04]

Es kommt nur die Exception von open.

Beim debuggen springt er gar nicht in die Exeptions rein.

[jobo]

Gibt es nicht dieses Problem, wenn eine VCL Komponente (connection) in der IDE bereits geöffnet ist und dann beim Start / Formcreate sofort erneut diesen Zustand herstellen will?
(Ich bekomm es nicht mehr richtig zusammen, die in der IDE geöffnete Connection muss ja auch irgendwie richtig konfiguriert sein, sonst wäre sie nicht offen)

[Pet04]

So habe das Problem gefunden und gelöst.

Im OI stand die Eigenschaft "ConnectOption" auf "coAsyncConnect" :-D


Grüße Pet