SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: amayya en Miércoles 9 de Junio de 2004, 04:39

Título: Filtrar Bd Pr Fechas
Publicado por: amayya en Miércoles 9 de Junio de 2004, 04:39
como puedo filtar una base de datos
a traves de campor tipo fecha

la base de datos esta en access 97

 la orden en el programa esta de la
 siguiente manera:

  Ejemplo1:  
 
  Data1.RecordSource = "Select * from compras where fecha >= fechaini and
                                     fecha <= fechafin"

  Data1.Refresh

    Ejemplo2:  
 
  Data1.RecordSource = "Select * from compras where 'fecha >= fechaini' and
                                     'fecha <= fechafin'"

  Data1.Refresh



  pero marca errores. y por mas que le muevo
  no hace el filtro.
Título: Re: Filtrar Bd Pr Fechas
Publicado por: racaru en Miércoles 9 de Junio de 2004, 16:31
Hola, supongo que fechaini y fechafin son variables, entonces la forma de pasarla seria la siguiente


Data1.RecordSource = "Select * from compras where fecha >= " & fechaini & " and  fecha <= " & fechafin
Título: Re: Filtrar Bd Pr Fechas
Publicado por: amayya en Jueves 10 de Junio de 2004, 01:01
Cita de: "racaru"
Hola, supongo que fechaini y fechafin son variables, entonces la forma de pasarla seria la siguiente


Data1.RecordSource = "Select * from compras where fecha >= " & fechaini & " and  fecha <= " & fechafin
muchas gracias por
ayudarme con la respuesta
espero poder corresponder.

  manejo PASCAL
             COBOL
             FOXPRO
             VISUAL BASIC
Título: Re: Filtrar Bd Pr Fechas
Publicado por: amayya en Viernes 11 de Junio de 2004, 02:21
no funciono.
por alguna razon no marca ningun error al llamar el procedimiento
pero no hace el filtro.

le hice algunas modificaciones gracias a otra respuesta que me
dieron para hace el filtro en crystal report que es de la siguiente manera:

'Donde Text1 tiene almacenada la Fecha inicial
'y Text2 la fecha Final

dia = Day(Text1)
mes = Month(Text1)
año = Year(Text1)
FechaInicial = "#" & dia & "/" & mes & "/" & año & "#"

dia=Day(Text2)
mes=Month(Text2)
año=Year(Text2)
FechaFinal = "#" & dia & "/" & mes & "/" & año & "#"

Data1.RecordSource = "Select * from compras where fecha >= " & FechaInicial " and fecha <= " & FechaFinal
Data1.Refresh

De todas Formas Agradezco la molestia.