vb.net - VB登录会话

Question

嗨，我完全迷失了这段代码（也是非常新的），我试图在 else 语句之后创建一个会话。你如何创建一个会话并让它被另一个文件读取？

   Dim conn As MySqlConnection
    'connect to DB
    conn = New MySqlConnection()
    conn.ConnectionString = "server=localhost;Port=3306; user id=****; password=****; database=testtable"
    'see if connection failed.
    Try
        conn.Open()
    Catch myerror As MySqlException
        MessageBox.Show("Error Connection to Database: " & myerror.Message)
    End Try
    'sql query
    Dim myAdapter As New MySqlDataAdapter

    Dim sqlquery = "SELECT * FROM members Where login='" & UsernameTextBox.Text & "' and passwd='" & PasswordTextBox.Text & "'"
    Dim myCommand As New MySqlCommand()
    myCommand.Connection = conn
    myCommand.CommandText = sqlquery
    'start query
    myAdapter.SelectCommand = myCommand
    Dim myData As MySqlDataReader
    myData = myCommand.ExecuteReader()
    'see if user exits.
    If myData.HasRows = 0 Then



        MessageBox.Show("Invalid Username/Password", "Login Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Else


      Dim login As String = System.Web.HttpContext.Current.Session("login")
        System.Web.HttpContext.Current.Session("login") = UsernameTextBox.Text



        Dim Form1 = New Form1
        Form1.Show()
        Me.Visible = False
    End If

谢谢你的帮助

Answer 1

会话只存在于 ASP.Net 中。

您应该在表单类的构造函数参数和/或属性中传递信息。