Problema Simples com SQL, essa é fácil
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
Curtidas 0
Respostas
Diana
27/02/2003
dá uma olhado no indce desse registro...se é o primeiro reg, provávelmente está com indice ZERO.... :wink:
GOSTEI 0
Anonymous
27/02/2003
O índice não é zero....
GOSTEI 0
Anonymous
27/02/2003
a hora é armazenada no banco no formato hh:mm:ss tente ver se o parametro esta passando valores neste formato
GOSTEI 0