Public Function modificar(ByVal alumno As AlumnoEN, ByVal codigo As Integer) As Boolean
        Dim connection As New SqlConnection(Me.CadenaConexion)
        Dim sql As StringBuilder = New StringBuilder("")
        Dim sql2 As StringBuilder = New StringBuilder("")

        sql.Append(" UPDATE inf2450883g2dba.Alumno")
        sql.Append(" SET nombres=@nombres, apePaterno=@apePaterno,apeMaterno=@apeMaterno,fechaNacimiento=@fechaNacimiento ,")
        sql.Append(" edad =@edad, direccion=@direccion,distrito=@distrito,telefono=@telefono,celular=@celular,")
        sql.Append(" Email =@Email, padre=@padre,madre=@madre,apoderado=@apoderado,seccion=@seccion,fechaIngreso=@fechaIngreso,")
        sql.Append(" colegioProcedencia =@colegioProcedencia, estadoPago=@estadoPago,estadoMatricula=@estadoMatricula,observaciones=@observaciones,idGrado=@idGrado")
        sql.Append(" WHERE idAlumno = ").Append(codigo)
        Dim parameters(22) As SqlParameter
        parameters(0) = New SqlParameter("@estadoMatricula", alumno.EstadoMatricula)
        parameters(1) = New SqlParameter("@apoderado", alumno.Apoderado)
        parameters(2) = New SqlParameter("@fechaIngreso", alumno.FechaIngreso)
        parameters(3) = New SqlParameter("@colegioProcedencia", alumno.ColegioProcedencia)
        parameters(4) = New SqlParameter("@estadoPago", alumno.EstadoPago)
        parameters(5) = New SqlParameter("@observaciones", alumno.Observaciones)
        parameters(6) = New SqlParameter("@nombres", alumno.Nombre)
        parameters(7) = New SqlParameter("@apePaterno", alumno.ApPaterno)
        parameters(8) = New SqlParameter("@sexo", alumno.Sexo)
        parameters(9) = New SqlParameter("@fechaNacimiento", alumno.FechaNacimiento)
        parameters(10) = New SqlParameter("@direccion", alumno.Direccion)
        parameters(11) = New SqlParameter("@telefono", alumno.Telefono)

        parameters(12) = New SqlParameter("@Email", alumno.Email)
        parameters(13) = New SqlParameter("@padre", alumno.Padre)
        parameters(14) = New SqlParameter("@madre", alumno.Madre)
        parameters(15) = New SqlParameter("@apeMaterno", alumno.ApMaterno)
        parameters(16) = New SqlParameter("@celular", alumno.Celular)
        parameters(17) = New SqlParameter("@edad", alumno.Edad)
        parameters(18) = New SqlParameter("@estadoLogico", alumno.EstadoLogico)
        parameters(19) = New SqlParameter("@distrito", alumno.Distrito)
        parameters(20) = New SqlParameter("@seccion", alumno.Seccion)
        parameters(21) = New SqlParameter("@idGrado", alumno.IdGrado)
        Try
            Dim srt As String = sql.ToString
            SqlHelper.ExecuteNonQuery(connection, CommandType.Text, sql.ToString, parameters)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Return False
        Finally
            connection.Dispose()
        End Try
        'Return True

    End Function


    Public Sub insertarImagen(ByVal strNombreArchivo As String, ByVal arrFoto() As Byte)
        Dim conexion As New SqlConnection(Me.CadenaConexion)
        conexion.Open()
        Try
            'Dim sql As String = "INSERT INTO Foto ( descripcion, imagen) VALUES (@descripcion, @imagen)"
            Dim sql As String = "INSERT INTO Alumno (fotoArchivo, foto) VALUES (@nombreArchivo,@foto)"
            Dim cmd As SqlCommand = New SqlCommand(sql, conexion)
            '  cmd.Parameters.Add(New SqlParameter("@nombreFoto", SqlDbType.VarChar, 255)).Value = strNombreFoto
            cmd.Parameters.Add(New SqlParameter("@nombreArchivo", SqlDbType.VarChar, 200)).Value = strNombreArchivo
            cmd.Parameters.Add(New SqlParameter("@foto", SqlDbType.Image)).Value = arrFoto
            cmd.ExecuteNonQuery()
            conexion.Close()
        Catch sqlEx As SqlException
            Throw New Exception(sqlEx.Message)

        Catch ex As Exception
            Throw New Exception(ex.Message)

        End Try
    End Sub