Buscar

Código seqüencial automático

Código

{Você manda o caminho (Alias "C:Windows"), nome da tabela (tabela.db) e o campo primário (código por ex) e ele auto-incrementa, se quiser usar formatação é só colocar. }
Function AutoIncrementoManual(Const pAlias:String; pTabela:String; pCampo:String):Integer;
var
vQry : tQuery;
int : integer;
  begin
  vQry := tQuery.Create(Application);
  with vQry do begin
  DatabaseName := pAlias;
  SQL.Add('Select Max(' + pCampo +') as Proximo');
  SQL.Add('From '+ pTabela);
  Open;
  int:= FieldByName('Proximo').asInteger + 1;
  Result := int;
  free;
  end; {with vQry}
  end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 11/06/03
Por: Felipe Monteiro
Visualizada: 4410 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009