Auto Incremento uma vez

Question

Seguinte fui no IBExpert no SQL Editor crei o generator e a trigger:Create Generator nome_generator; CREATE TRIGGER NOME_TRIGGERACTIVE BEFORE INSERT POSITION 0 AS begin if (new.codigo is null) then ne...

Eduardo Cocite · Answer

if DtsProduto.State = dsInsertthen
begin
QryAux.sql.Clear;
QryAux.sql.add(�select�);
QryAux.sql.add(� max (Codigoproduto) as Maior �);
QryAux.sql.add(�from �);
QryAux.sql.add(� produto1�);
QryAux.open;

if QryAux.Eof then
QryProdutoCODIGOPRODUTO.Value := 1
else
QryProdutoCODIGOPRODUTO.Value := QryAux.fieldbyname(�Maior�).AsInteger + 1;
end;
inserir := DtsProduto.State in [dsinsert];
update := DtsProduto.State in [dsedit];

uma query para a tabela e outra para a gera��o autom�tica do incremento, eu fa�o qdo o cara for salvar o registro.......

espero ter te ajudado......

Ramms · Answer

Kra de boa vc poderia me expilcar detalhadamente, aonde eu coloco cada c�digo...sou leigo ainda...Obrigado...

Rodolpho123 · Answer

Ramms,
O auto-incremento s� � ativado quando vc envia ao BD uma instru��o SQL de INSERT.
Se vc quiser saber o n�mero do seu generator, fa�a a seguinte qry:

select gen_id(seu_generator,0) from rdb$database

Ramms · Answer

Opa Rodolpho....Bem o que eu qro eh que qdo eu clicar no bot�o inserir a tela seja �limpada� e que no edit c�digo j� venha o valor...o pr�ximo n�mero...eu deixaria o edit com o enabled false entendeu??
Como eu consegueria fazer isso?? Sou iniciante....
Vlw

Rodolpho123 · Answer

Vc pode fazer o seguinte:[code:1:f148c6a236]select gen_id(seu_generator,1) from rdb$database[/code:1:f148c6a236]Onde [b:f148c6a236]1[/b:f148c6a236] � o incremento que vc vai fazer no seu generator. Mas se vc n�o efetuar o cadastro, o n�mero n�o � retornado ao seu estado inicial, ex:Iniciar cadastro n� 1001 > Desiste do cadastroIniciar cadastro novamente > Ir� mostra o n� 1002...

Ramms · Answer

Mas aonde coloco esse c�digo ???select gen_id(seu_generator,1) from rdb$database Command Text???Kra eu to come�ando agora...ehaheuia...malz e vlwzz...

Wagsilvasilva · Answer

Ola Ramms. Se voce conseguir fazer autonumeracao por favor me avise. Eu procurei em tudo que � lugar mas ainda nao consegui faze-lo....

Ramms · Answer

Po kra tah dificil at� agora nada.......

Rodolpho123 · Answer

[quote:d339a545e9=�Ramms�]Mas aonde coloco esse c�digo ???select gen_id(seu_generator,1) from rdb$database Command Text???[/quote:d339a545e9]Isso vc coloca em DataSet desses (TIBQuery, por exemplo) e quando vc abrir o seu DataSet, ele vai executar este c�digo, gerando assim um n�mero de auto-incremento. Para obter um novo n�mero, feche e abra o DataSet....

Ramms · Answer

Eu uso SQLConnection, SqlDataset, e clientdataset no caso colocaria o c�digo select gen_id(seu_generator,1) from rdb$database no clientdataset???Vlw...

Rodolpho123 · Answer

[quote:1aeeb0c828=�Ramms�]Eu uso SQLConnection, SqlDataset, e clientdataset no caso colocaria o c�digo select gen_id(seu_generator,1) from rdb$database no clientdataset???[/quote:1aeeb0c828]SimE se vc quiser visualizar o seu c�digo, vc pode fazer assim:[code:1:1aeeb0c828]showmessage(�C�digo gerado: � + SeuClientDataSet.FieldByName(�gen_id�).AsString);[/code:1:1aeeb0c828]...

Ramms · Answer

Tipo eu qro colocar num edit....entaum ficaria assim??DBEdit1.Text =: SeuClientDataSet.FieldByName(�gen_id�).AsStringtipo no evento onactive ?? ou outro?...

Ramms · Answer

qdo eu coloco no commandtext do cds ele fala isso:CommandText changes not allowed...uma parada assim...alguem sabe o q pode estar errado??Vlwzzz...

Rodolpho123 · Answer

[quote:540f7df28e=�Ramms�]qdo eu coloco no commandtext do cds ele fala isso:CommandText changes not allowed...uma parada assim...alguem sabe o q pode estar errado??Vlwzzz[/quote:540f7df28e]Eu n�o posso te dizer o porque isto est� acontecendo, pois eu ainda n�o fiz testes. Prq vc n�o utiliza um componente Query? Se � s� para atribuir um valor ao seu DBEDit......Nota: Para atribuir valores nos DBEdit n�o fa�a desta maneira[code:1:540f7df28e]DBEdit.Text := �blablabla�;[/code:1:540f7df28e]Pois vc s� est� escrevendo o texto no edit e n�o no banco. Para atribuir um valor, fa�a[code:1:540f7df28e]DBEdit.Field.Value := �blablavla�;[/code:1:540f7df28e]Onde vc atribui o valor no banco e que o DBEdit vai exibir na tela....

Ramms · Answer

Awe kra funcionou vlw....deu um probleminha aki com o bot�o insert mas acho que consigo resolver..qualquer coisa eu volto aki vlw......

F�rum Auto Incremento uma vez #51228