Ayuda con Update Access
Publicado por Carlos M (2 intervenciones) el 19/10/2015 21:48:33
Buenas estoy teniendo un problema en actualizar una tabla en la base de datos el problema es que lo ejecuta correcta mente pero no cambia los datos en la base de datos
les dejo el codigo por si pueden ayudarme que no se que pasa
y lo llamo
les dejo el codigo por si pueden ayudarme que no se que pasa
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub modificar(ByVal nom As String, ByVal app As String, ByVal apm As String, ByVal dni As String, ByVal usu As String, ByVal cla As String)
Dim sqlQry As String = "UPDATE T_Login set [Nombre]=[@Nombre],[ApellidoI]=[@ApellidoI],[ApellidoII]=[@ApellidoII],[Cedula]=[@Cedula],[Contraseña]=[@Contreseña] WHERE [Usuario]=[@Usuario]"
cnx.conectar()
Using cmd As New OleDbCommand(sqlQry, cnx.CNN())
cmd.Parameters.AddWithValue("@Nombre", nom)
cmd.Parameters.AddWithValue("@ApellidoI", app)
cmd.Parameters.AddWithValue("@ApellidoII", apm)
cmd.Parameters.AddWithValue("@Cedula", dni)
cmd.Parameters.AddWithValue("@Usuario", usu)
cmd.Parameters.AddWithValue("@Contraseña", cla)
cmd.ExecuteNonQuery()
cnx.desconectar()
End Using
End Sub
y lo llamo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub BtnModificar_Click(sender As Object, e As EventArgs) Handles BtnModificar.Click
Dim app, apm, nom, dni, usu, co1 As String
app = txtAp.Text
apm = txtAm.Text
nom = TxtNombre.Text
dni = txtCedula.Text
usu = TxtUsuario.Text 'Nombre de usuario
co1 = Encriptar(txtContraseña.Text) 'Primera clave ingresada
objusuario.modificar(nom, app, apm, dni, usu, co1)
MessageBox.Show("USUARIO ACTUALIZADO", "COBROS", MessageBoxButtons.OK, MessageBoxIcon.Information)
DGUsuarios.DataSource = objusuario.listar()
END SUB
Valora esta pregunta
0
