Filtro De Campo Date No Mysql

[Hudson Cavazin]

Se eu quero filtar registros com a data 31/01/2007 no mysql eu tenho que digitar no meu txt a data invertida e com "-" no lugar de "/". ex: 2007-01-31. isto usando componente zeoslib.

alguém tem alguma solução para este problema ???

Grato

[Erso]

SELECT * FROM MINHATABELA  WHERE DATA = '1986-12-28'

onde '1986-12-28' é '28/12/1986'

:lol:

[Hudson Cavazin]

mais eu preciso que quando eu digite a data "certa" filtre normalmente, por que pro usuário é complicado ter que digitar invertido ;x

sqlCadVeiculos.SQL.Add('SELECT * FROM cadastro_veiculos');

sqlCadVeiculos.SQL.Add('WHERE data LIKE :Data ORDER BY data, codigo_veiculo DESC');

sqlCadVeiculos.Params.ParamByName('Data').Value := '%' + txt + '%';

[Churc]

Opa

Existem funções que formatam e criam Datas a partir de um valor

No caso:

FormatDateTime();

EncodeDate();

O usuário digita aonde essa data, em um edit? se sim esse edit possui

alguma formatação ou é normal, ou é como... essa variável txt entre

os % pega o que?

abraço

[Hudson Cavazin]

pega o valor de um campo edit que não tem mascara nenhuma

[Erso]

é isso ai cara como o Churc falow usa decodeDate!

var Data: TDateTime;

Ano, mês, Dia: Word;

begin

DecodeDate(StrToDate(Edit1.text), Ano, mês, Dia);

sqlCadVeiculos.Params.ParamByName('Data').Value := '%' + IntToStr(Ano)+'-'+IntToStr(mês)+'-'+IntToStr(Dia) '%' ;

não estou com o delphi agora mas é isso!!!! :lol:

[Churc]

Boa Erso ;)

Mas pra evitar erros, coloque um try except antes de fazer isso pra evitar que

o usuário digite algo errado e de erro no programa...

Exemplo

var

Ano, mês, Dia: Word;

begin

Try

DecodeDate(StrToDate(Edit1.text), Ano, mês, Dia);

Except

ShowMessage('A data digitada é inválida!');

end;

abraço