F�rum Filtrando eventos SEMANAIS com query. #471024

24/02/2014

Pessoal, tenho um DBGrid no meu formul�rio principal, ele lista uma s�rie de atividades cadastrados por: Descri��o, local, data, hor�rio e observa��es. Da� eu cadastro todo tipo de evento que tenho que participar, tipo uma agenda, s� que eu quero implementar um bot�o com uma fun��o que ele me liste apenas os eventos que eu tenho nos pr�ximos 7 dias, pra eu n�o precisar ficar catando tudo no grid super carregado, fiz esse c�digo, mas n�o me retornou nada, o grid fica do mesmo jeito com todos eventos:


var 
datainicial, datafinal: tdatetime;

Begin
datainicial:= date; 
datafinal:= date + 7;
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add('select data from evento where data >= :data1 and data<= :data2 order by data ASC;');
DataModule1.Query1.Parambyname('data1').AsString:= DateToStr(datainicial);
DataModule1.Query1.ParamByName('data2').AsString:= DateToStr(datafinal);
DataModule1.Query1.Open;
ShowMessage(DateToStr(datainicial) +' e ' +DateToStr(datafinal));
End;

Algu�m pode me ajudar?

Enio Batalha

Curtir t�pico

+ 0

Responder

Posts

24/02/2014

Enio Batalha

O showmessage no final � s� pra verificar se as datas estavam passando corretamente.

Responder

Gostei + 0

24/02/2014

Enio Batalha

Pessoal, CONSEGUI resolver usando o filter da table:


DataModule1.TabelaEvento.Filtered:=false;
DataModule1.TabelaEvento.Filter := 'data >= ' + QuotedStr(DateToStr(date)) + ' AND data <= ' + QuotedStr(DateToStr(date+6));
DataModule1.TabelaEvento.Filtered:=True;

Responder

Gostei + 0