Problema con boton actualizar
Publicado por Gustavo (1 intervención) el 14/04/2016 03:17:00
Estoy haciendo una aplicacion para actualizar los materiales que tiene un alumno dentro de una base de datos. Me parece que el error esta en la instruccion SQL pero no me llego a dar cuenta. Me darian una mano por favor.
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
Private Sub btnActualizar_Click(sender As Object, e As EventArgs) Handles btnActualizar.Click
Dim ConsultaActualizar As String
Try
ConsultaActualizar = "UPDATE Alumnos SET Libro1 ='" & CInt(txtLibro1.Text) & "', Libro2 ='" & CInt(txtLibro2.Text) & "', LibroConsulta ='" & CInt(txtConsulta.Text) & "WHERE NSocio ='" & CInt(txtNSocio.Text) & "'"
comandos = New OleDb.OleDbCommand(ConsultaActualizar, conexion)
comandos.ExecuteNonQuery()
MsgBox("El registro se actualizo joya", vbInformation, "Golazo")
' Limpio todo
txtApellido.Clear()
txtConsulta.Clear()
txtLibro1.Clear()
txtLibro2.Clear()
txtConsulta.Clear()
txtNombre.Clear()
txtApellido.Clear()
txtNSocio.Clear()
chkAndadores.Checked = False
chkBaston.Checked = False
chkColchonetas.Checked = False
chkHuesos.Checked = False
chkMate.Checked = False
chkMuletas.Checked = False
chkSilla.Checked = False
chkTermo.Checked = False
chkVajilla.Checked = False
'Ahora lo inhabilito
txtApellido.Enabled = False
txtConsulta.Enabled = False
txtLibro1.Enabled = False
txtLibro2.Enabled = False
txtNombre.Enabled = False
txtNSocio.Enabled = False
chkAndadores.Enabled = False
chkBaston.Enabled = False
chkColchonetas.Enabled = False
chkHuesos.Enabled = False
chkMate.Enabled = False
chkMuletas.Enabled = False
chkSilla.Enabled = False
chkTermo.Enabled = False
chkVajilla.Enabled = False
btnActualizar.Enabled = False
btnModificar.Enabled = False
Catch ex As Exception
MsgBox("Algo anda mal", vbExclamation, "Error")
End Try
End Sub
Valora esta pregunta
0
