TQuery

Delphi

03/02/2003

Tenho uma query de um arquivo da seguinte forma:

with qryRelatorio, qryRelatorio.sql do
begin
prepare;
sql.add (´SELECT * FROM ARQUIVO WHERE´);
sql.add(´DATA = :DATA AND´);
sql.add(´ CODIGO = :CODIGO´);
open;
if not eof then begin

// gostaria de fazer com que apos achado o registro exato, eu pudesse fazer com que eu pudesse selecionar o registro anterior ao achado é possível???
// ex.: registros
01/01/2003 cod.38
30/01/2003 cod.38
01/02/2003 cod.38
eu fizesse a seleção do registro 30/01/2003 cod.38
e eu pudesse tratar algumas informações do registro anterior ou seja 01/01/2003 cod.38, alguem pode me ajudar?

end;
end;


Fernando Marroco

Fernando Marroco

Curtidas 0

Respostas

Cesaresende

Cesaresende

03/02/2003

Tente dar este comando
Query.prior
ele pegará o registro anterior ao selecionado


GOSTEI 0
Adilsond

Adilsond

03/02/2003

  with qryRelatorio do
    begin
      if Prepared then
         UnPrepare;
      SQL.Add(´SELECT *´);
      SQL.Add(´FROM ARQUIVO´);
      SQL.Add(´WHERE CODIGO = :CODIGO´);
      SQL.Add(´ORDER BY DATA´);
      ParamByName(´CODIGO´).AsInteger := MeuCodigo;
      Prepare;
      Open;
      if IsEmpty then
         // código não localizado
      else
         begin
           if Locate(´DATA´,MinhaData,[]) then
              begin
                Prior;
                if BOF then
                   // nao existe data anterior
                else
                   // posicionado na data anterior
              end
           else
              // data não localizada
         end;
    end;



GOSTEI 0
POSTAR