Visual Basic - Entre ambas Fechas

Mi problema es el siguiente:
Necesito mostrar en un ListView todos los campos a partir de un margen de fechas las cuales designo como inicio en un Combo1 hasta las que pongo en un Combo2.

Este es el código que tengo pero no logro hacer que me muestre todos los campos entre esas fechas que coloco en los ComboBox en el ListView

Dim tLi As ListItem
Dim rs As Recordset
Dim sBuscar As String
sBuscar = "SELECT * FROM TABLA WHERE FECHA BETWEEN' " & Combo1 & " ' AND ' " & Combo2 & " ' "
Set rs = db.OpenRecordset(sBuscar, dbOpenSnapshot)
Do While Not rs.EOF
Set tLi = ListView1.ListItems.Add(, , rs.Fields("FECHA") & "")
tLi.SubItems(1) = rs.Fields("CAMPO2") & ""
tLi.SubItems(2) = rs.Fields("CAMPO3") & ""
tLi.SubItems(3) = rs.Fields("CAMPO4") & ""
tLi.SubItems(4) = rs.Fields("CAMPO5") & ""
rs.MoveNext
Loop

Alguien me puede decir que me falta o que tengo malo??

Suponiendo que el campo FECHA es de tipo datetime y que la base de datos es SQLSERVER, puedes tratar con lo siguiente, en sBuscar:

sBuscar = "SELECT * FROM TABLA WHERE FECHA BETWEEN Cast('" & Combo1.Text & "' as datetime) AND Cast('" & Combo2.Text & "' as datetime)"

Esto es:
1. Por que así aseguras que lo que estás enviado como parámetro se convierta realmente en un datetime y
2. Por que con el .Text de los combos, aseguras que lo que estás enviando es lo que ves en el combo y no el .Value, que, al no estar definido, lo que puede estar enviando es 1 o 2 o etc...

Espero que te funcione.

Saludos.

Lo hice pero no me funciona.

Estoy trabajando con una base de datos en access y el CAST no me lo reconoce.
Los datos de fecha estan en el formato dd/mm/yyyy osea (06/06/2008), así los almacena.

Entonces inténtalo con lo siguiente:

sBuscar = "SELECT * FROM TABLA WHERE FECHA BETWEEN '" & Combo1.Text & "' AND '" & Combo2.Text & "'"

Saludos.

Me dice que NO COINCIDEN LOS TIPOS DE DATOS EN LA EXPRESION DE CRITERIOS.

sBuscar = "SELECT * FROM Recaudacion WHERE FechaInicio Between'" & Combo1.Text & "' AND '" & Combo2.Text & "'"
Set rs = db.OpenRecordset(sBuscar, dbOpenSnapshot)
ListView1.ListItems.Clear
Do While Not rs.EOF
Set tLi = ListView1.ListItems.Add(, , rs.Fields("FechaInicio") & "")
tLi.SubItems(1) = rs.Fields("HoraInicio") & ""
tLi.SubItems(2) = rs.Fields("FechaTermino") & ""
tLi.SubItems(3) = rs.Fields("HoraTermino") & ""
tLi.SubItems(4) = rs.Fields("TotalRecaudado") & ""
Text1.Text = rs!id
rs.MoveNext
Loop

EN LA CONSULTA LO DEPURA BIEN, PERO EN LA INSTRUCCION DE ABAJO AHÍ QUEDA Y ME MANDA ESE MENSAJE. ESTARÁ AHÍ EL PROBLEMA??

GRACIAS POR LA AYUDA QUE ME ESTAS DANDO PACOPAZ

En las instrucciones de abajo tienes la misma situación que con los combos. Necesitas especificar lo que quieres que mande.
rs.Fiels(Index) te trae el campo completo, con su datatype, su tamaño, etc, por eso no lo puede pasar a string.
Para que pase, debes indicar esto:

rs.Fields([Campo]).Value
ó
CStr(rs.Fields([Campo]).Value)

donde
[Campo] es el nombre de la columna en tu tabla.

Espero que ya funcione. :)

Saludos.

NP HAY CASO, PROBE CON LO QUE ME DIJISTE Y NADA.....ALGO MAS QUE SUGERIRME??

MIRA TE VOY A MANDAR EL CODIGO COMPLETO PARA QUE LO VEAS HABER SI ENCUENTRAS ALGO.

ESTOY CONECTADA POR DAO 3.6

Option Explicit

Private db As Database
Private rs As Recordset
-------------------------------------------------

Private Sub Form_Load()
Const sPathBase As String = "F:ENTRE FECHASasedato.mdb"
Set db = OpenDatabase(sPathBase)
Set rs = db.OpenRecordset("SELECT distinct(FechaInicio) FROM Recaudacion where FechaInicio = FechaInicio", dbOpenDynaset)
With ListView1
.View = lvwReport
.GridLines = True
.LabelEdit = lvwManual
.ColumnHeaders.Add , , "Fecha Inicio", 2000
.ColumnHeaders.Add , , "Hora Inicio", 1800
.ColumnHeaders.Add , , "Fecha Termino", 2400
.ColumnHeaders.Add , , "Hora Termino", 2200, lvwColumnRight
.ColumnHeaders.Add , , "Total Recaudado", 2400, lvwColumnRight
End With
rs.MoveFirst
Do While rs.EOF = False
Combo1.AddItem (rs.Fields("FechaInicio"))
rs.MoveNext
Loop
rs.MoveFirst
Do While rs.EOF = False
Combo2.AddItem (rs.Fields("FechaInicio"))
rs.MoveNext
Loop
End Sub
---------------------------------------------------------------

Private Sub cmdBuscar_Click()
Dim tLi As ListItem
Dim rs As Recordset
Dim sBuscar As String
sBuscar = "SELECT * FROM Recaudacion WHERE FechaInicio Between'" & Combo1 & "' AND '" & Combo2 & "'"
Set rs = db.OpenRecordset(sBuscar, dbOpenSnapshot)
ListView1.ListItems.Clear
Do While Not rs.EOF
Set tLi = ListView1.ListItems.Add(, , CStr(rs.Fields("FechaInicio").Value))
tLi.SubItems(1) = CStr(rs.Fields("HoraInicio").Value)
tLi.SubItems(2) = CStr(rs.Fields("FechaTermino").Value)
tLi.SubItems(3) = CStr(rs.Fields("HoraTermino").Value)
tLi.SubItems(4) = CStr(rs.Fields("TotalRecaudado").Value)
rs.MoveNext
Loop

End Sub

Disculpa que te insista con lo de Combo1.Text y Combo2.Text, pero es más fiable de esa manera.

Ahora, lo que también puedes hacer es ponerle un checkpoint en la línea:
Set rs = db.OpenRecordset(sBuscar, dbOpenSnapshot)
Para que evalúes lo que trae como texto sBuscar, que pases ese texto a una consulta en tu access y cheques que te trae.
Si trae datos, entonces checa lo que hace cada línea después de eso.
Ojala que pueda funcionar. Desafortunadamente ya me tengo que ir. Suerte

Saludos.

AHORA ME FUNCIONÓ!

LA CONSULTA QUE ME HABIAS DADO ESTABA CORRECTA EL PROBLEMA ESTABA EN MI BASE DE DATOS PORQUE EL CAMPO DE ESA FECHA LO TENIA DEFINIDO COMO TIPO DE DATO FECHA/HORA Y AHORA LO PASÉ A TEXT Y ME FUNCIONÓ SUPER BIEN.

GRACIAS POR TU AYUDA, DE VERDAD TE PASASTE MUCHAS GRACIAS.
QUE TENGAS UN BUEN FIN DE SEMANA. EXITOS.

para chatear quedais en un bar y os poneis moraos de tintorro!

con tanto chateo me habeis tapado mi pregunta que era muy importante!

Hola
La propuesta de pacopaz esta bien y llena de buena voluntad, pero a mi tampoco me funciona, y a Myriam le sabe mal seguir dando la brasa pero creo que tampoco le funciona porque no es posible que funcione tal como esta redactada.
Sin animos de molestar a nadie, y mucho menos a alguien que ha dado varias respuestas cosa poco habitual, de la unica manera que he conseguido que funcione es de la siguiente forma.

combo1 = "#" & Format(combo1, "mm/dd/yy") & "#"
combo2 = "#" & Format(combo2, "mm/dd/yy") & "#"
sbuscar = "SELECT * FROM TABLA WHERE FECHA BETWEEN "
sbuscar = sbuscar & combo1 & " AND " & combo2

Se podria haber escrito en una linea, pero asi se ve mejor.