Zeos Autoincremento

Question

Bom dia,Estou testando o componente de acesso � BD ZEOS (Delphi 6 + Interbase 6). Tenho uma trigger utilizada para incrementar um campo c�digo (new.campo = gen_id(generator,1)).Acontece que a trigger ...

Outl@w · Answer

sobe...

Jener · Answer

Colega, primeiramente gostaria de lhe passar uma dica que recebi qdo comecei a trabalhar com Delphi (ainda na vers�o 3). No que se trata de acesso a dados use sempre os componentes nativos da IDE. No entanto uma tangente seria fazer o auto-incremento em sua pr�pia aplica��o (� o que sempre fa�o).
Ex.:
Try
Begin
With QryCentroCusto do
Begin
Active:=False;
SQL.Clear;
SQL.Add(�Select * From CENTROCUSTO�);
Active:=True;
If IsEmpty then
Codigo:=1
Else
Begin
Active:=False;
SQL.Clear;
SQL.Add(�Select Max(Cast(Codigo as Integer))�);
SQL.Add(�From CENTROCUSTO�);
Active:=True;
Codigo:=FieldByName(�Max�).AsInteger+1;
End;
End;
TxtCodigo.Text:=FormatFloat(�000000�,Codigo);
End
Except
Begin
Application.MessageBox(�N�o foi poss�vel iniciar um novo registro. A opera��o ser� cancelada.�,�Novo�,MB_OK+MB_ICONWARNING);
BtnCancelar.Click;
End;
End;

F�rum Zeos Autoincremento #287737