Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: OSMAR en Noviembre 26, 2022, 07:34:46 pm

Título: Problemas con busqueda por rango en VB6 y access
Publicado por: OSMAR 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

Título: Re:Problemas con busqueda por rango en VB6 y access
Publicado por: Bazooka en Noviembre 26, 2022, 07:38:26 pm

Hola pero nunca mencionas cual es el problema...

Título: Re:Problemas con busqueda por rango en VB6 y access
Publicado por: AlbertoSS 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") & "#"