Información previa: Tengo una base de datos con un campo tipo Fecha/Hora en Access (dd/mm/aa hh:mm:ss). La idea es meter una fecha (introducida en tres TextBox TBDia
TBMes
TBAnio
) y que me saque los registros de esa fecha (para ver las horas) en un DataGridView
llamado DGVFechas
. Este es mi código:
'cogemos la fecha de los TextBox'
Dim fecha As Date = DateSerial(TBAnio.Text, TBMes.Text, TBDia.Text)
'cogemos todos los datos de la fecha'
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=F:\CrossChex.mdb")
con.Open()
Dim query2 As String = "SELECT CheckTime, CheckType FROM Checkinout WHERE CheckTime = " & fecha
Dim DA2 As New OleDbDataAdapter(query2, con)
Dim DT2 As New DataTable
DA2.Fill(DT2)
DGVFechas.DataSource = DT2
'cambiamos el nombre de las columnas del DataGridView'
DGVFechas.Columns(0).HeaderText = "Horas"
He probado declarando fecha
como string
y no he sido capaz de hacerlo funcionar tampoco. Supongo que el fallo está en la consulta, que no será "=" sino "LIKE" o similar, pero ya he probado todas las combinaciones que se me han ocurrido y no he encontrado la forma.
Hay fragmentos de código que he suprimido ya que no son importantes para este fallo, quizá he quitado algo de más pero creo que no es el caso.
Muchas gracias de antemano!