Consulta sql en Visual

[manu_cai]

Hola de nuevo! mi problema es el siguiente:

Necesito saber cuantas peliculas hay en una fecha señalada. He hecho esto:

'Ya mas arriba abri la conexion y tal
Dim lector As MysqlDataReader
Dim sql As String
Dim comandoBD As MysqlCommand

sql = "SELECT COUNT(idpelicula) As Cant FROM peliculas WHERE fechainicio = '" & Format(cbFechaPeliHora.Value, "dd/MM/yyyy") & "' "
MessageBox.Show(sql)

comandoBD = New MySqlCommand(sql, conexionBD)
conexionBD.Open()

lector = comandoBD.ExecuteReader()

If lector.Item("Cant") >= 3 Then
Return ""
Else
Return "Valido"
End If
conexionBD.Close()

Fallo: ---> lector.Item("Cant") >= 3 <--- Invalid attempt to access a field before calling Read()

Alguna idea:S?

PD: He probado en mysql probando la consulta y funciona

[Dradi7]

No utilizes ExecuteReader si solo vas a utilizar un Campo a Devolver utiliza el ExecuteScalar() q te devuelve el registro de la primera fila y de la primera columna

Código vb:

Dim lector As Object
Dim sql As String
Dim comandoBD As MysqlCommand
 
sql = "SELECT COUNT(idpelicula) As Cant FROM peliculas WHERE fechainicio = '" & Format(cbFechaPeliHora.Value, "dd/MM/yyyy") & "' "
MessageBox.Show(sql)
 
comandoBD = New MySqlCommand(sql, conexionBD)
conexionBD.Open()
 
lector = comandoBD.ExecuteScalar()
 
If lector >= 3 Then
Return ""
Else
Return "Valido"
End If
conexionBD.Close()
 

[manu_cai]

Muchas gracias Dradi7. Funciona a la perfeccion