ดึงข้อมูลของ Expire โดยใช้ชื่อของ User ที่กรอกไว้ใน Textbox ในโปรแกรมอ่ะครับเช่น User a ล็อคอินมาก็ให้มันดึงข้อมูลใน Expire ของ User a มาแสดงใน Textbox 2 อ่ะครับ
Dim objConn As New MySqlConnection("Server=localhost;User Id=root; Password=1234; Database=Login2MySQL; Pooling=false")
Dim objCmd As New MySqlCommand("", objConn)
objConn.Open()
Dim Username As String = txtUsername.Text
Dim Password As String = txtPassword.Text
Dim intNumRows As Integer
objCmd.CommandText = "SELECT COUNT(*) FROM login WHERE Username = '" & Username & "' AND Password = '" & Password & "' "
intNumRows = objCmd.ExecuteScalar()
If intNumRows > 0 Then
MsgBox("เข้าใช้โดย " & Username & " สำเร็จ !")
Else
MsgBox("คุณใส่ชื่อหรือรหัสผ่านไม่ถูกต้อง !")
End If
objConn.Close()
objConn = Nothing
Dim DR As MySqlDataReader
objCmd.CommandText = "SELECT expire FROM login WHERE Username = '" & Username & "' AND Password = '" & Password & "' "
DR = CMD.ExecuteReader
If DR.HasRows Then
While DR.Read()
txtexpire.Text = DR("expire")
MsgBox("เข้าใช้โดย " & Username & " สำเร็จ !")
End While
DR.Close()
Else
MsgBox("คุณใส่ชื่อหรือรหัสผ่านไม่ถูกต้อง !")
End If
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim LOGIN As DataTable = ประมวลผล("SELECT Username,permission,Password FROM School1 WHERE Username='" & TextBox1.Text & "' AND Password='" & TextBox2.Text & "'")
If LOGIN.Rows.Count > 0 Then
If LOGIN.Rows(0)("Permission") = "admin" Then
MsgBox("login สำเร็จ" & "คุณคือ " & LOGIN.Rows(0)("Username"))
Admin_Data.Show()
Me.Hide()
End If
If LOGIN.Rows(0)("Permission") = "user" Then
MsgBox("login สำเร็จ" & "คุณคือ " & LOGIN.Rows(0)("Username"))
Home.Label2.Text = LOGIN.Rows(0)("Username")
Home.Show()
Me.Hide()
End If
Else
MsgBox("ไม่พบผู้ใช้งาน")
End If
End Sub
Load balance : Server 01
