No se controló InvalidCastException

[t0n1]

Hola! Estoy intentando hacer una consulta que me permita mostrar registros en un datagrid y me está tirando ese cártel de error "La conversión de la cadena "Inglés" en el tipo 'Integer' no es válida" en esta parte del procedimeitno:

Código:

 Public Sub Consultar_Registros(ByVal oesc As Escuela)

        Dim CadenaSQL As String
        CadenaSQL = "Select Materia from Materias Where Alumno = " & oesc.Codigo & ""

        Dim DTRESULTADOS As DataTable
        DTRESULTADOS = Obtener_datos(CadenaSQL)

        If DTRESULTADOS.Rows.Count = 0 Then
            MsgBox("NO SE HAN ENCONTRADO RESULTADOS")
        Else

            oesc.Codigo = DTRESULTADOS.Rows(0).Item(0).ToString
        End If

    End Sub

Saludos!

[Aquaventus]

Hola t0n1, la propiedad oesc.Codigo es de tipo entero?? si es así, tú le estas asignando un string a ese valor, cuando en realidad debes castearlo :

Código vb:

oesc.Codigo = Convert.ToInt32(DTRESULTADOS.Rows(0).Item(0).ToString)
 

Saludos!.

[ramirezmario7]

Hola.
Segun lo que veo estas consultando la materia de un estudiante en especifico, pero esta materia la estas guardando en el campo oesc.Codigo, este campo no es donde metes el codigo de estudiante?, es entero y le estas asignando el valor ingles una cadena por eso te saca error.
Mira bien en cual variable debes de asignar la materia.