Fórum TQuery #132502
03/02/2003
0
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;
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
Curtir tópico
+ 0
Responder
Posts
11/05/2003
Cesaresende
Tente dar este comando
Query.prior
ele pegará o registro anterior ao selecionado
Query.prior
ele pegará o registro anterior ao selecionado
Responder
Gostei + 0
11/05/2003
Adilsond
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)