Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
395 Beiträge
Delphi 10.4 Sydney
|
Im Trigger abfragen ob Datensatz existiert
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
|
|
Zitat
|