claukris

valeu as dicas, deu certo o filtro, deixo aqui o cód que usei. A dica da DbGrid foi muito útil.....Obrigada à todos!!! With Form12.Query1 Do Begin Close; SQL.Clear; SQL.Add ('SELECT * FROM Duplicatas WHERE VENCIMENTO BETWEEN :dt1 AND :dt2'); SQL.Add('ORDER BY Vencimento'); parambyname('dt1').value:=StrToDate(maskedit1.text); parambyname('dt2').value:=strtodate(maskedit2.text); Open; form12.QuickRep1.Preview; close; End;

Oi Galera, Valeu pelas dicas, coloquei uma dbgrid para ver o que acontece com os dados, digitei um intervalo de datas que tinha no cadastro, quando chamei o filtro ele não me mostrou nenhum registro na dbgrid, sendo que estes registros dentro do intervalo existem. Então o problema está mesmo no cód, ele não está filtrando corretamente, é como se eu tivesse digitado um intervalo de datas que não existem no meu cadastro.... Tá difícil!!!

Uso Tables Paradox, e o formato que é armazenado no meu BD é dd/mm/yyyy. Já tentei de tudo, no princípio o meu campo Vencimento era do tipo Date, e agora modifiquei para Alpha, mas não resolveu, já tentei usar todos os tipos de formato para data.....Grata pela dica

Será que alguém pode me ajudar? Estou com um problema para filtrar todos dados em um intervalo de datas. Tenho um DataModule com componentes Table e Data source. No meu Relatório tenho uma Query. A situação é a seguinte: Preciso que em um form o usuário digite as duas datas e quando clicar em ok, venha o relatório contendo os registros desse período. Já tentei de tudo. Mas o primeiro cod que consegui, por meio de colegas de fórum não gera erro, mas também não exibe nenhum registro no relatório E o segundo código gera um erro na hora em que chamo o relatório: Type mismatch in expression Os cód são estes respectivamente: With Form12.Query1 Do Begin Close; SQL.Clear; SQL.Add('SELECT * FROM Duplicatas WHERE ( VENCIMENTO >=:DATAi ) AND ( VENCIMENTO <=:DATAf ) AND' ); SQL.Add('( VENCPRI >=:DATAi ) AND ( VENCPRI <=:DATAf ) AND'); SQL.Add('( VENCSEG >=:DATAi ) AND ( VENCSEG <=:DATAf ) AND'); SQL.Add('( VENCTER >=:DATAi ) AND ( VENCTER <=:DATAf ) AND'); SQL.Add('( VENCQUA >=:DATAi ) AND ( VENCQUA <=:DATAf ) AND'); SQL.Add('( VENCQUI >=:DATAi ) AND ( VENCQUI <=:DATAf ) AND'); SQL.Add('( VENCSEX >=:DATAi ) AND ( VENCSEX <=:DATAf )'); SQL.Add('ORDER BY Vencimento'); Params[0].AsDateTime := StrToDate(MaskEdit1.Text); Params[1].AsDateTime := StrToDate(MaskEdit2.Text); Open; Form12.QuickRep1.preview; Close; Filtro := Filtro+' WHERE Vencimento Between :pInicio and :pFim' ; Filtro := Filtro+' Order By VENCIMENTO'; Form12.Query1.SQL.Clear; Form12.Query1.SQL.Add(Filtro); Form12.Query1.ParamByName('pInicio').AsString := FormatDateTime('dd/mm/yyyy',StrToDate(maskedit1.text)); Form12.Query1.ParamByName('pFim').AsString := FormatDateTime('dd/mm/yyyy',StrToDate(maskedit2.text)); Form12.Query1.Open; Form12.QuickRep1.preview; form12.query1.close; Quem pode me ajudar? já tentei de tudo.....