Caro amigo use uma Sql...
[color=red:c3f13c73ed]Tópico bloqueado por Massuda
Para responder/postar em um [b:c3f13c73ed]tópico existente[/b:c3f13c73ed] use o botão [b:c3f13c73ed]responder[/b:c3f13c73ed] existente na parte inferior da página.
Para criar um [b:c3f13c73ed]novo tópico[/b:c3f13c73ed] use o botão [b:c3f13c73ed]novo tópico[/b:c3f13c73ed] existente na parte inferior da página.[/color:c3f13c73ed]
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
Babu
Curtidas 0