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