Pequisar no DBGrid com o DateTimePicker1 usando Table1

[Kevin Sampaio 0]

Ajuda ae pessoal, to quase na conclusão do meu projeto, mas quero colocar uma DateTimePicker1 para buscar alguém por data ou melhor buscar uma consulta marcada neste dia por data.

 

Eu tentei usar assim, mas fico obvio que nao deu mas ta ae o código pra vcs ter uma ideia do que eu queria realmente...

 

begin

table1.Filtered := False;
if (DateTimePicker1.Text <> '') then
begin
table1.Filter := 'Data=' +QuotedStr(DateTimePicker1.text + '*');
table1.Filtered := True;
if not table1.locate('Data',DateTimePicker1.text,[loCaseInsensitive, loPartialKey]) then
showmessage('Data incorreta ou não existe consultas neste dia... !');
end;

end;

 

Mas ou menos isso, mas fico claro que nao deu... mas se alguem tiver uma ideia de como faço sem for pelo SQL pois tem muito, mas nao me adaptei a ele e o meu projeto todo é feito com a DataSource1 e table1... e ficaria foda trocar tudo será que me entendem... pelo menos haver uma luz nesse mundo alguem me dehh :D

[Chrnos 30]

Não sei se já resolveu o seu problema ou não, mas esta seria uma das possíveis soluções....

 

 

procedure TForm1.Button1Click(Sender: TObject);
begin
   Table1.Filtered := False;
   table1.Filter := 'Data=' + QuotedStr(DateToStr(DateTimePicker1.Date));
   Table1.Filtered := True;
   if not table1.locate('Data',DateTimePicker1.Date,[loCaseInsensitive, loPartialKey]) then
   begin
      showmessage('Data incorreta ou não existe consultas neste dia... !');
      Table1.Filtered := False;
   end;
end;