pegar o último registro e imprimir o código dele... (MYSQL)

Delphi

23/08/2004

Pessoal,

Tenho um banco de dados, com mais ou menos 15.700 registro... Qual a instrução SQL para poder percorrer todo o banco de dados até o fim e pegar o último registro e imprimir o código dele?


Tentei assim:

procedure TForm1.Button1Click(Sender: TObject);
var numero: integer;
begin

   With ZQuery1 do
   Begin
      Close;
      Sql.Clear;
      numero:=Sql.Add(´SELECT MAX(codigo) FROM clientes´);
      Open;
   end;
   label1.Caption:=IntToStr(numero);
end;



Redoctober

Redoctober

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

23/08/2004

Olá

Faça a query e a abra, mas atribua a variável somente após abrir a Query

Sql.Add(´SELECT MAX(codigo) as cod FROM clientes´); 
Open;
numero := Query1.FieldbyName(´cod´).AsInteger;


Espero que ajdue
Até+


GOSTEI 0
POSTAR