Relatorio Acess Query Qreport
Awe pessoal fmz? jah tinha criado o topico ate tinham respondido(nao com a solucao) mais nao sei pq o topico evaporo. entao to postando denovo pq to precisando disso.
Tipo eu to com um probleminha
Eu tenho uma tabela clientes com os seguintes campos
Codigo
Nome
Convenio
Data
E eu quero que num form o cara digite duas datas(que tao em dois edits diferentes) e ai eu mostre o relatorio com todos os dados qeu tem entre as datas que o usuario colocou
So que o problema esta aqui:
Eu to usando ado pq to usando acess, E to usando Qreport tb pq eh oque eu sei.
E o problema esta em associa os QRDBText aos campos da tabela.
Pq como to usando uma query nao tem como eu faze isso entende?
E to fazendo assim:
procedure TFrmRelatorio.QuickRep1AfterPreview(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add(´SELECT Clientes.Codigo,Clientes.Nome,Clientes.Convenio,Clientes.Data FROM Clientes WHERE Data > :PL AND Data < :PA´);
Parameters.ParamByName(´PL´).Value := FrmPesq.MaskEdit1.text;
Parameters.ParamByName(´PA´).Value := FrmPesq.MaskEdit2.text;
Open;
end;
QRDBText1.DataField := ADOQuery1.Fields[0].FieldName;
QRDBText2.DataField := ADOQuery1.Fields[1].FieldName;
QRDBText3.DataField := ADOQuery1.Fields[2].FieldName;
QRDBText4.DataField := ADOQuery1.Fields[3].FieldName;
end;
Pra ve se funcionava mais nao aparece nada
E ai alguem sabe uma solucao pra isso?
Um cara nao lembro o nick falo pra eu faze de uma maneira mais nao deu certo sera que ng sabe? preciso mt disso
Tipo eu to com um probleminha
Eu tenho uma tabela clientes com os seguintes campos
Codigo
Nome
Convenio
Data
E eu quero que num form o cara digite duas datas(que tao em dois edits diferentes) e ai eu mostre o relatorio com todos os dados qeu tem entre as datas que o usuario colocou
So que o problema esta aqui:
Eu to usando ado pq to usando acess, E to usando Qreport tb pq eh oque eu sei.
E o problema esta em associa os QRDBText aos campos da tabela.
Pq como to usando uma query nao tem como eu faze isso entende?
E to fazendo assim:
procedure TFrmRelatorio.QuickRep1AfterPreview(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add(´SELECT Clientes.Codigo,Clientes.Nome,Clientes.Convenio,Clientes.Data FROM Clientes WHERE Data > :PL AND Data < :PA´);
Parameters.ParamByName(´PL´).Value := FrmPesq.MaskEdit1.text;
Parameters.ParamByName(´PA´).Value := FrmPesq.MaskEdit2.text;
Open;
end;
QRDBText1.DataField := ADOQuery1.Fields[0].FieldName;
QRDBText2.DataField := ADOQuery1.Fields[1].FieldName;
QRDBText3.DataField := ADOQuery1.Fields[2].FieldName;
QRDBText4.DataField := ADOQuery1.Fields[3].FieldName;
end;
Pra ve se funcionava mais nao aparece nada
E ai alguem sabe uma solucao pra isso?
Um cara nao lembro o nick falo pra eu faze de uma maneira mais nao deu certo sera que ng sabe? preciso mt disso
Snipa
Curtidas 0
Respostas
Snipa
06/04/2004
Sobe
Ae pessoal da uma ajudinha ae :)
Ae pessoal da uma ajudinha ae :)
GOSTEI 0
Phsm
06/04/2004
Esta confuso, ligue os campos da query direto no relatório, altere a opcao de displayformat do campo de data da query p./ dd/mm/yy.
Mas afinal, o que acontece ?? não mostra nada ou somente os campos de data ??
Mas afinal, o que acontece ?? não mostra nada ou somente os campos de data ??
GOSTEI 0
Snipa
06/04/2004
Nao mostra nenhum dado
o recordcount eh 0
sendo que existe dados
E nao tem como eu liga direto no relatorio com uma query (pelo menos que eu saiba se tive me fala ae)
:)
o recordcount eh 0
sendo que existe dados
E nao tem como eu liga direto no relatorio com uma query (pelo menos que eu saiba se tive me fala ae)
:)
GOSTEI 0