Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi EXCEPTION aus Firebird in messagebox anzeigen (https://www.delphipraxis.net/109012-exception-aus-firebird-messagebox-anzeigen.html)

Texas 22. Feb 2008 19:31

Datenbank: Firebird • Version: 2.0 • Zugriff über: FIBPlus

EXCEPTION aus Firebird in messagebox anzeigen
 
Hallo,

ich möchte eine exception die ich in einer Firebird DB erstellt habe in einem Messagedlg anzeigen.

Bis jetzt bekomme ich aber neben der Exception Meldung noch alles andere mit angezeigt. Fehlernummer
Triggername etc. Ich möchte aber nur die von mir vorgegebene Meldung erhalten.


SQL-Code:
CREATE TRIGGER A_ARTIKEL_BI1 FOR A_ARTIKEL
ACTIVE BEFORE INSERT POSITION 1
AS
BEGIN
  if (EXISTS(SELECT A_NUMMER FROM A_ARTIKEL WHERE (A_NUMMER = NEW.A_NUMMER ))) THEN
    exception doppel ;
END
Dann sollte im Messagedlg z.B. Stehen "Die Artikelnummer wurde bereits vergeben ..."

Vielleicht habe ich ja einen Denkfehler und muss die Sache nicht über einen Trigger aufrufen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:05 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz