在会话中存储获取的值

时间:2015-09-29 06:03:11

标签: vb.net ms-access

我无法将值存储在会话变量中。 从查询中获取是正确的,因为它显示正确的值。 Response.Write(Session("idsess"))不会返回任何内容。 这是我的代码: 这是一个语法吗?

con.Open()
        cmd = New OleDbCommand("SELECT ([password]) FROM userinfo WHERE ([uname]= '" & uname_log.Value & "')", con)

        dr = cmd.ExecuteReader
        If (dr.Read) Then
            If (dr(0).ToString = pass_log.Value) Then

                cmd = New OleDbCommand("SELECT [profile_id] FROM userinfo WHERE ([uname]= '" & uname_log.Value & "')", con)
                dr = cmd.ExecuteReader
                dr.Read()
                Response.Write(dr(0).ToString)

                If (dr.Read) Then
                    Session("idsess") = dr.Read()
                    Response.Write(Session("idsess"))
                End If

            Else
                Response.Write("Wrong Authentification.")
            End If
        Else
            Response.Write("Sign up instead?")
        End If

        con.Close()

1 个答案:

答案 0 :(得分:0)

您没有正确使用DataReader;更改您的代码:

If dr.Read Then
    Session("idsess") = dr("profile_id")
    Response.Write(Session("idsess"))
End If