[Firebird] Trigger/Generatoren anlegen

[Tom70]

Mit einer SP könnte dasso aussehen:

Delphi-Quellcode:

CREATE PROCEDURE TEST_INSERT (
      TEXT VARCHAR (10))
RETURNS (ID INTEGER)
AS
BEGIN
-- ID von Generator holen
ID = GEN_ID(TEST_ID_GEN, 1);

-- Daten einfügen
  INSERT INTO TEST (
    ID,
    TEXT)
  VALUES (
    :ID,
    :TEXT);
    SUSPEND;
END