Filtrar Campo data de uma tabela por um edit.(Resolvido)

Pessoal preciso que todos os registros sejam listados em uma grid filtrando pelo campo data.

ou seja o usuario digita 24/02/2012 em edit ao der enter, é listado na grid somente registros na data 24/02/2012 .


Fiz este codigo Abaixo.

Tb_Pedidos.Filtered := False;
if (Edit4.Text <> '') then
begin
Tb_Pedidos.Open;
Tb_Pedidos.Filter :='Data=' + QuotedStr(Edit1.Text + '*');
Tb_Pedidos.Filtered := True;
Tb_Pedidos.locate('Data',Edit4.text,[loCaseInsensitive, loPartialKey]);
edit4.Text := '';
Edit4.SetFocus;

Com este codigo tenho o erro abaixo.

"*" is not a valid date

onde esta o erro neste codigo?

Tentei Assim:

Tb_Pedidos.Filter := 'Data=' +QuotedStr(DateToStr(Edit4.text + '*'));


da o erro, TDateTime and Tcaption.


Podem me ajudar, desde já agradeço.

Algué pode me Ajudar????

LeandroBr escreveu:

Pessoal preciso que todos os registros sejam listados em uma grid filtrando pelo campo data.

ou seja o usuario digita 24/02/2012 em edit ao der enter, é listado na grid somente registros na data 24/02/2012 .


Fiz este codigo Abaixo.

Tb_Pedidos.Filtered := False;
if (Edit4.Text <> '') then
begin
Tb_Pedidos.Open;
Tb_Pedidos.Filter :='Data=' + QuotedStr(Edit1.Text + '*');
Tb_Pedidos.Filtered := True;
Tb_Pedidos.locate('Data',Edit4.text,[loCaseInsensitive, loPartialKey]);
edit4.Text := '';
Edit4.SetFocus;

Com este codigo tenho o erro abaixo.

"*" is not a valid date

onde esta o erro neste codigo?

Tentei Assim:

Tb_Pedidos.Filter := 'Data=' +QuotedStr(DateToStr(Edit4.text + '*'));


da o erro, TDateTime and Tcaption.


Podem me ajudar, desde já agradeço.

Apenas mude esta liha do seu codigo:

Código:

Tb_Pedidos.Filter := 'Data = ' + QuotedStr(Edit4.text);

vanix escreveu:

LeandroBr escreveu:

Pessoal preciso que todos os registros sejam listados em uma grid filtrando pelo campo data.

ou seja o usuario digita 24/02/2012 em edit ao der enter, é listado na grid somente registros na data 24/02/2012 .


Fiz este codigo Abaixo.

Tb_Pedidos.Filtered := False;
if (Edit4.Text <> '') then
begin
Tb_Pedidos.Open;
Tb_Pedidos.Filter :='Data=' + QuotedStr(Edit1.Text + '*');
Tb_Pedidos.Filtered := True;
Tb_Pedidos.locate('Data',Edit4.text,[loCaseInsensitive, loPartialKey]);
edit4.Text := '';
Edit4.SetFocus;

Com este codigo tenho o erro abaixo.

"*" is not a valid date

onde esta o erro neste codigo?

Tentei Assim:

Tb_Pedidos.Filter := 'Data=' +QuotedStr(DateToStr(Edit4.text + '*'));


da o erro, TDateTime and Tcaption.


Podem me ajudar, desde já agradeço.

Apenas mude esta liha do seu codigo:

Código:

Tb_Pedidos.Filter := 'Data = ' + QuotedStr(Edit4.text);

Show de bola, obrigaduuuuuuuu.