ActiveDelphi

[dooux]

Boa tarde galera!!

Estou com um probleminha com uma consulta, talvez alguém ja tenha passado pelo mesmo e possa me ajudar. Uso o firebird, e fazendo uma consulta entre datas ela só retorna dez registros sempre, porém no banco(uso SQL Lite) ele retorna correto, o problema é que tenho esse mesmo código, praticamente identico rodando em outra parte do sistema e funciona.
Alguém já passou por isso?

OBS: Uso uma função CovDataBanco que converte o formato da data para o formato do banco:
***************
Function CovDataBanco(Data:TDateTime):string;
Var
d,m,a: Word;
Begin
DecodeDate(Data, a,m,d);
Result := IntToStr(m) + '/' + IntToStr(d) + '/' + IntToStr(a);
End;
**************

Segue o código:
//*********************************************************

DataInicial := (frmConsultaLancamentos.maskedit1.Text);
DataFinal := (frmConsultaLancamentos.maskedit2.Text);
sSql := 'SELECT R.PLACA, R.DATA, R.ID_OPERADOR, R.HORAE, U.* FROM REIMPRESSAO R, USUARIOS U WHERE DATA BETWEEN ' + QuotedStr(CovDataBanco(StrToDate(DataInicial))) + ' AND ' + QuotedStr(CovDataBanco(StrToDate(DataFinal))) + ' AND R.ID_OPERADOR = U.ID_USUARIO ' + ' ORDER BY DATA';

Dm.ibqAuxiliar.Close;
Dm.ibqAuxiliar.SQL.Clear;
Dm.ibqAuxiliar.SQL.Text := sSql;
Dm.ibqAuxiliar.Open;
while not Dm.ibqAuxiliar.Eof do
Begin
with Dm.ibqAuxiliar DO
Begin
sTexto := FieldByName('PLACA').AsString);
sTexto := sTexto + ' ' + FieldByName('DATA').AsString);
sTexto := sTexto + ' ' + FieldByName('USU_NOME').AsString;
sTexto := sTexto + ' ' + FieldByName('HORAE').AsString;
AddRelatorio(sTexto);
Dm.ibqAuxiliar.Next;
End;
end;
AddRelatorio('-----------------------------------------');
AddRelatorio('TOTAL DE REIMPRESSÕES.......: ' +
IntToStr(Dm.ibqAuxiliar.RecordCount));

//********************************************

O estranho é que se uso o codigo no banco ele roda:

SELECT R.*, U.* FROM REIMPRESSAO R, USUARIOS U
WHERE DATA BETWEEN '01/01/2017' AND '01/19/2018' ORDER BY DATA

//******************************************

Alguém já passou por isso? :/

[imex]

Boa tarde,

Acho que ficou um pouco confuso porque em um momento você disse que está utilizando o Firebird e em outro o SQL Lite, mas de qualquer forma experimente fazer uns testes utilizando parâmetros na query pois dessa forma não é necessário deixar a data em um formato específico:

[dooux]

Oi amigo, o SQL Lite é apenas um programa de gerenciamento de BD, tipo o IB Expert, quando executo o comando nos dois da certo, o banco é Firebird mesmo.

Já tinha tentado dessa forma que voce colocou acima, não deu certo tbm. :/

Obrigado por responder.

[imex]

Você testou a query direto no BD da forma que segue abaixo?

[dooux]

Boa noite,
Desculpe a demora, estive fora uns dias.

Oi imex, cara muito obrigado, usando seu código resolveu.

Tinha esquecido esse pequeno detalhe.

Muito obrigado mesmo, a vc e a todos que responderam.