Autor Tema: Problemas con busqueda por rango en VB6 y access  (Leído 187 veces)

0 Usuarios y 1 Visitante están viendo este tema.

OSMAR

  • Bit
  • Mensajes: 1
  • Reputación: +0/-0
    • Ver Perfil
Problemas con busqueda por rango en VB6 y access
« en: Noviembre 26, 2022, 07:34:46 pm »
Hola que tal amigos, alguien me puede ayudar a solucionar un problema que tengo sobre la busqueda por rangos de fechas con una bd de access,
estoy haciendo en un formulario de prueba y el codigo que utilizo seria la siguiente,:
Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim SrtSQL As String

'''''---------------forma 1.... que no me funciona.........
'strSQL = "Select * From [Datos]where [fecha1] Between #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# AND fecha1 #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#"
'Debug.Print strSQL
'MsgBox SrtSQL

'''''---------------forma 2.... que tampoco me funciona.........
rs.Source = "SELECT * FROM Datos WHERE fecha1 >= Between #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# AND fecha1 <= #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#"

MsgBox rs.Source ' para verificar el formato de la fecha a buscar

Set DataGrid1.DataSource = rs   ' aca mostramos los datos encontrados en un datagrid


'''''---------------forma 3.............

''rs.Source = "Select*from Datos where fecha1 >=#" & DTPicker1.Value & "# AND fecha1<= #" & DTPicker2.Value & "#"
End Sub


desde ya muchas gracias

Bazooka

  • Terabyte
  • *****
  • Mensajes: 951
  • Reputación: +31/-20
  • El pibe Bazooka
    • Ver Perfil
    • Desof sistemas
Re:Problemas con busqueda por rango en VB6 y access
« Respuesta #1 en: Noviembre 26, 2022, 07:38:26 pm »
Hola pero nunca mencionas cual es el problema...
Todos somos muy ignorantes. Lo que ocurre es que no todos ignoramos las mismas cosas.

AlbertoSS

  • Bit
  • Mensajes: 1
  • Reputación: +0/-0
    • Ver Perfil
Re:Problemas con busqueda por rango en VB6 y access
« Respuesta #2 en: Noviembre 30, 2022, 03:58:25 am »
Solo elimina la palabra fecha1 despues del AND


"Select * From [Datos]where [fecha1] Between #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# AND fecha1 #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#"


"Select * From [Datos]where [fecha1] Between #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# AND #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#"