Trigger nao funciona!

Delphi

28/03/2003

Olá p/ tds,

Eu criei um trigger p/ fazer um incremento automático no campo código do meu cadastro.
O problema é q ele ñ está funcionando. Abaixo os códigos:

Create Generator Codigo_Paciente;
Set Generator Codigo_Paciente to 0;
Set Term ^;
Create trigger
Gatilho_Codigo_Paciente for Paciente Before Insert as
begin
New.Codigo=Gen_id(Codigo_Paciente,1);
end ^
set term;^

Alguem tem alguma idéia do q está acontecendo? Existe a necessidade de
setar
alguma propriedade do campo q irá receber o código automático?
Detalhe: trabalho c/ Delphi 7, IB 6 e DBExpress e é a 1ª vez q monto um
trigger.
Qquer ajuda será bem vinda...


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

28/03/2003

Tente os códigos abaixo:

//Criar o Generator
CREATE GENERATOR [color=red:ce23aa734e]GEN_CLIENTES[/color:ce23aa734e];

//Criar a Trigger
CREATE TRIGGER TRIG_ID_CLIENTE FOR CLIENTES
ACTIVE BEFORE INSERT POSITION 0 AS
BEGIN
NEW.[color=green:ce23aa734e]ID_Cliente [/color:ce23aa734e]= GEN_ID([color=red:ce23aa734e]Gen_clientes[/color:ce23aa734e], 1);
END

//A palavra em Verde é o Campo de sua tabela e as palavras em vermelho é o nome escolhido para seu Generator


GOSTEI 0
POSTAR