• Viernes 15 de Noviembre de 2024, 19:43

Autor Tema:  Filtrar Bd Pr Fechas  (Leído 1654 veces)

amayya

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Filtrar Bd Pr Fechas
« en: Miércoles 9 de Junio de 2004, 04:39 »
0
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.

racaru

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Filtrar Bd Pr Fechas
« Respuesta #1 en: Miércoles 9 de Junio de 2004, 16:31 »
0
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

amayya

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Re: Filtrar Bd Pr Fechas
« Respuesta #2 en: Jueves 10 de Junio de 2004, 01:01 »
0
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

amayya

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Re: Filtrar Bd Pr Fechas
« Respuesta #3 en: Viernes 11 de Junio de 2004, 02:21 »
0
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.