Einzelnen Beitrag anzeigen

Texas

Registriert seit: 15. Jul 2005
Ort: Laatzen
56 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

EXCEPTION aus Firebird in messagebox anzeigen

  Alt 22. Feb 2008, 19:31
Datenbank: Firebird • Version: 2.0 • Zugriff über: FIBPlus
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.
Michael
  Mit Zitat antworten Zitat