Fórum Caro amigo use uma Sql... #334966

Caro amigo uso uma Sql image vc com 50.000,00 registro toda ves dando um last para buscar o ultimo registro ti aconcelho fazer assim

var
Ultimo :String;
begin

with Qy do
Begin
Close;
Sql.Clear;
Sql.Add (´Select Max(Campodatabela) as Apelido from Tabela)´
open
end;
if Qy.FieldByName(´Apelido´).Astring =´´ then
Ultimo :=´0001´
else
Ultimo :=IntToStr(StrToInt(Qy[´Apelido´]+1));



Caro amigo fiz aqui sem usar o delphi se tiver algum errinho de portugues corriga valeu um abraço...valeu espero ter ti ajudados