Auto increment no delphi

Question

blz amigos,Como se faz um auto increment no delphi, por que eu n�o quero utilizar o auto increment do banco de dados?abra�os!Pestana....

Framosip · Answer

pode fazer uma sele��o.nela vc verifica o ultimo registro....sen�o existir...insere �1�caso exista....some o existente + �1�....e grave o valor da soma...tomare q te ajude....abra�os!...

Jadicconsultoria · Answer

Se vc tiver utilizando os componentes do DBExpress, fa�a da seguinte forma:

No ClientDataset no evento onNewRecord digite o seguinte c�digo abaixo:

dataset.fieldbyName(�nome da PK�).asstring := �0�;

Para isso, insira um Generator e uma Trigger na PK (Primary Key) associado a tabela que vc t� manipulando.

CREATE GENERATOR GEN_ID_USUARIO;

CREATE TRIGGER USUARIO_BI FOR USUARIO
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
NEW.ID_USUARIO = GEN_ID(GEN__ID_USUARIO,1);
END

Ap�s essas implementa��es no bot�o inserir, insira o seguinte c�digo:

with clientdataset1 do
begin
insert;
dbedtCampo.setfocus;
end;

No Bot�o gravar insira o seguinte

with clientdataset1 do
begin
ApplyUpdates(0);
Refresh;
end;

Espero t�-lo ajudado!!! :lol:

F�rum Auto increment no delphi #299007