Consulta ADOQuery não acha nada...

[Alex Freitas]

Boa tarde!!

Criei uma aplicação para gerar o relatório de acordo com os dodos digitado em um Edit e 2 DateTimePicker, só que ao clicar no botão, o relatório em quick Reports é gerado, mais não apresenta nenhum dado, mesmo tendo dados para apresentar.

O código que estou usando é o seguinte:

procedure TFrmRelCorretor.BitBtn1Click(Sender: TObject);
var
Inicio,Final:string;
begin
If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!');
DateTimePicker2.Date := DateTimePicker1.Date;
end
Else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);
QueryPE.Close;
QueryPE.SQL.Clear;
QueryPE.SQL.Add('SELECT * FROM Clientes WHERE  DatadePagamento >=:pInicial and DatadePagamento <=:pFinal and (Clientes.Corretor) In ('''+EdtCampo.Text+''')');
QueryPE.Parameters.ParamByName('pInicial').Value := StrToDate(inicio);
QueryPE.Parameters.ParamByName('pFinal').Value  := StrToDate(final);
QueryPE.Open;
FrmRel1.QuickRep1.Preview;
FrmRelCorretor.Close;
End
End;
End.

alguém pode me ajudar, ou até mesmo melhorar o código

Editado Agosto 19, 2008 por Alex Freitas

[Micheus]

Alex Freitas, acho que este assunto já está sendo tratado no seu outro tópico, mas em todos os casos...

Vejo que você mudou a parte que verifica o Corretor, em relação ao outro tópico. Afinal, qual o tipo de dados do campo Corretor? Que tipo de informação estará vindo do EdtCampo?

Abraços