Fórum Filtro por data utilizando MaskEdit #345277
29/08/2007
0
[quote:5fee2db914=´Moderação´][color=red:5fee2db914]Tópico bloqueado por Massuda
Tópico duplicado. Por favor, mantenha a discussão no tópico original...
http://forum.devmedia.com.br/viewtopic.php?t=89647[/color:5fee2db914][/quote:5fee2db914]Pessoal,
Estou tendo dificuldades em fazer um filtro por data utilizando o MaskEdit.
O problema é o seguinte: na tela do programa, o usuário deverá digitar uma data (data nascimento) que deverá ser filtrada através do clique de um botão. Ou seja, ao clicar no botão, somente as pessoas que possuírem a data informada no componente, deverão aparecer no DBGrid da tela. Não há período de datas. É somente uma data que deverá ser informada. E o componente, necessariamente, tem quer ser o MaskEdit. Estou utilizando o banco Access.
Será que alguém poderia me ajudar?
Obrigado.
Tópico duplicado. Por favor, mantenha a discussão no tópico original...
http://forum.devmedia.com.br/viewtopic.php?t=89647[/color:5fee2db914][/quote:5fee2db914]Pessoal,
Estou tendo dificuldades em fazer um filtro por data utilizando o MaskEdit.
O problema é o seguinte: na tela do programa, o usuário deverá digitar uma data (data nascimento) que deverá ser filtrada através do clique de um botão. Ou seja, ao clicar no botão, somente as pessoas que possuírem a data informada no componente, deverão aparecer no DBGrid da tela. Não há período de datas. É somente uma data que deverá ser informada. E o componente, necessariamente, tem quer ser o MaskEdit. Estou utilizando o banco Access.
Será que alguém poderia me ajudar?
Obrigado.
Sgrandini
Curtir tópico
+ 0
Responder
Posts
29/08/2007
Daykas
Var
dt_nasc: String;
begin
dt_nasc := maskedit1.text;
query1.Close;
query1.SQL.Clear;
query1.SQL.Text := ´SELECT * FROM mailing_contato WHERE dt_nasc >=:pdt_nasc order by nome asc´;
query1.ParamByName(´pdt_nasc´).AsDateTime := StrToDate(dt_nasc);
query1.Open;
showmessage(´Registros: ´ + IntToStr(query1.RecordCount));
Divirta-se!!!
dt_nasc: String;
begin
dt_nasc := maskedit1.text;
query1.Close;
query1.SQL.Clear;
query1.SQL.Text := ´SELECT * FROM mailing_contato WHERE dt_nasc >=:pdt_nasc order by nome asc´;
query1.ParamByName(´pdt_nasc´).AsDateTime := StrToDate(dt_nasc);
query1.Open;
showmessage(´Registros: ´ + IntToStr(query1.RecordCount));
Divirta-se!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)