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 originalProtected 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 originalProtected 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 originalResponse.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...