Script Interbase

[jacsonsoares]

Pessoal é possível gerar dois comandos atravéz de uma query normal.

Ex.:

CREATE TABLE TB_TESTE
(
  CD_TESTE    INTEGER NOT NULL
 PRIMARY KEY (CD_ETIQUETAS)
);

CREATE GENERATOR SQ_CD_TESTE_TB_TESTE;

CREATE TRIGGER TG_TESTE FOR TB_TESTE
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
 IF (NEW.CD_ETIQUETAS IS NULL) THEN
   NEW.CD_ETIQUETAS = GEN_ID(SQ_CD_TESTE_TB_TESTE,1);
END

Obrigado a todos

[jacsonsoares]

Achei ...

é preciso atualizar o Delphi 5 e o IBX

segue link:

http://www.ramosdainformatica.com.br/ser_d....php?CDN=7&VN=1