Datas no paradox! Por que não retorna a data requisitada?
20/05/2003
0
tenho a rotina abaixo em um botão, quando digito a data no maskedit, mesmo ela existindo na tabela, ela não aparece
obs: (maskEdit = data padrão dd/mm/aaaa)
procedure TFrmPagar.BtnSelClick(Sender: TObject);
begin
sIni := EdtIni.Text;
sFim := EdtFim.Text;
sStr := ´select * from pagar where venc = :sIni´;
DmMdm.QryPag.Close;
DmMdm.QryPag.Sql.Clear;
DmMdm.QryPag.Sql.Add(sStr);
DmMdm.QryPag.ParamByName(´sIni´).AsDate := StrToDate(EdtIni.Text);
DmMdm.QryPag.open;
end;
obs: (maskEdit = data padrão dd/mm/aaaa)
procedure TFrmPagar.BtnSelClick(Sender: TObject);
begin
sIni := EdtIni.Text;
sFim := EdtFim.Text;
sStr := ´select * from pagar where venc = :sIni´;
DmMdm.QryPag.Close;
DmMdm.QryPag.Sql.Clear;
DmMdm.QryPag.Sql.Add(sStr);
DmMdm.QryPag.ParamByName(´sIni´).AsDate := StrToDate(EdtIni.Text);
DmMdm.QryPag.open;
end;
Phibis
Curtir tópico
+ 0
Responder
Posts
20/05/2003
Cdaraujo
Caro Amigo,
Espero ajudar, veja o código abaixo:
Lembrando que o código abaixo funcionará para campos dos tipos DateTime.
sStr := ´select * from pagar where venc >= :sIni and venc <= :sFim´;
DmMdm.QryPag.Close;
DmMdm.QryPag.Sql.Clear;
DmMdm.QryPag.Sql.Add(sStr);
DmMdm.QryPag.ParamByName(´sIni´).AsDate := StrToDate(EdtIni.Text);
DmMdm.QryPag.ParamByName(´sFim´).AsDate := StrToDate (EdtIni.Text) + 1;
DmMdm.QryPag.open;
Espero ajudar, veja o código abaixo:
Lembrando que o código abaixo funcionará para campos dos tipos DateTime.
sStr := ´select * from pagar where venc >= :sIni and venc <= :sFim´;
DmMdm.QryPag.Close;
DmMdm.QryPag.Sql.Clear;
DmMdm.QryPag.Sql.Add(sStr);
DmMdm.QryPag.ParamByName(´sIni´).AsDate := StrToDate(EdtIni.Text);
DmMdm.QryPag.ParamByName(´sFim´).AsDate := StrToDate (EdtIni.Text) + 1;
DmMdm.QryPag.open;
tenho a rotina abaixo em um botão, quando digito a data no maskedit, mesmo ela existindo na tabela, ela não aparece
obs: (maskEdit = data padrão dd/mm/aaaa)
procedure TFrmPagar.BtnSelClick(Sender: TObject);
begin
sIni := EdtIni.Text;
sFim := EdtFim.Text;
sStr := ´select * from pagar where venc = :sIni´;
DmMdm.QryPag.Close;
DmMdm.QryPag.Sql.Clear;
DmMdm.QryPag.Sql.Add(sStr);
DmMdm.QryPag.ParamByName(´sIni´).AsDate := StrToDate(EdtIni.Text);
DmMdm.QryPag.open;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)