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;


Phibis

Phibis

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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar