problemas no interbase

Delphi

15/12/2005

antes coloquei somente uma parte do código... mas o código todo é este que segue... e não faz o auto incremento do cod_pol


/* Table: DADOS, Owner: SYSDBA */

CREATE TABLE ´DADOS´
(
´COD_POL´INTEGER NOT NULL,
´DESCR_POL´VARCHAR(15),
´MM_ALT_POL´FLOAT,
´MM_LARG_POL´FLOAT,
´PESO_POL´FLOAT,
´VALOR_POL´NUMERIC(15, 4),
CONSTRAINT ´DADOS_PRIMARY´ PRIMARY KEY (´COD_POL´)
);
SET TERM ^ ;


/* Triggers only will work for SQL triggers */

CREATE TRIGGER ´TRIG_DADOS_BI´ FOR ´DADOS´
ACTIVE BEFORE INSERT POSITION 0
AS BEGIN
IF(NEW.´COD_POL´ IS NULL) THEN NEW.´COD_POL´ = GEN_ID(´GEN_DADOS_COD_POL´, 1);
END
^

COMMIT WORK ^
SET TERM ;^


Adelor Silva

Adelor Silva

Curtidas 0

Respostas

Eixox

Eixox

15/12/2005

Eu não faço assim...

ACTIVE BEFORE INSERT POSITION 0


Eu faço assim

Create trigger
MeuGatilho for MinhaTabela BEFORE INSERT AS
BEGIN
New.campo = GEN_ID(Campo,1);
END


GOSTEI 0
Gandalf.nho

Gandalf.nho

15/12/2005

VC está usando que componentes de acesso?


GOSTEI 0
POSTAR