SQL parte cabeza

[LeonIsleño]

Utilizo el codigo que os dejo para ver si duplico el índice de una tabla en la BD. Lo increible es que las fechas con días de dos dígitos las recupera sin problemas pero cuando es de un dígito (ej. 01/12/2004) no se entera.

Dim odsindice As DataSet
Dim odaindice As OleDb.OleDbDataAdapter
MsgBox(Format(MCfaltas.SelectionStart, "dd/MM/yyyy"))
odaindice = New OleDb.OleDbDataAdapter("select * from faltasalumno where dnialumno='" + txtdnialum.Text + "' and faltas=#" + Format(MCfaltas.SelectionStart, "dd/MM/yyyy") + "#", ocon)
odsindice = New DataSet()
odaindice.Fill(odsindice, "faltasalumno")
MsgBox(odsindice.Tables("faltasalumno").Rows.Count )

Como veis ni utilizando formateo de fecha va. Os a pasado?? Ayudadmeee

Gracias.

[MartinAcevedo]

puede ser que el idioma este diferente entre la bd y la aplicacion, el mes es dia y el dia es mes, por eso con digitos (mas de 12) no ande o no filtre.

De todas maneras es mejor usar parametros para aislar el tema del idioma, es mejor pasar la fecha como parametro datetime ya que usa la fecha interna y no un texto con formato, si cambias el idioma de alguno de los dos es independiente.

seria algo asi

Dim odsindice As DataSet
Dim odaindice As OleDb.OleDbDataAdapter
Dim cmd As New OleDbCommand

Dim par As New OleDbParameter

par.DbType = DbType.DateTime
par.Value = CType(MCfaltas.SelectionStart, DateTime)
cmd.CommandText = "select * from faltasalumno where dnialumno='" + txtdnialum.Text + "' and faltas=?"
cmd.Parameters.Add(par)
cmd.CommandType = CommandType.Text

odaindice = New OleDb.OleDbDataAdapter
odaindice.SelectCommand = cmd

odsindice = New DataSet
odaindice.Fill(odsindice, "faltasalumno")
MsgBox(odsindice.Tables("faltasalumno").Rows.Count )

[LeonIsleño]

Perfecto. Funciona. muchisimas gracias.