Warum immer so kompliziert ?
Lasse das doch die Datenbank machen :
SQL-Code:
CREATE PROCEDURE SP (
NR INTEGER, FELDX)
AS
DECLARE VARIABLE AENDERN INTEGER;
BEGIN
AENDERN = -1;
SELECT NR FROM TABLEX WHERE (NR = :NR) INTO :AENDERN; /* falls nichts da, bleibt AENDERN = -1 */
IF (AENDERN < 0) THEN BEGIN /* noch nicht vorhanden */
INSERT INTO TABLEX (NR,FELDX)
VALUES (:NR,:FELDX);
END
ELSE BEGIN
/* UPDATE, nichts tun oder sonstwas */
END
SUSPEND;
END^
SET TERM ; ^
Lege im Programm eine FIBStoredProcedure an, übergebe die Parameter, ausführen mit SP.ExecProc und fertig.
P.S.: wo kommen auf einmal so viele FIBPlus-User her ?
P.S.: das wäre die "Holz-Methode", aber ohne Hammer.
P.S.3 : SP war nicht richtig, Hektik.