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
0