Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/07/2012, 09:15
Avatar de stuart_david3
stuart_david3
 
Fecha de Ingreso: agosto-2011
Mensajes: 215
Antigüedad: 13 años, 2 meses
Puntos: 1
Información Problema al actualizar registro base de datos desde textbox!...

Hola!...

Tengo un problema con respecto a la actualización de registros en mi base de datos en base a la información que tengo en un textbox, verán, en varios textbox extraigo la información de los registros en una base de datos al cargar una página:

Código ASP:
Ver original
  1. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  2.         Dim Answer As String = CType(Session("sobres"), String)
  3.         Textid.Text = Answer
  4.         LabelFunc1.Text = Request.QueryString("datos2")
  5.         Dim reader As SqlDataReader
  6.         Dim values As ArrayList = New ArrayList()
  7.         Dim conn As SqlConnection = New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
  8.         Dim sql As String = "Mi consulta"
  9.         Dim dr As New SqlCommand(sql, conn)
  10.         conn.Open()
  11.         reader = dr.ExecuteReader()
  12.         If reader.Read() Then
  13.             TextCorreoRem.Text = CStr(reader("correo_funcionario1")).ToString
  14.             TextCorreoFunc.Text = CStr(reader("nombre_persona_inicial")).ToString
  15.             LabelFunc1.Text = CStr(reader("nombre_funcionario"))
  16.             Dim fecha = DateTime.Now
  17.             Text_rpe.Text = CStr(reader("rpe")).ToString
  18.             Text_Folio.Text = CStr(reader("control")).ToString
  19.             Text_nombre.Text = CStr(reader("nombre")).ToString
  20.             Text_Feant.Text = CStr(reader("fechaant")).ToString
  21.             Text_Escolar.Text = CStr(reader("escolaridad")).ToString
  22.       End if
  23. reader.close
  24. conn.close()
  25. End Sub

Después en un botón en la misma página intento actualizar los registros, en este caso lo que tengo en un textbox llamado Text_nombre.Text, pero siempre al actualizarlo me manda el mismo registro, es decir, cambio manualmente el contenido del textbox pero me manda siempre la misma información (el contenido que cargue de la base de datos), así es como actualizo:

Código ASP:
Ver original
  1. Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim Answer = Textid.Text
  3.         Dim nombre As String = Text_nombre.Text
  4.         Dim reader2 As SqlDataReader
  5.         Dim conn2 As SqlConnection = New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
  6.         Dim sql2 As String = ("UPDATE Reemplazos3 SET nombre='" & nombre & "', status1=Case When status1='RECHAZADO PARA MODIFICACION' Then 'EN ESPERA' Else status1 End, status15=Case When status15='RECHAZADO PARA MODIFICACION' Then 'EN ESPERA' Else status15 End, status2=Case When status2='RECHAZADO PARA MODIFICACION' Then 'EN ESPERA' Else status2 End, status25=Case When status25='RECHAZADO PARA MODIFICACION' Then 'EN ESPERA' Else status25 End, status3=Case When status3='RECHAZADO PARA MODIFICACION' Then 'EN ESPERA' Else status3 End WHERE id='" & Textid.Text & "'")
  7.         Dim dr2 As New SqlCommand(sql2, conn2)
  8.         conn2.Open()
  9.         reader2 = dr2.ExecuteReader()
  10.         reader2.Close()
  11.         conn2.Close()
  12.         Response.Redirect("EnviarCorreo.aspx?datos=" + nombre.ToString())
  13.     End Sub

Intente mandar el contenido a otra página así:

Código ASP:
Ver original
  1. Response.Redirect("EnviarCorreo.aspx?datos=" + nombre.ToString())

Pero aunque modifique manualmente el textbox me manda el contenido original de la base de datos ...

Cómo puedo hacer para que me mande la información que yo le ponga en el textbox, según yo es así, pero no funciona de esa manera :s...