(Resolvido) Auto Increment Ibexpert Firebird

[Ricardo25]

E aê pessoal! Estou estudando delphi e peguei uns tutoriais aqui que ensinam a fazer um programinha.

Eu uso Firebird 1.5 e o IBexpert 2008 pra criar o banco.

Eu quero que o campo código da minha tabela seja auto increment.

Eu criei um generator e um Trigger. O código do Trigger é esse:

CREATE TRIGGER TABCONTA_BI FOR TABCONTA

ACTIVE BEFORE INSERT POSITION 0

AS

BEGIN

IF (NEW.CODIGO IS NULL) THEN

NEW.CODIGO = GEN_ID(GEN_TABCONTA_ID,1);

END

porém da esse erro aqui na hora que eu clico em "OK"

This operation is not defined for system tables.

unsuccessful metadata update.

DEFINE GENERATOR failed.

attempt to store duplicate value (visible to active transactions) in unique index "RDB$INDEX_11".

Alguém saberia porque da esse erro e como resolver isso? Se alguém souber e puder me ajudar a resolver eu agradeço!!! Sou meio novato =x

Editado Julho 19, 2010 por Ricardo25

[Ricardo25]

Resolvi aqui. <_<

Coloquei um código no delphi mesmo pra fazer a função do auto increment:

ClientDataSet1.Last;

prox:=ClientDataSet1.FieldByName('codigo').AsInteger +1;

ClientDataSet1.Append;

ClientDataSet1.FieldByName('codigo').AsInteger:=prox;

DBEdit2.SetFocus;

Bye! :closedeyes: