Visual Basic.NET - No me ejecuta ExecuteNonQuery()

   
Vista:

No me ejecuta ExecuteNonQuery()

Publicado por Franco (2 intervenciones) el 26/01/2014 00:31:47
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... Gracias


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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