Visual Basic.NET - problema con Update

   
Vista:

problema con Update

Publicado por Cristian cvieille@yahoo.com (2 intervenciones) el 24/10/2013 16:57:36
Estimados,

hace muy poco he comenzado a programar en asp.net con vb, con el afan de aprender algo nuevo. Hace años programo en vb6 y php.

Pero ahora me he encontrado con algunos problemas en asp.net:
1.- He hecho los insert sin mayor problema en mis aplicaciones, pero al momento de realizar los update, no me actualiza los datos.

Lo que he visto es que tengo un cuadro de texto en el que cargue la información de la base de datos: ej: me.txt_nombre.text y carga un valor "Juan" pero al editarlo y escribir "juanito" en la consulta me sigue apareciendo valor= juan.

aca va mi codigo del load y del guardar:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim id_usuario As String
id_usuario = Request.QueryString("id")

Me.txt_id.Text = id_usuario

If Me.txt_id.Text <> 0 Then
Dim cnnBaseDat As SqlClient.SqlConnection
Dim comBaseDat As SqlClient.SqlCommand
Dim adpBaseDat As SqlClient.SqlDataAdapter

Dim dstTablas As DataSet
cnnBaseDat = New SqlClient.SqlConnection
cnnBaseDat.ConnectionString = cadena_conexion
cnnBaseDat.Open()

Try

Dim consulta As String = "SELECT * FROM patologos where id=" & txt_id.Text
comBaseDat = New SqlClient.SqlCommand(consulta, cnnBaseDat)
adpBaseDat = New SqlClient.SqlDataAdapter(comBaseDat)
dstTablas = New DataSet
adpBaseDat.Fill(dstTablas, "MiTabla")


Dim tablas As Data.DataTable = dstTablas.Tables("MiTabla")
Dim filas As Data.DataRow = tablas.Rows(0)

Me.txt_rut.Text = filas.Item("rut")
Me.txt_digito.Text = filas.Item("digito")
Me.txt_nom_corto.Text = Trim(filas.Item("nom_corto"))
Me.txt_nombre.Text = Trim(filas.Item("nombre"))
Me.txt_apellidos.Text = Trim(filas.Item("apellidos"))

Catch ex As Exception
lbl_mensaje.Visible = True

lbl_mensaje.Text = ex.Message

End Try


End If
End Sub


Protected Sub cmd_guardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmd_guardar.Click
Dim cnnBaseDat As SqlClient.SqlConnection
Dim comBaseDat As SqlClient.SqlCommand



cnnBaseDat = New SqlClient.SqlConnection
cnnBaseDat.ConnectionString = cadena_conexion
cnnBaseDat.Open()

Try
Dim consulta As String

If txt_id.Text = 0 Then

consulta = "insert into patologos (rut, digito, nombre, apellidos, nom_corto) values('" & Me.txt_rut.Text + "','" & Me.txt_digito.Text + "','" & Me.txt_nombre.Text + "','" & txt_apellidos.Text + "', '" & txt_nom_corto.Text + "')"

Else

consulta = "UPDATE patologos SET rut ='" & Me.txt_rut.Text & "', digito ='" & Me.txt_digito.Text & "', nombre ='" & Me.txt_nombre.Text & "', apellidos ='" & Me.txt_apellidos.Text & "', nom_corto ='" & Me.txt_nom_corto.Text & "' where id=" & txt_id.Text

End If

comBaseDat = New SqlClient.SqlCommand(consulta, cnnBaseDat)
comBaseDat.ExecuteNonQuery()

Response.Redirect("frm_lista_patologos.aspx")

Catch ex As Exception
Me.lbl_mensaje.Visible = True
Me.lbl_mensaje.Text = ex.Message
End Try


End Sub

desde ya muchas gracias a todos!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder