Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-03-2011
leofuentes21 leofuentes21 is offline
Miembro
NULL
 
Registrado: feb 2011
Ubicación: la ceiba, atlantida
Posts: 66
Poder: 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
  #2  
Antiguo 16-03-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.010
Poder: 20
oscarac Va por buen camino
la pregunta del millon....
la informacion que se muestra en esas muchas hojas que te emite el reporte...
es valida?, es decir
esta dentro del rago de fechas que tu colocas?
no especificas la base de datos que usas.. imagino que es SQL

te recomendaria tomar en cuenta el tema de la fecha como parametro
Código Delphi [-]
Query.ParamByName('FechaInicio').AsDateTime := StrToDate(FormatDateTime('DD/MM/YYYY',DateTimePicker1.Date));
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #3  
Antiguo 16-03-2011
leofuentes21 leofuentes21 is offline
Miembro
NULL
 
Registrado: feb 2011
Ubicación: la ceiba, atlantida
Posts: 66
Poder: 14
leofuentes21 Va por buen camino
ok la base es sql.

y los datos que me muestra es la fecha que meto en los datetimpicker pero por ejemplo. si pongo 02/01/11 y 25/02/11 en el qreport me muestra esa fecha pero repetidas asta 490 paginas pero solo de esa misma fecha. no avansa sino que solo la misma fecha. y tengo mas registros de diferentes fechas no solo la misma. osea que no hace el filtro.
Responder Con Cita
  #4  
Antiguo 16-03-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.010
Poder: 20
oscarac Va por buen camino
intenta colocar los resultados del query en un grid.. para descartar si es la consulta en si o el reporte
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #5  
Antiguo 16-03-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
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 >= :fec1 AND FECHASOLICITUD <= :fec2';
         Params[0].value:= DateToStr(dtp1.Date);
         Params[1].value:= DateToStr(dtp2.Date);
         Active:=true;

      frmReporteFecha:= tfrmReporteFecha.create(self);
       try
        frmReporteFecha.qrlbl6.Caption:=DateToStr(dtp1.Date);
        frmReporteFecha.qrlbl7.Caption:=DateToStr(dtp2.Date);
         frmReporteFecha.ReporteFecha.Preview;
       finally
        frmReporteFecha.Free;
       end;
Para mi lo demas sobra.
Saludos
__________________
Siempre Novato
Responder Con Cita
  #6  
Antiguo 16-03-2011
leofuentes21 leofuentes21 is offline
Miembro
NULL
 
Registrado: feb 2011
Ubicación: la ceiba, atlantida
Posts: 66
Poder: 14
leofuentes21 Va por buen camino
ya lo prove en un grid y todo esta bien la consulta esta bien me da correcto los datos,entonces creo que es el reporte porque cuando lo ejecuto me abre muchas paginas solo con la fecha que esta en los datatimepicker en ves de las que quiero que me muestre.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
ayuda con consulta sql microbiano Conexión con bases de datos 2 01-02-2011 18:38:18
ayuda con consulta con ado y SQL frholguin SQL 11 23-04-2010 23:13:43
ayuda con consulta GuillermoMeert SQL 5 25-11-2009 09:38:26
ayuda en una consulta please lakers MySQL 5 15-04-2008 23:53:23
Ayuda con consulta @ngeluz Conexión con bases de datos 6 12-02-2006 21:38:58


La franja horaria es GMT +2. Ahora son las 14:58:36.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi