Wie wäre es mit Try-Except?
Delphi-Quellcode:
Try
DoTheUpdate();
ShowMessage('Hurra! Daten eingetragen');
Except
ShowMessage('Mist, irgendwas ging schief');
End;
Man kann die
Exception auswerten, denn wenn Du sowieso auf die
BDE setzt, dann kannst Du auch mit den entsprechenden Exceptions rechnen.
Du könntest auch ein Skript zusammenbauen... In der
BDE gibt es diese sehr sinnige TUpdateSQL, und im UpdateSQL-Skript solltest Du mit der IF EXISTS - Abfrage zum Ziel kommen. Du müsstest nur noch auswerten, wie viel Records (0 oder 1) verändert wurden. Mit ein wenig Glück sagt dir die Komponente das. Und wenn nicht, schaust Du einfach nach oder machst einen UPDATE-Trigger... Das ist aber dann von hinten durch die Brust ins Auge, geht aber.