Datas no paradox! Por que não retorna a data requisitada?

20/05/2003

1

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

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;






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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira