Filtro de data
Ae pessoal alguém pode me ajudar com uma filtragem de data que eu quero fazer? é o sequinte.. eu quero filtrar uma data que aconteça so daqui a 5 dias..
Alguém por favor me diga alguma coisa!!!!!
Alguém por favor me diga alguma coisa!!!!!
Revoltado
Curtidas 0
Respostas
Afarias
08/03/2004
bom, no IB ou FB seria::
select * from sua_tabela
where campo_data > current_date + 5
em outro banco, basta substituir o current_date pela variável corespondente que traz a data do sistema.
T+
select * from sua_tabela
where campo_data > current_date + 5
em outro banco, basta substituir o current_date pela variável corespondente que traz a data do sistema.
T+
GOSTEI 0
Anonymous
08/03/2004
para iniciar a consulta, para preparar as variaveis
procedure TForm2.BtConsultarClick(Sender: TObject);
begin
With QryConsultas Do
Begin
Close;
ParamByName(´VarDataI´).AsDate:=Data1.Date;
ParamByName(´VarDataF´).AsDate:=Data2.Date;
Prepare;
Open;
End;
if QryConsultas.RecordCount=0 then
Begin
ShowMessage(´Nenhum Processo foi Encontrado com esses Dados!´);
End;
BitBtn1.Enabled:=True;
end;
aqui esta a string para a tquery
SELECT D.´Nome do reclamado´,Count(E.NProcesso), Count(E.Sequencia)
FROM Cadastro.DB D, Andamento.DB E
WHERE E.Data Between :VarDataI and :VarDataF and
D.Processo = E.Nprocesso
GROUP BY D.´Nome do reclamado´
ORDER BY 2 desc, D.´Nome do reclamado´
boa sorte
procedure TForm2.BtConsultarClick(Sender: TObject);
begin
With QryConsultas Do
Begin
Close;
ParamByName(´VarDataI´).AsDate:=Data1.Date;
ParamByName(´VarDataF´).AsDate:=Data2.Date;
Prepare;
Open;
End;
if QryConsultas.RecordCount=0 then
Begin
ShowMessage(´Nenhum Processo foi Encontrado com esses Dados!´);
End;
BitBtn1.Enabled:=True;
end;
aqui esta a string para a tquery
SELECT D.´Nome do reclamado´,Count(E.NProcesso), Count(E.Sequencia)
FROM Cadastro.DB D, Andamento.DB E
WHERE E.Data Between :VarDataI and :VarDataF and
D.Processo = E.Nprocesso
GROUP BY D.´Nome do reclamado´
ORDER BY 2 desc, D.´Nome do reclamado´
boa sorte
GOSTEI 0