Ver Mensaje Individual
  #1  
Antiguo 16-03-2011
leofuentes21 leofuentes21 is offline
Miembro
NULL
 
Registrado: feb 2011
Ubicación: la ceiba, atlantida
Posts: 66
Reputación: 14
leofuentes21 Va por buen camino
ayuda con una consulta

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.
Responder Con Cita