Hola Buenos días

Esta es mi primer consulta en ese te foro estuve buscando antes de abrir un tema sobre el problema que tengo, que es el siguiente. Lo que hago es en el evento Click del objeto Calendar filtro por la fecha que se selecciono en el calendario y lo igualo en un datagrid. El problema es que me funciona bien en la mayoría de las de las fechas pero con las fechas que implican el numero dos(2,12,22) de cualquier mes no me muestra nada

Les dejo el código a ver si me pueden guiar o dar una idea de que tengo mal o que tengo que re-hacer

Dim co As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Abrir()
Set co = New ADODB.Connection
co.Open "Provider=Microsoft Jet 4.0 OLE DB Provider ; Data Source = C:\ProgramaTest\Paciente.mdb"
Set rs = New ADODB.Recordset
rs.ActiveConnection = co
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
End Sub

Private Sub Calendar1_Click()
Abrir
rs.Source = "SELECT * FROM Turnos where Fecha = #" & Calendar1.Value & "#"
rs.Open
Frame2.Visible = False
DataGrid1.Visible = True
Calendar1.Visible = False
Command3.Visible = True
Command6.Visible = True
DataGrid1.ClearFields
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Quiero anticiparme y decirles que es mi primer programa es visual basic, así que disculpen si ven errores muy feos en el código


Desde ya Muchas Gracias
Saludos

Hola criseze
podrias indicar con cual plataforma de base de datos estas reabajando? (Access, SQL Server, Oracle). Al pasar Caledar.Value estas enviando el formato dd/mm/yyyy y no todas las plataformas de manipulacion de datos aceptan ese formato.
Supungo que es Access puesto que estas utilizando # en tu clausula SQL.
Aclara ese punto y puedo darte una respuesta

Hola RoyMata

Así es, estoy utilizando Access 2007, Cual sera el problema?. Muchas gracias por responder

Saludos

Es simplemente darle formato al valor de fecha. Para Access el formato debe ser "mm-dd-yyyy", entonces puedes hacerlo de esta forma:

Código:

rs.Source = "SELECT * FROM Turnos where Fecha = #" & Format(Calendar1.Value, "mm-dd-yyyy") & "#"

Suerte

Hola Buen día

Funciono a la perfección! Muchas gracias, es algo nuevo a tener en cuenta!

Muchas Gracias

Perfecto criseze, me alegra que funcionara. Muy importante tener siempre en cuenta el formato utilizado segun la plataforma con la que se trabaja.
Saludos