SQL-Fehler abfangen

[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]