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