Visual Basic.NET - No me ejecuta ExecuteNonQuery()

   
Vista:

No me ejecuta ExecuteNonQuery()

Publicado por Franco (2 intervenciones) el 26/01/2014 00:00:20
Hola podrian ayudarme a encontrar el error trato de Ejecutar el boton actualizar y me salta a la exeption.... pese a que en el modo depuración me levanta los datos modificado en los texbox


Private Sub FormActualizarProfes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla '_Escuela_AsistenciaDataSet3.PPROFESOR' Puede moverla o quitarla según sea necesario.

Try
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "C:\Users\HTC\Documents\Escuela-Asistencia.accdb"
conexion.Open()
MsgBox("Conexion Exitosa", vbInformation, "Conectado")

Catch ex As Exception
MessageBox.Show("Ha ocurrido un error al conectar", "Error")

End Try



End Sub

Private Sub ButtonActualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActualizarButton.Click


' Dim Consulta_Actualizar As String

Try

'hacer el UPDATE
Dim CMDUpdate As New OleDb.OleDbCommand("update PPROFESOR SET NOMBRE = '" & NOMBRETextBox.Text _
& "', APELLIDO = '" & APELLIDOTextBox.Text _
& "', FECHANACIMIENTO = '" & FECHATextBox.Text _
& "', CALLE = '" & CALLETextBox.Text _
& "', NUMERO = '" & NUMEROTextBox.Text _
& "', DPTO_PISO = '" & DPTOTextBox.Text _
& "', BARRIO = '" & BARRIOTextBox.Text _
& "', LOCALIDAD = '" & LOCALIDADTextBox.Text _
& "', TELEFONO = '" & TELEFONOTextBox.Text _
& "', CELULAR = '" & CELULARTextBox.Text _
& "', EMAIL = '" & EMAILTextBox.Text _
& "', FACEBOOK = '" & FACEBOOKTextBox.Text _
& "', OCUPACION = '" & OCUPACIONTextBox.Text _
& "', PROFESION = '" & PROFESIONTextBox.Text _
& "', OTROTELEFONO = '" & EMEREGENCIATextBox.Text _
& "', TIPODESANFGRE = '" & RHTextBox.Text _
& "', ENFERMEDADESSUFRIDAS = '" & ENFERMEDADTextBox.Text _
& "', OBSERVACIONES = '" & OBSTextBox.Text _
& "' WHERE DNIPROFESOR = '" & DNITextBox.Text & "'", conexion)



conexion.Open()
CMDUpdate.ExecuteNonQuery()
conexion.Close()
MsgBox("El registro ha sido Actualizado", vbInformation, "Actualizado")



Catch ex As Exception
MsgBox("Ha Ocurrido un Error. No se ha podido actualizar el registro", vbExclamation, "Error")
End Try

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder