Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#7

AW: Datensätze werden nicht in Tabelle gespeichert.

  Alt 7. Feb 2015, 10:50
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 Delphi-Referenz durchsuchenTThread.FatalException, die man dann ausgeben kann, wenn der Thread beendet wurde. Und zwar mit Delphi-Referenz durchsuchenTApplication.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)
  Mit Zitat antworten Zitat