Como fazer autonumera��o com delphi 7 interbase

Question

Ola. Gostaria de saber como fa�o para criar um campo autonumera��o em uma tabela do interbase usando delphi 7?Obrigado...

Arc@njo · Answer

Usa o Generator do Interbase.CREATE GENERATOR AUTOINCREMENTO;Para vc realizar o auto-incremento vc pode fazer da seguinte forma:SELECT GEN_ID(AUTOINCREMENTO, 1) FROM RDB$DATABASE;Usa o retorno deste select que ira gerar seu auto-incremento....

Gandalf.nho · Answer

Vc tb pode usar uma trigger que ir� incrementar automaticamente o valor do generator e atribuir a seu campo....

Wagsilvasilva · Answer

Escrevi o c�digo conforme postado... mas ainda n�o funcionou... acho que deve ser feito mais alguma coisa que n�o sei o que �...

Obrigado

Sobre a trigger... nao sei trabalhar com ela ainda... na verdade estou come�ando a utilizar o interbase agora... sempre usei paradox mas agora to largando de m�o.

Pro-luck · Answer

Caro WagSilvaSilva,Estou com esta dificuldade que vc tinha h� algum tempo atr�s. Com certeza hoje vc j� deve ter aprendido a autonumerar os registros com o Interbase.Ser� que vc pode me ajudar com esta d�vida? Eu estou usando o Firebird e o Delphi 7.Certo da sua aten��o, antecipadamente agrade�o.Um forte abra�o e fica com Deus....

Gil_araujo · Answer

Cara cria um generator e um Trigger no banco!!!qlqr coisa me add no msncaetanoara@hotmail.comvlw abra�os...

Aluno31 · Answer

usa este codigo tambem funciona de maravilha

procedure Frm.BtnNovoClick(Sender: TObject);
var nreg : double;
begin
Dmo.TbEntrada.Last;
nreg := Dmo.TbEntradaCODIGO.Value + 1;
Dmo.TbEntrada.Append;
Dmo.TbEntradaCODIGO.Value := nreg;

end;

Carlos Alves · Answer

SET TERM ^ ;1) Primeiro crie o Generete:CREATE GENERATOR GENERATE_LOG_ID;2) Utilizando Tigger crie conforme abaixo:/* Triggers only will work for SQL triggers */CREATE TRIGGER TRIGGER_LOG_ID FOR LOG ACTIVE BEFORE INSERT POSITION 1ASbegin  NEW.id = GEN_ID(generate_Log_id, 1);end ^COMMIT WORK ^SET TERM ;^3) se quiser fazer na classe em delphi:function GeneratorID (aName: string; Connection: TSQLConnection;Incrementa: Boolean): integer;var  Qry: TSQLQuery;begin  Qry := TSQLQuery.Create(nil);  try    Qry.SQLConnection := Connection;    if Incrementa then      Qry.SQL.Add(      SELECT GEN_ID(+aName+, 1) FROM RDB$DATABASE)    else      Qry.SQL.Add(      SELECT GEN_ID(+aName+, 0) FROM RDB$DATABASE);    Qry.Open;    Result := Qry.Fields[0].AsInteger;  finally  FreeAndNil(Qry);  end;end;e depois dmCliente.cdsClienteID.value := GeneratorID( Cliente, SQLConnection, True );Espero ter contribu�do..Um Abra�oFAUSTAO...

F�rum Como fazer autonumera��o com delphi 7 interbase #282613