Fórum ZeosLib AutoIncrento Delphi 7 #351488

07/01/2008

0

Como posso fazer para criar um autoincrento com Zeos e Firebirb ?


Vagner.oliveira

Vagner.oliveira

Responder

Post mais votado

10/01/2008

Use o componente da paleta Zeos Chamado TzSequence. Configue as propriedades Connection para o seu componente TzConnection e a propriedade SEQUENCE_NAME para o gerador que você criou na sua tabela.
No componente TTABLE (que presumo esteja usando a da paleta ZEOS) aponte a propriedade Sequence para o componente TzSequence configurado.
Aponte a propriedade da TTABLE SEQUENCE_FIELD para o campo que contém o autoincremento do GENERATOR. Depois basta ir no evento ONNEWRECORD da TTABLE e adicionar a linha que cito abaixo como exemplo de acordo com as suas configurações.

dm.tblClientes.FieldByName(´Codigo´).Value := sqClientes.GetNextValue;


Quando você incluir um novo código na tabela, o generator será disparado e retornará o código correspondente.


Qualquer dúvida, retorne e a gente vai tentar resolver!


Abraços!

:lol:


Microbios

Microbios
Responder

Gostei + 1

Mais Posts

09/01/2008

Vagner.oliveira

sobe


Responder

Gostei + 0

10/01/2008

Vagner.oliveira

Obrigado e isso mesmo.

No evento OnNewRecord do Ztable1 Ficou assim:
ZTable1.FieldByName(´INDICE´).Value := ZSequence1.GetNextValue;



Responder

Gostei + 0

14/07/2017

Fabio Gilberto

No postgres é do mesmo jeito?
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar