hola amigos saludos
Necesito que me ayuden con esta consulta.
disculpen si no me se explicar bien pero no llevo mucho tiempo programando
lo que trato de hacer es por medio de una query hacer una consulta en la base de dato para que me muestre los datos de una fecha asta la otra los datos que esten entre esas dos fechas, para ello utiliso datetimepiecker y los datos del resultado de la consulta quiero que me los muestre en el reporte en qrlabels.La base de datos en firebir
este es lo que tengo:
Código Delphi
[-]
if not frmmenu.database1.InTransaction then frmmenu.database1.StartTransaction;
try
with qry1 do
begin
Active:=False;
SQL.Clear;
SQL.Text:='SELECT FECHASOLICITUD FROM TSCBAST WHERE
((FECHASOLICITUD >='+QuotedStr(DateToStr(dtp1.Date))
+') AND (FECHASOLICITUD<='+QuotedStr(DateToStr(dtp2.Date))+'))';
Active:=true;
end;
frmMenu.database1.commit;
except
frmMenu.database1.rollback;
MessageDlg('Ocurrio un error en el porteo,intente de nuevo',mtError,mbOKCancel,0);
Exit;
end;
frmReporteFecha:= tfrmReporteFecha.create(nil);
try
frmReporteFecha.qrlbl6.Caption:=DateToStr(dtp1.Date);
frmReporteFecha.qrlbl7.Caption:=DateToStr(dtp2.Date);
frmReporteFecha.ReporteFecha.Preview;
finally
FreeAndNil(frmReporteFecha)
end;
el problema es que crea muchas paginas en el qreport,espero me ayuden se lo agradesere mucho.