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存在。

您應該在構造函數參數和/或表單類的屬性中傳遞信息。