Programación General > Visual Basic 6.0 e inferiores

 Cunsulta Entre Dos Fechas

(1/2) > >>

benegas:
Hola Amigos del foro Solocodigo.....  :blink:

tengo un consulta que acerles espero su ayuda... Gracias
me pueden guiar con este codigo

MENSAJES_.RecordSource = "Select fecha,hora,mensaje from Mensajes where fecha betwen " & CStr(fini) & " and " & CStr(ffin) & ""

quiero que me muestre los registro en un datagrid1, que estee en un rango de fecha y no me sale....
estoy utilizando un Adodc para conectarme con la base de datos en acces...

desde ya mil gracias...  :hola:

Angel38:
Hola viejo  ;)

Consulatar con fechas es un poco dificil porque access tiene problemas para reconocer ciertas formas. He lidiado con varios errores espero que los que te diga sirvan de ayuda. :D

Cambia esta parte del codigo asi.


[/CODE] #" & fini &"#  and  #" & ffin & "#"

--- Código: Text ---  ese es el formato para las fechas aunque por mi parte hubiese utilizado esta forma ya que between no te deja buscar entre la misma fecha.    Select fecha,hora,mensaje from Mensajes where fecha >= #" & format(fini.value, "yyyy/mm/dd") & "# and  #" & format(ffin.value,"yyyy/mm/dd") & "#
[CODE]


El formato lo pongo al revés porque no se que carajo pasa con access que de la forma normal no lo reconoce. :P

Espero que te haya ayudado, sino, me avisas para ver que otra solucion puede haber. ;)

benegas:
hola Angel38 gracias por tu respuesta... :D

utilice el siguente code que me pasaste

Mensajes_.RecorsdSource = Select fecha,hora,mensaje from Mensajes where fecha >= #" & format (fini.value, "yyyy/mm/dd") & "# and #" & format(ffin.value,"yyyy/mm/dd") & "#
[CODE]

no me da nigun error pero me sigue mostrando toda la base de datos en el datagrid1, creo que no me filtar los datos, es la ultima funcion que necesito que salga para terminar mi sistema para poder utilizarlo...  :comp:

cpmario:
A su código después del AND les hace falta "AND Fecha <="  


--- Código: Text ---            Mensajes_.RecorsdSource = &#34;Select fecha,hora,mensaje from Mensajes where fecha &#62;= #&#34; & Format(fini.Value, &#34;yyyy/mm/dd&#34;) & &#34;# AND Fecha &#60;=  #&#34; & Format(ffin.Value, &#34;yyyy/mm/dd&#34;) & &#34;#&#34; 
 :comp:

Angel38:
No me di cuenta, estaba de carrera y no coloque bien la instruccion SQL. :P

Disculpa benegas, el señor cpmario tiene toda la razon me faltó ese pedazo de codigo. :rolleyes:

Gracias cpmario un saludo amigo mio. :hola:
Escribenos para saber como te fue con la correccion :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente