Private Sub BtnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModificar.Click
Dim rol As Integer
Dim BaseDatos As String = "C:\ASP\BasesDatos\intranet.mdb"
Dim cadenaConexion As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & BaseDatos
Dim ConUsuario As OleDbConnection
Try
ConUsuario = New OleDbConnection(cadenaConexion)
Catch ex As Exception
Response.Redirect("PagError.aspx")
End Try
If txtRol.Text = "Programador" Then
rol = 0
ElseIf txtRol.Text = "Administrador" Then
rol = 1
End If
Dim Actualizacion As String = "UPDATE Usuario SET Nombre ='" & _ txtNombre.Text & "', Apellido = '" & txtApellido.Text & "', Direccion = '" & _ txtDireccion.Text & "', Rol =" & rol & ", mail= '" & _ txtMail.Text & "' WHERE CodUsuario ='" & txtCodigo.Text & "'"
Dim strScript As String = ""
strScript = "<script>"
strScript = strScript & "alert('Los datos del Usuario han sido Actualizados!!!');"
strScript = strScript & "</script>"
Response.Write(strScript)
Dim cmdUpdate As OleDbCommand = New OleDbCommand
With cmdUpdate
.Connection = ConUsuario
.CommandType = CommandType.Text
.CommandText = Actualizacion
.Connection.Open()
End With
cmdUpdate.ExecuteNonQuery()
cmdUpdate.Connection.Close()
End Sub