Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If textuser.Text = "" Or textpass.Text = "" Then
MsgBox("กรุณากรอก Username และ Password ใหครบถ้วน")
Else
Dim objConn As New MySqlConnection
Dim objCmd As New MySqlCommand
Dim strConnString, strSQL As String
strConnString = "Server=***** ;User Id=****; Password=****; Database=*****; Pooling=false"
objConn.ConnectionString = strConnString
objConn.Open()
Dim intNumRows As Integer
strSQL = "SELECT COUNT(*) FROM User WHERE u_user = '" & Me.textuser.Text & "' AND u_pass = '" & Me.textpass.Text & "'"
objCmd = New MySqlCommand(strSQL, objConn)
intNumRows = objCmd.ExecuteScalar()
If intNumRows > 0 Then
Dim frm As New frmAdmin
Dim frn As New frmAdMember
MessageBox.Show("เข้าสู่ระบบสำเร็จ")
If Then 'หากเข้าสู่ระบบด้วยรหัส Admin จะไปที่หน้า Admin
frm.Show()
Me.Hide()
Else 'หากไม่ใช่ Admin จะไปที่หน้า User
frn.Show()
Me.Hide()
End If
Else
MessageBox.Show("ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง")
End If
objConn.Close()
objConn = Nothing
End If
End Sub
Dim ds As New DataSet
Dim dt As DataTable
Dim strConnString,strSQL As String
strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
strSQL = "SELECT * FROM User WHERE u_user = '" & Me.textuser.Text & "' AND u_pass = '" & Me.textpass.Text & "'"
objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd
dtAdapter.Fill(ds)
dt = ds.Tables(0)
IF dt.Rows.Count > 0 Then
If dt.Rows(0)("Status") = "ADMIN" Then
'Admin
Else
'User
End IF
Else
MessageBox.Show("ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง")
End IF
dtAdapter = Nothing
objConn.Close()
objConn = Nothing
If textuser.Text = "" Or textpass.Text = "" Then
MsgBox("กรุณากรอก Username และ Password ใหครบถ้วน")
Else
Dim ds As New DataSet
Dim dt As DataTable
Dim objConn As New MySqlConnection
Dim objCmd As New MySqlCommand
Dim strConnString, strSQL As String
Dim dtAdapter As New MySqlDataAdapter
strConnString = "Server=localhost;User Id=root; Password=root; Database=Database; Pooling=false"
strSQL = "SELECT * FROM User WHERE u_user = '" & Me.textuser.Text & "' AND u_pass = '" & Me.textpass.Text & "'"
objConn.ConnectionString = strConnString
objCmd = New MySqlCommand(strSQL, objConn)
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtadapter.selectcommand = objCmd
dtAdapter.Fill(ds)
dt = ds.Tables(0)
Dim frm As New frmAdmin
Dim frn As New frmAdMember
If dt.Rows.Count > 0 Then
If dt.Rows(0)("u_level") = "1" Then
frm.Show() 'Admin
Me.Hide()
Else
frn.Show() 'User
Me.Hide()
End If
Else
MessageBox.Show("ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง")
End If
dtadapter = Nothing
objConn.Close()
objConn = Nothing
End If
Load balance : Server 03
จัดไปครับ
