SQL-Fehler abfangen

[xavior]

Ich hab folgendes Problem, ich schreibe gerade an einem Programm wo man mit Datenbanken arbeitet (ist ja woll klar!). In diesem Programm hab ich ein OpenDialog eingebaut, in dem man dann eine für das Programm passende Datenbank (GDB-Datei) auswählen kann. In dieser Datenbank hab ich eine Tabelle eingebaut die "Copyright" heißt, damit ich meinerseits (also vom Programm aus) überprüfen kann, ob in der Tabelle, genau die Daten drin stehen hat die ich eingegeben habe, falls ja startet das Programm ganz normal, falls nein gibts eine Fehlermeldung! Also mein Problem ist es das ich zwei überprüfungen brauche:

1. Ist die Tabelle "Copyright" vorhanden:
- Ja: Punkt 2. wird augerufen
- Nein: Fehlermeldung (Exception abfangen und meine eigene Fehlermeldung)

2. Wenn die Tabelle "Copyright" vorhanden ist überprüfe ob die Daten übereinstimmen:
- Ja: Programm starten
- Nein: Fehlermeldung

Punkt 2 hab ich schon hingekriegt! Ich kriege, dass mit den Exception Fehlern nicht hin und deswegen brauch ich Hilfe!

Ich hab das Folgender maßen versucht:

Delphi-Quellcode:

DBQuery.Close;
DBQuery.SQL.Clear;
try
 DBQuery.SQL.Text := 'SELECT * FROM Copyright';
except
 on WasKommtHierHin do UndWasKommtHirHin
end;
DBQuery.Open;
// und wie geht es weiter?

[edit=r_kerber]Code-durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]

[Sharky]

Hai xavior,

bevor man auf eine Exeption reagiert sollte man immer versuchen diese zu verhinden!
TDataBase hat die Methode .GetTableNames. Damit kannst Du ersteinmal prüfen ob die Tabelle vorhanden ist.

[xavior]

Also ich hab jetzt ein bisschen weiter geforscht udn dann ist mir das hier eingefallen:

Delphi-Quellcode:

try 
 DBQuery.SQL.Text := 'SELECT * FROM Copyright'; 
except 
 on Exception do ShowMessage('Fehler! Falsche Datenbank!');
end;

Geht das nicht auch so?

[edit=r_kerber]Code-durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]

[MrSpock]

Hallo Xavior,

die Zuweisung eines SQL Anweisung an das Query Objekt löst sicher noch keine Exception aus. Eine Exception kann erst bei Open bzw. ExecSQL ausgelöst werden.

[MarcusB]

Ich versuche mich mal als Anfänger mit dem Versuch einer Lösung, vielleicht kann ja einer der Profis mal ein Statement dazu abgeben, bzw. schreiben, wie man es besser machen könnte.

Delphi-Quellcode:

ok := False;

DBQuery.SQL.Clear;
DBQuery.SQL.Text := 'SELECT * FROM copyright';
DBQuery.ExecSQL;
DBQuery.Open;

if DBQuery.RecordCount > 0 then
begin
  with DBQuery do
  begin
    First;
    while not EOF do
    begin
      if DBQuery.FieldByName('copyright_text').AsString = deinCopyrightString then ok := True;
      Next;
    end;
  end;
end;

DBQuery.Close;

if ok then
begin
... //(dein Programm)
end
else
  Application.Terminate;

Grüße

MarcusB

[edit]Dataset.FieldByName durch DBQuery.FieldByName ersetzt. War ein Copy/Paste Fehler, sorry[/edit]

[Shylock]

Hallo zusammen,

zu dem eben geposteten Quelltext ersteinmal ein paar Anmerkungen:

1. Ein ExecSQL führt eine SQL Anweisung aus, die keine Datenmenge öffnet. Also z.B. UPDATE oder ein INSERT.
2. Die Methode open() dagegen wird bei einem SELECT angewendet.
3. Beides zusammen macht keinen Sinn.
4. Wenn ein TQuery Objekt benutzt wird, benötigt man in der Regel kein Dataset. Man kann direkt auf dem TQuery arbeiten.
Dieser Code müßte eigentlich beide oben beschriebenen Probleme lösen:

Delphi-Quellcode:

var
 ok :boolean;
begin
    try
        try
           with DBQuery do begin
                close;
                sql.clear;
                sql.Add('SELECT * FROM copyright');
                open;
                while not EOF do begin
               
                      if FieldByName('spalte').asString = 'wert' then ok := true;                                                      
                      next;
                end;
           end;
        except
           on e: Exception do begin
              MessageDLG('Fehler!. Tabelle copyright fehlt?'+#13+e.message,mtError,[mbOk],0);
              //Fehlerbehandlung, Programmende, oder was sonst passieren soll, wenn was schiefgeht
              exit;
           end;
        end;
     finally
            DBQuery .close; //WICHTIG Datenmenge wieder schließen
     end;
end;

Und jetzt noch ein Hinweis:
Bei der oben erwähnten Verwendung von TSession.getTableNames sollte man vorsichtig sein. Einem Kollegen von mir ist aufgefallen, dass diese Methode eine eigene Datenbankverbindung erstellt und diese nicht mehr schließt. Das kann zu Lizenzproblemen führen. Man hat als Programmierer auch keine Möglichkeit diese Verbindung "von Hand" wieder zu schließen.

Alle Angaben ohne Gewähr. Der Code wurde nicht getestet

[MarcusB]

Zitat:

1. Ein ExecSQL führt eine SQL Anweisung aus, die keine Datenmenge öffnet. Also z.B. UPDATE oder ein INSERT.
2. Die Methode open() dagegen wird bei einem SELECT angewendet.
3. Beides zusammen macht keinen Sinn.

Vielen Dank für den Hinweis, da hab ich wohl immer doppelt-gemoppelt.