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中。

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