Consulta entre Datas (Delphi 7 Mysql 4.1)
22/03/2006
0
Gente,
Criei um relatório que pesquisa clientes numa tabela mysql 4.1 pela data de nascimento. O Problema é que a data extraída da tabela vem sempre no formato ´aaaa/mm/dd´ e eu preciso que ela venha no formato ´dd/mm/aaaa´, assim como eu informo nos dois edit´s, então o relatório sai sempre em branco. Será que alguém pode me ajudar?
Meu código está logo abaixo:
frmRelCadClienteComp.zqRelCliente.Close;
frmRelCadClienteComp.zqRelCliente.SQL.Clear;
frmRelCadClienteComp.zqRelCliente.SQL.Add(´Select * from cadcli where dtnasc between :Cliente and :Cliente1 Order by cdcliente´);
frmRelCadClienteComp.zqRelCliente.Params[0].AsDate := StrToDate(dtPeriodo1.Text);
frmRelCadClienteComp.zqRelCliente.Params[1].AsDate := StrToDate(dtPeriodo2.Text);
frmRelCadClienteComp.zqRelCliente.Open;
if rgTelaImpressora.ItemIndex = 0 then
frmRelCadClienteComp.RLReport1.Preview()
Else
frmRelCadClienteComp.RLReport1.Print;
:( :(
Criei um relatório que pesquisa clientes numa tabela mysql 4.1 pela data de nascimento. O Problema é que a data extraída da tabela vem sempre no formato ´aaaa/mm/dd´ e eu preciso que ela venha no formato ´dd/mm/aaaa´, assim como eu informo nos dois edit´s, então o relatório sai sempre em branco. Será que alguém pode me ajudar?
Meu código está logo abaixo:
frmRelCadClienteComp.zqRelCliente.Close;
frmRelCadClienteComp.zqRelCliente.SQL.Clear;
frmRelCadClienteComp.zqRelCliente.SQL.Add(´Select * from cadcli where dtnasc between :Cliente and :Cliente1 Order by cdcliente´);
frmRelCadClienteComp.zqRelCliente.Params[0].AsDate := StrToDate(dtPeriodo1.Text);
frmRelCadClienteComp.zqRelCliente.Params[1].AsDate := StrToDate(dtPeriodo2.Text);
frmRelCadClienteComp.zqRelCliente.Open;
if rgTelaImpressora.ItemIndex = 0 then
frmRelCadClienteComp.RLReport1.Preview()
Else
frmRelCadClienteComp.RLReport1.Print;
:( :(
Monteirog12
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)