Code: Alles auswählen
CREATE TABLE PARAM (
"ID" INTEGER NOT NULL,
"ParNr" INTEGER DEFAULT NULL,
"ParName" VARCHAR(40) CHARACTER SET UTF8 DEFAULT NULL,
"Land" VARCHAR(5) CHARACTER SET UTF8 DEFAULT NULL,
"ValInt" INTEGER DEFAULT NULL,
"ValFloat" double precision DEFAULT NULL,
"ValText" VARCHAR(250) CHARACTER SET UTF8 DEFAULT NULL,
"AendDatum" TIMESTAMP DEFAULT 'NOW',
CONSTRAINT PARAM_ID_PX PRIMARY KEY ("ID")
);
CREATE GENERATOR PARAM_ID_GEN;
COMMIT WORK;
SET TERM ^ ;
CREATE TRIGGER PARAM_ID_SET FOR PARAM BEFORE INSERT AS
BEGIN
IF ((NEW.ID IS NULL) OR (NEW.ID = 0)) THEN
NEW.ID = GEN_ID(PARAM_ID_GEN, 1);
END^
SET TERM ; ^
COMMIT WORK;
INSERT INTO PARAM ("ParNr", "ParName", "Land", "ValInt", "ValFloat", "ValText") VALUES
(1, 'DB-Version', NULL, NULL, NULL, 'V0.0.10A21');
COMMIT WORK;Code: Alles auswählen
q.SQL.Text := 'SELECT ValText FROM param WHERE ParNr=1';
q.Open;
Test_Zeos.zipCode: Alles auswählen
CREATE TABLE ADRESSE (
ID INTEGER DEFAULT 0 NOT NULL,
ANREDE CHAR(20),
NAME CHAR(40),
STRASSE CHAR(40),
ORT CHAR(40) NOT NULL);Code: Alles auswählen
INSERT INTO ADRESSE (ID, ANREDE, NAME, STRASSE, ORT)
VALUES (
0,
'Herr',
'Müller',
'Teststr',
'Testort'
)Code: Alles auswählen
CREATE TABLE ADR (
ID INTEGER NOT NULL,
BEZEICHNUNG VARCHAR(50) CHARACTER SET UTF8 NOT NULL,
AENDDATUM TIMESTAMP DEFAULT 'NOW',
CONSTRAINT ADR_ID_PX PRIMARY KEY (ID)
);
CREATE GENERATOR ADR_ID_GEN;
COMMIT WORK;
SET TERM ^ ;
CREATE TRIGGER ADR_ID_SET FOR ADR BEFORE INSERT AS
BEGIN
IF ((NEW.ID IS NULL) OR (NEW.ID = 0)) THEN
NEW.ID = GEN_ID(ADR_ID_GEN, 1);
END^
SET TERM ; ^
COMMIT WORK;
Verein
Links
Suche