Imposible modificar registros

[leonobarg]

Buenas a todos
estoy tratando de crear una pagina donde pueda modificar los datos personales, he colocado en el page_load de la pagina un select a la BD para que me muestre en los textbox los datos del paciente seleccionado, hasta ahi todo bien
Luego agregue un boton donde coloque el update

Código:

 Protected Sub guardar_mod_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles guardar_pac.Click
        Try
            Dim s As String
            s = ConfigurationManager.ConnectionStrings("conexion_clinica").ConnectionString
            Dim conexion As New SqlConnection(s)
            conexion.Open()
            Dim comando As New SqlCommand("update paciente set " & _
                 "apellido='" & apellidoTextBox.Text & _
                 "',nombre='" & nombreTextBox.Text & _
                 "' where dni=" & DniTextBox.Text & "", conexion)
            Dim cant As Integer = comando.ExecuteNonQuery()

            If cant = 1 Then
                MyMessageBox1.ShowSuccess("Los datos del paciente fueron modificados")
            Else
                MyMessageBox1.ShowError("No existe el paciente")
            End If
            conexion.Close()
        Catch ex As SqlException
            MyMessageBox1.ShowError(ex.Message)
        End Try
    End Sub

Al modificar algo en los textbox y presionar en el boton guardar_mod me aparece el mensaje "Los datos del paciente fueron modificados" pero vuelve a cargar la pagina y los datos no son modificados.
Nose si tengo algo mal en el codigo o debo configurar algo con respecto al postback o me aconsejan otra forma de actualizar registros.

DESDE YA GRACIAS.-

[Alfilxdama]

En principio podrías hacer un debug de la aplicación, visualizar la base si realmente cambió los valores y finalmente ver con qué código está accediendo para refrescar los TextBox del comienzo.
Saludos.

[javi89]

Tambien lo que puedes mirar la cadena conexion con la BD o los parametroe que pasas al update
puede deberse a alguna comilla

[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...