No me reconoce una sentencia if mi reader!!!

[stuart_david3]

Hola a todos!...

Tengo un pequeño problema con el uso de un if, le mando decir en este que si un registro de la base de datos es igual a un dato en específico me redireccione a una página, pero el problema ocurre en eso, me manda directamente a un else, es decir no se cumple la condición, pero en el else que les digo que me manda, yo le paso como parametro el registro que estoy comparando a un textbox y es exactamente el registro que estoy poniendo en el if el que me imprime en el textbox del else (espero no haber enredado), no entiendo por que no se mete a mi sentencia if.

Código ASP:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Usuario = Request.QueryString("datos1")
        Dim Contra = Request.QueryString("datos2")
        Dim reader As SqlDataReader
        Dim conn As SqlConnection = New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String = "SELECT correo, usuario, pass FROM UsuariosReemplazos WHERE usuario='" & Usuario & "' AND pass='" & Contra & "'"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
        reader = dr.ExecuteReader()
        If reader.Read() Then
            Dim Para As String = CStr(reader("correo").ToString)
 
            If (Para = "[email protected]") Then
                Response.Redirect("ListaFunc15.aspx?datos=" + Para.ToString())
 
            ElseIf (Para = "[email protected]") Then
                Response.Redirect("ConfirmarFunc2.aspx?datos=" + Para.ToString())
 
            ElseIf (Para = "[email protected]") Then
                Response.Redirect("ConfirmarFunc25.aspx?datos=" + Para.ToString())
 
            ElseIf (Para = "[email protected]") Then
                Response.Redirect("ConfirmarFunc3.aspx?datos=" + Para.ToString())
            End If
        End If
       
        reader.Close()
        conn.Close()
    End Sub
 

Espero y me puedan ayudar, saludos xD...

[cgonzalezm]

Eso pasa porque no debería ir un if, sino que un while

Código ASP:

reader = dr.ExecuteReader()
While reader.Read()
 
Dim Para As String = CStr(reader("correo").ToString)
 
            If (Para = "[email protected]") Then
                Response.Redirect("ListaFunc15.aspx?datos=" + Para.ToString())
 
            ElseIf (Para = "[email protected]") Then
                Response.Redirect("ConfirmarFunc2.aspx?datos=" + Para.ToString())
 
            ElseIf (Para = "[email protected]") Then
                Response.Redirect("ConfirmarFunc25.aspx?datos=" + Para.ToString())
 
            ElseIf (Para = "[email protected]") Then
                Response.Redirect("ConfirmarFunc3.aspx?datos=" + Para.ToString())
            End If
 
End While
reader.Close()
 

Saludos

PD: Error de Capa 8, jajaja

[stuart_david3]

De hecho ya jaló: Lo único que hice fue hacer un asp.vb nuevo en el cual agregue como parametro el campo "funcionario_en_revision" y en ese lo compare, intenté con el while, pero no me funciono.

Código ASP:

Dim Para = Request.QueryString("datos")
If Para = "[email protected]" Then
Response.Redirect("ListaFunc15.aspx?datos=" + Para.ToString())
 
ElseIf (Para = "[email protected]") Then
Response.Redirect("ListaFunc2.aspx?datos=" + Para.ToString())
 
ElseIf (Para = "[email protected]") Then
Response.Redirect("ListaFunc25.aspx?datos=" + Para.ToString())
 
ElseIf (Para = "[email protected]") Then
Response.Redirect("ListaFunc3.aspx?datos=" + Para.ToString())
ElseIf (Para <> "[email protected]") Then
Response.Redirect("ListaFunc1.aspx?datos=" + Para.ToString())
End If
 

Sabes? Aún sigo con el detalle de la variable de session ahora no uso un gridview, si no una tabla que cree en el que por ultimo tengo una columna como link, aquí esta el código:

Código ASP:

Dim funcionario = Request.QueryString("datos")
Dim conn As SqlConnection = New SqlConnection("server=(local);database=DBPRUEBA;Us er ID=sa;Password=administrador;Trusted_Connection=no ")
Response.Write("<td><a href=ConfirmarFunc1.aspx>hola</a>" + Session("funcionario_en_revision") = CStr(reader("funcionario_en_revision")).ToString + "</td>")
 

El problema es que al poner la línea que me muestra la columna así como esta no se ve el link. Si la pongo de esta manera:

Código ASP:

Response.Write("<td><a href=ConfirmarFunc1.aspx>Click</a>" + Session(CStr(reader("funcionario_en_revision")).To String + "</td>"))
 

Si me lo muestra pero no manda nada a mi variable de session ...

Espero y se pueda hacer algo por que ya tengo algo de tiempo con el mismo detalle...

Mil gracias cgonzalezm...

[stuart_david3]

Ok, creo que ya funciona la parte de enviar y recibir n_n... Pero ahí un detalle, como la lectura de registros la hago en un ciclo while, siempre me lee el último registro y por lo tanto me redirige a mi otra página con los datos de mi última fila ...

¿Cómo le hago para decirle que me lea solo los datos de la fila que seleccione?...

Aquí les dejo el código:

Envía:

Código ASP:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim funcionario = Request.QueryString("datos")
        Dim reader As SqlDataReader
        Dim conn As SqlConnection = New SqlConnection("server=(local);database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String = "SELECT id, nombre, puestoant, funcionario_en_revision FROM Reemplazos3 WHERE funcionario_en_revision='" & funcionario & "'"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
        reader = dr.ExecuteReader()
        Response.Write("<table border=1><tr><td>RPE</td>")
        Response.Write("<td>NOMBRE</td>")
        Response.Write("<td>PUESTO</td>")
        Response.Write("<td>CORREO</td>")
        Response.Write("<td>PROPUESTAS</td></tr>")
        While reader.Read()
            Dim Para = CStr(reader("funcionario_en_revision"))
            'Aquí envio los datos pero solo me toma el ultimo registro en el link a la otra página
            Session("funcionario_en_revision") = CStr(reader("id").ToString)
            Response.Write("<tr><td>" + CStr(reader("id")).ToString + "</td>")
            Response.Write("<td>" + CStr(reader("nombre")).ToString + "</td>")
            Response.Write("<td>" + CStr(reader("puestoant")).ToString + "</td>")
            Response.Write("<td>" + CStr(reader("funcionario_en_revision")).ToString + "</td>")
            Response.Write("<td>")
            Response.Write("<a href='ConfirmarFunc1.aspx'>Ver Contrato</a>")
            Response.Write("</td>")
            Response.Write("</tr>")
        End While
        Response.Write("</table>")
        reader.Close()
        conn.Close()
 
    End Sub
 

Recibe:

Código ASP:

Dim Answer As String
        'Recibo y almaceno en "Answer"
        Answer = CType(Session("funcionario_en_revision"), String)
        TextBox1.Text = Answer
        Dim sql As String = "SELECT id, control, rpe, nombre, fechaant, escolaridad, ingreso, numplazaant, puestoant, claveant, adscripant, goant, ndant, cecoant, salarioant, deant, aant, numplazaact, puestoact, claveact, adscripact, goact, ndact, cecoact, salarioact, deact, aact, motivado, funcionario_en_revision, status1, status15, status2, status25, status3 FROM Reemplazos3 WHERE id='" & Answer & "'"
 

Cómo le hago para que me cada link me lea el dato de cada fila ...

De antemano agradezco tu ayuda...

[stuart_david3]

Al final lo hice con un gridview así, al principio no me salía por que ponía una columan como tipo hiperlink cuando tenía que haber solo "habilitado la selección" en el mismo gridview y gracias a Dios funcionó n_n... Gracias por tu ayuda cgonzalezm n_n... Aquí el código, pos si le sirve a alguien:

Envía:

Código ASP:

Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
        Session("sobres") = GridView1.SelectedRow().Cells(1).Text.ToString
        Response.Redirect("Recibe.aspx")
    End Sub
 

Recibe:

Código ASP:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Answer As String
        Answer = CType(Session("sobres"), String)
        TextBox1.Text = Answer
    End Sub