28/04/2015, 08:01
|
| | | Fecha de Ingreso: abril-2015 Ubicación: Puerto Montt
Mensajes: 6
Antigüedad: 9 años, 7 meses Puntos: 0 | |
| error que no me deja continuar
estimados, tengo una modulo de update el cual al ejecutarlo me indica que existe un error en la sintaxis de Update, el codigo es el siguiente:
Dim comando As New OleDb.OleDbCommand
conexion()
If TxtPassword.Text <> TxtPassword2.Text Then
MsgBox("Deben coincidir las contraseñas", MsgBoxStyle.Information)
ElseIf TxtCargo.Text <> "" And TxtUsuario.Text <> "" And TxtMovil.Text <> "" Then
comando.CommandText = "UPDATE usuarios SET nombreuser='" & CbNombre.Text & "', cargo='" & TxtCargo.Text & "', usuario='" & TxtUsuario.Text & "', password='" & TxtPassword.Text & "', movil='" & TxtMovil.Text & "', acceso='" & CboAcceso.Text & "' WHERE idusuario = '" & TxtIdUsuario.Text & "'"
comando.CommandType = CommandType.Text
comando.Connection = conex
comando.ExecuteNonQuery()
MsgBox("Usuario" & " " & TxtUsuario.Text & " " & "actualizado")
Me.Close()
'ConBita.Show()
Else
MsgBox("Debe ingresar todos los registros")
comando.Dispose()
End If
favor una ayuda ya que no se donde tengo el error |