Einzelnen Beitrag anzeigen

Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
395 Beiträge
 
Delphi 10.4 Sydney
 
#1

Im Trigger abfragen ob Datensatz existiert

  Alt 18. Nov 2022, 14:32
Datenbank: Firebitd • Version: 2.5 • Zugriff über: IBO
Hallo,

gibt es ein Möglichkeit im Trigger abzufragen ob ein Datensatz existiert. Etwa so:
Delphi-Quellcode:
Select count(PATIENTNR) from tbl_patdiagnose PD where PD.suchwort = :New.SUCHWORT and PD.patientnr = :New.PATIENTNR;
 if (Count) = 0 then
 begin
   INSERT INTO TBL_PATDIAGNOSE(
                 PATDIAGNOSENR, PATIENTNR, DATUM, DAUERDIAGNOSE, DIAGNOSE,
                 ANLAGE, ANLAGEBENUTZER, DIAGNOSENR, Suchwort, ReferenzTabelle, ReferenzNr)
          VALUES (
                 Gen_ID(GEN_TBL_PATDIAGNOSE,1), new.PATIENTNR, new.BEHANDLUNGSDATUM, 'N', new.Text,
                 new.Anlage, new.ANLAGEBENUTZER, new.GEBUEHRENNR, new.Suchwort, 'PB', new.PatBlattNr);
 end;
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat