Fórum Consulta por Data #188784

Usando o componente Query Table do delphi 7 fiz a seguinte consulta ´on click do botão

DM.Qry_Locate.SQL.Clear;
DM.Qry_Locate.SQL.Add(´Select * ´);
DM.Qry_Locate.SQL.Add(´From Horas_Trabalhadas ´);
DM.Qry_Locate.SQL.Add(´Where Horas_Trabalhadas.Cod=´+Edit1.Text);
DM.Qry_Locate.SQL.Add(´ and Horas_Trabalhadas.Data=´+FormatDateTime(´DD/MM/YYYY´,date));
DM.Qry_Locate.ExecSQL;
DM.Qry_Locate.Active:=True;

e a query não me retorna registro nenhum, porém quando apago a condição ´and Horas_Trabalhadas.Data=´+FormatDateTime(´DD/MM/YYYY´,date) ele me retorna os registro filtrado pelo campo cod...
Até aí blz, mais quero que ele filtre os registro por cod e tb por data=(data atual).
Como posso fazer ?
Se alguém souber por favor me avise.
Obrigado