(Resolvido) Filtrar Data

[VDLR]

Alguém sabe como resolver ?

procedure TFRCadrecmate.SpeedButton6Click(Sender: TObject);
begin
      DMdados.TBCadRecMat.Filtered:=False;
      DMdados.TBCadRecMat.Filter := 'DataRec='+QuotedStr(FormatDateTime('YYYY/mm/dd', StrToDate(Edit2.Text)));
      DMdados.TBCadRecMat.Filtered:=True;
      Edit2.Clear;
     end;

Quando clico no botão para filtrar a data, recebo esta mensagem de erro.

exception class EconvertError with message ' Could not parse SQL TimeStamp string'

Estou usando MySql

Abraço

Valdecir

[Jhonas]

exception class EconvertError with message ' Could not parse SQL TimeStamp string'

classe de exceção EconvertError com mensagem ' não pôde analisar gramaticalmente SQL string' de TimeStamp

procure no forum pela palavra FormatDateTime .. voce encontrará varios posts com dúvidas já solucionadas neste sentido.

exemplo

http://scriptbrasil.com.br/forum/index.php...st&p=480209

abraço

[VDLR]

Jhonas, obrigado pela atenção.

Cara, não achei nada que ajudasse a resolver.

Tem alguma outra alternativa........

Abraços

Valdecir :blush:

[Lube]

Jhonas, obrigado pela atenção.

Cara, não achei nada que ajudasse a resolver.

Tem alguma outra alternativa........

Abraços

Valdecir :blush:

ve se isso resolve Valdecir:

no seu uses coloque SqlTimSt

e utilize no seu filtro StrToSQLTimeStamp()

Abraços

[VDLR]

Pessoal obrigado pela atenção.

Consegui resolver colocando um componente Tdate.

O código ficou assim

DMdados.TBCadRecMat.Filtered:=False;

DMdados.TBCadRecMat.Filter := 'DataRec='+QuotedStr(DateToStr(DateEdit1.Date));

DMdados.TBCadRecMat.Filtered:=True;

DateEdit1.Clear;

Abraço

Valdecir