Auto Incremento

Delphi

29/03/2004

Como faço para criar um auto-incremento?


Douglas

Douglas

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

29/03/2004

Eu faço uma função
function TForm.MaiorCodigo(nometab, nomecampo: String): Integer;
begin
     with qrySql do
       begin
         Close();
         Sql.Clear();
         Sql.Add(´SELECT MAX(´ + nomecampo + ´) FROM ´ + nometab);
         Open();
         Result := Fields[0].AsInteger;
         Close();
       end;
end;


e na hora de chamar
 Qry.FieldByName(´campo´).Asinteger := MaiorCodigo(´tabela´,´campo´) + 1



GOSTEI 0
POSTAR