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
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim Answer As String = CType(Session("sobres"), String) Textid.Text = Answer LabelFunc1.Text = Request.QueryString("datos2") Dim reader As SqlDataReader Dim values As ArrayList = New ArrayList() Dim conn As SqlConnection = New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no") Dim sql As String = "Mi consulta" Dim dr As New SqlCommand(sql, conn) conn.Open() reader = dr.ExecuteReader() If reader.Read() Then TextCorreoRem.Text = CStr(reader("correo_funcionario1")).ToString TextCorreoFunc.Text = CStr(reader("nombre_persona_inicial")).ToString LabelFunc1.Text = CStr(reader("nombre_funcionario")) Dim fecha = DateTime.Now Text_rpe.Text = CStr(reader("rpe")).ToString Text_Folio.Text = CStr(reader("control")).ToString Text_nombre.Text = CStr(reader("nombre")).ToString Text_Feant.Text = CStr(reader("fechaant")).ToString Text_Escolar.Text = CStr(reader("escolaridad")).ToString End if reader.close conn.close() 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
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Answer = Textid.Text Dim nombre As String = Text_nombre.Text Dim reader2 As SqlDataReader Dim conn2 As SqlConnection = New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no") 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 & "'") Dim dr2 As New SqlCommand(sql2, conn2) conn2.Open() reader2 = dr2.ExecuteReader() reader2.Close() conn2.Close() Response.Redirect("EnviarCorreo.aspx?datos=" + nombre.ToString()) End Sub
Intente mandar el contenido a otra página así:
Código ASP:
Ver original
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...