F�rum Filtro por data #391968

07/12/2010

Pessoal, tenho um banco de dados feito no ACCESS, nele tenho uma campo chamado dta_recebimento que est� como data/hora, e seus dados est�o cadastrados assim: 17/11/2010.
Preciso fazer um filtro por intervalo de datas e est� dando o seguinte erro:
"tipos de dados imcompativel na express�o do crit�rio".

Uso o componente DateTimerPicker para escolher as datas e minha rotina est� assim:

   dm.QRY_relatorio.Close;
   dm.QRY_relatorio.SQL.Clear;

   dm.QRY_relatorio.SQL.Add('SELECT * FROM telemedicina WHERE para = '+QuotedStr(Email)
   +' AND '+' data BETWEEN '+QuotedStr(FormatDateTime('dd/MM/yyyy', DTP_data1.Date))
   +' AND ' + QuotedStr(FormatDateTime('dd/MM/yyyy', DTP_data2.Date )));

   dm.QRY_relatorio.Open;

Sou novo em programa��o, ent�o qualquer informa��o me ser� �til.

Marcos Barbosa

Curtir t�pico

+ 0

Responder

Posts

07/12/2010

Leonardo Xavier

Seu campo data no banco de dados esta com que tipo de dados? esta do data/hora, texto, numero,...

Responder

Gostei + 0

07/12/2010

Marcos Barbosa

O campo esta como data/hora

Responder

Gostei + 0

08/12/2010

Emerson Nascimento

altere a propriedade Time do DTP_data1 de modo que fique 00:00:00.
altere a propriedade Time do DTP_data2 de modo que fique 23:59:59.

depois disso, fa�a:

dm.QRY_relatorio.Close;

dm.QRY_relatorio.SQL.Clear;
dm.QRY_relatorio.SQL.Add('SELECT * FROM telemedicina WHERE para = :email')
dm.QRY_relatorio.SQL.Add(' and data BETWEEN :_dataini and :_datafim');

dm.QRY_relatorio.ParamByName('email').asstring := Email;
dm.QRY_relatorio.ParamByName('_dataini').asdatetime := DTP_data1.DateTime;
dm.QRY_relatorio.ParamByName('_datafim').asdatetime := DTP_data2.DateTime;

dm.QRY_relatorio.Open;

Responder

Gostei + 0

09/12/2010

Marcos Barbosa

Vlw pela sua dica, eu j� estava ficando com cabelos brancos por causa disso.
Precisei s� fazer umas pequeninas adapta��es para funcionar, pois da forma q vc colocou estava dando erro na compila��o, ent�o ficou assim:

dm.QRY_relatorio.Close;

    dm.QRY_relatorio.SQL.Clear;
    dm.QRY_relatorio.SQL.Add('SELECT * FROM telemedicina WHERE para = :email' );
    dm.QRY_relatorio.SQL.Add(' and data BETWEEN :_dataini and :_datafim');

    dm.QRY_relatorio.Parameters.ParamByName('email').Value := Email;
    dm.QRY_relatorio.Parameters.ParamByName('_dataini').Value := DTP_data1.DateTime;
    dm.QRY_relatorio.Parameters.ParamByName('_datafim').Value := DTP_data2.DateTime;

- Coloquei o Parameter antes do ParamByName
- Troquei o Asstring, AsdateTime por Value

S� isso para funcionar, mas sua dica foi muito boa mesmo, nem sei como agrade�er...
Muito Obrigado.

Responder

Gostei + 0