ZeosLib AutoIncrento Delphi 7
Como posso fazer para criar um autoincrento com Zeos e Firebirb ?
Vagner.oliveira
Curtidas 0
Melhor post
Microbios
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:
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:
GOSTEI 1
Mais Respostas
Vagner.oliveira
07/01/2008
sobe
GOSTEI 0
Vagner.oliveira
07/01/2008
Obrigado e isso mesmo.
No evento OnNewRecord do Ztable1 Ficou assim:
No evento OnNewRecord do Ztable1 Ficou assim:
ZTable1.FieldByName(´INDICE´).Value := ZSequence1.GetNextValue;
GOSTEI 0
Fabio Gilberto
07/01/2008
No postgres é do mesmo jeito?
GOSTEI 0