die Query_Ziel.Execsql in ein Try Except kapseln und im Except Bereich die Fehlermeldung auswerfen
Delphi-Quellcode:
try
Query_Ziel.ExecSQL
except
on e:
Exception Do // EIBError wie das bei IBO genau heißt weiß ich nicht
Begin
s := e.
message;
Showmessage(s);
End
Else
Begin
s := ExceptObject.ClassName;
Showmessage(s);
End;
end;
und dann ggf die Fehlermeldung posten
Bitte nicht!
Die Vorgehensweise zur Ausführung eines
SQL-Statements ist immer diese hier
Delphi-Quellcode:
Connection.StartTransaction;
try
Query.ExecSQL;
Connection.Commit;
except
Connection.Rollback;
raise;
end;
Um die Anzeige der
Exception kümmert sich die Anwendung
TApplication
, denn die zeigt dann diese gefürchtete MessageBox mit dem Stoppzeichen an.
In einem Thread sieht das anders aus, da befindet sich die
Exception in
TThread.FatalException, die man dann ausgeben kann, wenn der Thread beendet wurde. Und zwar mit
TApplication.ShowException oder indem man einfach eine neue
Exception wirft, die ja dann auch von der Anwendung automatisch angezeigt wird.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)