Imposible modificar registros

[DeivisAndres]

Bueno, yo trabajo es en C#. pero te trate de convertir el código a VB... Lo que yo aria es crear un método que tenga el modificar con parámetros, después en el evento click del button le llamo el método y los parámetros serian los tex... quedaría de esta manera..

Código vb:

Private Function Modificar_Registros(Codigo As String, Nombre As String, Apellido As String, Email As String, Sexo As String, Edad As String) As Boolean
    ' Convertir de Cadena a Numerico.
    Dim Cod As Integer = Convert.ToInt32(Codigo)
    Dim Ed As Integer = Convert.ToInt32(Edad)
 
    ' Conexión BBDD.
    Dim Conexion As New OleDbConnection()
    Conexion.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = G:\BBDD.accdb; Persist Security Info = false"
 
    ' Cadena SQL.
    Dim CadenaSQL As [String] = "UPDATE Persona SET "
    CadenaSQL = CadenaSQL + " Nombre = '" + Nombre + "', Apellido = '" + Apellido + "', Email = '" + Email + "', Sexo = '" + Sexo + "', Edad = " + Ed + " WHERE Id = " + Cod
 
    ' Crear comando.
    Dim Comando As OleDbCommand = Conexion.CreateCommand()
    Comando.CommandText = CadenaSQL
 
    Try
        ' Ejecutar la consulta de acción.
        Conexion.Open()
        Comando.ExecuteNonQuery()
        Return True
    Catch ex As Exception
        Dim ms As String = ex.Message
        Return False
    Finally
        If Conexion.State = ConnectionState.Open Then
            Conexion.Close()
        End If
    End Try
End Function
 
 
Protected Sub btnActualizar_Click(sender As Object, e As EventArgs)
    If Modificar_Registros(txtCodigo.Text, txtNombre.Text, txtApellido.Text, txtEmal.Text, txtSexo.Text, txtEdad.Text) = True Then      
        Response.Redirect("update.aspx?mensaje=" + "El dato se actualizo con exito.")
    Else
        Response.Redirect("update.aspx?mensaje=" + "El dato no se pudo actualizar.")
    End If
End Sub
 

Lo único que te quedaría seria adaptarlo al gestor de BD que utilizas... espero y te sirva...