SQL-Fehler abfangen

[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