Auto incremento no Firebird, mas no c�digo.

Question

:?: :?: Gostaria de saber como crio um campo autoincremento, no firebird. O problema � que aqui no trabalho o dono solicitou gerar-se uma unit s� para gerenciar o autoincremento, inclusive cri�-lo a partir de qualquer campo integer (a� � que est� meu problema).

Borbatech · Answer

Primeiro eu criei uma Procedure no Banco, ex
��CREATE PROCEDURE SP_ESTOQUE RETURNS ( COD INTEGER)
AS
BEGIN
COD = GEN_ID(GEN_ESTOQUE,1);
SUSPEND;
END
��
depois coloque um componete IBStoredProc na sua Unit e direcione para SP_ESTOQUE

para pegar o valor e o seguinte:
DM.QryESTOQUE.Append;
DM.IBTransaction1.StartTransaction; // Inicia transa��o
// Prepara para executar a Stored Procedure
if not SP_ESTOQUE.Prepared then
SP_ESTOQUE.Prepare;

// Executa
SP_ESTOQUE.ExecProc;

// Pega o valor do Generator
DM.QryESTOQUEPR_COD.Value := SP_ESTOQUE.ParamByName(�COD�).vALUE ;
LabelGen.Caption := IntToStr(IBStoredProc1.ParamByName(�VALOR_GENERATOR�).AsInteger);
DM.IBTransaction1.Commit; // Commit da transa��o

Valeu ..

F�rum Auto incremento no Firebird, mas no c�digo. #217532