Sql = "SELECT count(*) as count FROM Admin_Login where Username='" & TextBox1.Text & "' AND Pass='" & TextBox2.Text & "'"
Dim Cmd As New SqlCommand(Sql, Cls.Con)
Dim Rs As SqlDataReader = Cmd.ExecuteReader
If Rs.Read Then
If Rs("count") < 1 Then
MessageBox.Show("คุณใส่ ID ไม่ถูกต้อง กรุณสกรอก ข้อมูลใหม่ครับ", " Admin_เข้าสู้ระบบ _wisza ", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
Else
Form2.Show()
Me.Hide()
End If
1. add new item -> module
2. สร้างตัวแปรขึ้นมา โดยตัองเป็น public เช่น public name as string
3. หลังจาก login ของ form 1 แล้ว ให้ส่งค่าชื่อมาไว้ในตัวแปร นั้น เช่น name = dt.row(0).item("name").tostring
4. จากนั้น ให้เปิด form2 ==> dim a as new form2
a.showDialog()
5. หลังจากที่ form 2 เปิดขึ้น ที่ onload ก็ให้ตัวแปรที่ตั้งขึ้น มาแสดง อาจจะเป็น ตัว label มาแสดงก็ได้ค่ะ