Como testar se � o ultimo registro databela

Question

Estou fazendo um loop em uma tabela e a cada registro quero saber se � o ultimo ou n�o :

   WHILE not qryPesquisa.Eof DO
     begin
       // Se � o ultimo registro ...
        
       qryPesquisa.Next;
     end;

Edilcimar · Answer

dependendo do tipo de tabela que estiver utilizando, isto funciona (piradox),  mas em outros casos n�o, pois n�o � feito um append e sim um insert(sgdb�s)...

Paullsoftware · Answer

agora fiquei vuando...eus empre fa�o assim para varrer uma tabela inteira at� o final...[code:1:aaa41538c7]Query.First;While not Query.Eof do begin //Comandos ser�o executados enquanto n�o chegar no final Query.Next; end;[/code:1:aaa41538c7]Isso n�o funciona??uso a base em interbase, at� hoje tem funcionado comigo! :shock:...

Fabiano G�es · Answer

PaullSoftware,Isso funciona perfeitamente:[code:1:926bbcff36]Query.First; While not Query.Eof do  begin  //Comandos ser�o executados enquanto n�o chegar no final  Query.Next;  end;[/code:1:926bbcff36]Porem eu preciso executar uma a��o especifica quando chegar o ultimo registro....

Spiritwwwalker · Answer

Prezado Fabiano:N�o sei se � a solu��o mais correta, mas se sua tabela possui um campo autonumera��o, incrementado um a um (isto �, de maneira crescente), voc� tamb�m pode obter o maior registro utilizando a fun��o MAX do SQL:SELECT MAX CampoAutonumera��o FROM NomeDaSuaTabelaEm resumo: maior registro = registro mais recente = �ltimo registroEspero ter ajudado....

Edilcimar · Answer

Se quiser fazer um teste para verificar que nem sempre o �ltimo registro inclu�do � o �ltimo da tabela em um sgdb, coloque 2 campos, um autoincremento e outro indexado, por ex: um campo string, com nomes, coloque alguns nomes, Antonio, Jorge, Maria, Roberto, Sonia e depois acrescente uma Ana, a� ver� que a Ana estar� em primeiro lugar na tabela (por causa do insert), mas ter� a maior numera��o.

Paullsoftware · Answer

certo, ent�o vc n�o pode fazer assim:[code:1:35e28eba2d]varwUltimo : Integer;Query.Open;Query.Last;wUltimo := Query.FieldByName(�Codigo�).AsInteger;Query.First; While not Query.Eof do  begin  if Query.FieldByName(�Codigo�).AsInteger = wUltimo then //Comandos que ser�o executados quando chegar no �ltimo registro else //Comandos ser�o executados enquanto n�o chegar no final  Query.Next;  end;[/code:1:35e28eba2d]eu fiz um teste aqui e funcionou! :roll:...

Fabiano G�es · Answer

Galera muito obrigado pela aten��o de todos,a solu��o do PauloSoftware funcionou bem para o que eu precisava.Muito obrigado a todos !!!...

F�rum Como testar se � o ultimo registro databela #315289