retornar o c�digo gerado (auto-incremento) para a aplica��o

Question

quero que ap�s inserir um registro, a aplica��o receba qual foi o c�digo que o banco gerou no auto-incremento.ou seja, tenho uma tela de cadastro de Clientes, quando pesso um novo (insert) o campo c�d...

Edilcimar · Answer

eu fa�o assimAppend;With IBQuery1 doBegin   Close;   SQL.Clear;   SQL.Add(�Select gen_id(CLIENTES_NUMCLIENTE_GEN, 1) from RDB$DATABASE�);    IBQuery1.Open;   NumCliiente := IBQuery1.Fields[0].AsInteger;End;e depois pego a vari�vel NumCliente e jogo para dentro do banco, no campo autoincremento...

Thomaz_prg · Answer

Basta dar um refresh na tabela....

Raserafim · Answer

thomaz, n�o posso fazer assim pois a query que est� ligada ao form s� retorna o registro que eu digo qual � o c�digo. ou seja, no momento que eu der um refresh na tabela, tenho que passar como par�metro para a query o c�digo do cliente.

Mas se o par�metro j� foi passado, ele ainda ter� em mem�ria o �ltimo valor lan�ado, sendo assim, voc� pode usar normalmente o Refresh.

Raserafim · Answer

edilcimar, apesar de a sua forma funcionar, fiquei me perguntando se realmente seria a melhor. vi uma brexa a�, mas confesso que � pouco prov�vel.
vc est� olhando o valor do auto0incrmento atual logo ap�s o registro ser salvo, mas e se algu�m tb salvar um registro no intervalo de vc salvar o seu e ver o gen_id? assim vc vai ter um valor errado.

acho q o ideal seria que ap�s salvar o registro, a aplica��o receber o valor que foi utilizado. mas como a aplica��o vai saber isso? eis a quest�o.

Edilcimar · Answer

aquilo acontece ap�s o append e antes do post, portanto se outro usu�rio incluir um n�mero o gerador ir� fornecer um n�mero subseq�ente...

Thomaz_prg · Answer

[quote:8b57370189]thomaz, n�o posso fazer assim pois a query que est� ligada ao form s� retorna o registro que eu digo qual � o c�digo. ou seja, no momento que eu der um refresh na tabela, tenho que passar como par�metro para a query o c�digo do cliente.[/quote:8b57370189]Mas se o par�metro j� foi passado, ele ainda ter� em mem�ria o �ltimo valor lan�ado, sendo assim, voc� pode usar normalmente o Refresh....

Raserafim · Answer

thomaz, o problema maior � com os registros novos, que ainda est�o sem c�digo. pois s� ir�o receber quando forem salvos....

Raserafim · Answer

[quote:d35f820963]aquilo acontece ap�s o append e antes do post, portanto se outro usu�rio incluir um n�mero o gerador ir� fornecer um n�mero subseq�ente[/quote:d35f820963]edilcimar, vc est� dizendo que esta fun��o tamb�m faz com que seja incrementado de um do valor que foi retornado? � isso?o simples fato de consultar j� vai incrementar?...

Edilcimar · Answer

sim, quando vc executa a sql com o gerador ele j� incrementa o n�mero do mesmo
With IBQuery1 do
Begin
Close;
SQL.Clear;
SQL.Add(�Select gen_id(CLIENTES_NUMCLIENTE_GEN, 1) from RDB$DATABASE�);
IBQuery1.Open;
NumCliente := IBQuery1.Fields[0].AsInteger;
showmessage(inttostr(numcliente));
End;
fa�a este teste e ver� que o numcliente ser� alterado todas as vezes

Raserafim · Answer

hummm  agora sim.acabei utilizando este esquema que vc disse.valeu edilcimar...

F�rum retornar o c�digo gerado (auto-incremento) para a aplica��o #54752