Problema Simples com SQL, essa é fácil
27/02/2003
0
Tenho o seguinte código em um botão:
With QrConsulta1, SQL do
Begin
QrConsulta.Close;
Close;
Clear;
Add(´SELECT CONS_DATA, CONS_HORA, PRONT_NOME, CONS_VALOR,´);
Add(´CONV_DESCRICAO, MEDICO_NOME FROM VIEW_CONSULTA´);
Add(´WHERE CONS_DATA=:DIA´);
Add(´AND CONS_HORA BETWEEN :Inicial AND :Final´);
Add(´ORDER BY CONS_DATA, CONS_HORA´);
Params[0].AsDate:=StrToDate(MaskEdit1.Text);
Params[1].AsTime:=StrToTime(MaskEdit2.Text);
Params[2].AsTime:=StrToTime(MaskEdit3.Text);
QrConsulta.Open;
If QrConsulta.RecordCount=0 Then
ShowMessage(´Não há informações a serem exibidas!´)
Else
QuickRep1.Preview;
QrConsulta.Close;
End;
O record count dá zero mas tem 1 registro que inseri de teste justamente para ver se dava certo, a data e a hora do registro estão corretos com o intervalo que digito, o que pode estar errado?
With QrConsulta1, SQL do
Begin
QrConsulta.Close;
Close;
Clear;
Add(´SELECT CONS_DATA, CONS_HORA, PRONT_NOME, CONS_VALOR,´);
Add(´CONV_DESCRICAO, MEDICO_NOME FROM VIEW_CONSULTA´);
Add(´WHERE CONS_DATA=:DIA´);
Add(´AND CONS_HORA BETWEEN :Inicial AND :Final´);
Add(´ORDER BY CONS_DATA, CONS_HORA´);
Params[0].AsDate:=StrToDate(MaskEdit1.Text);
Params[1].AsTime:=StrToTime(MaskEdit2.Text);
Params[2].AsTime:=StrToTime(MaskEdit3.Text);
QrConsulta.Open;
If QrConsulta.RecordCount=0 Then
ShowMessage(´Não há informações a serem exibidas!´)
Else
QuickRep1.Preview;
QrConsulta.Close;
End;
O record count dá zero mas tem 1 registro que inseri de teste justamente para ver se dava certo, a data e a hora do registro estão corretos com o intervalo que digito, o que pode estar errado?
Anonymous
Curtir tópico
+ 0
Responder
Posts
27/02/2003
Diana
dá uma olhado no indce desse registro...se é o primeiro reg, provávelmente está com indice ZERO.... :wink:
Responder
27/02/2003
Anonymous
a hora é armazenada no banco no formato hh:mm:ss tente ver se o parametro esta passando valores neste formato
Responder
Clique aqui para fazer login e interagir na Comunidade :)