Try
If (txtuser.Text = "") Then
MessageBox.Show("กรุณากรอก user", "เข้าสู่ระบบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtuser.Focus()
Exit Sub
End If
If (txtpass.Text = "") Then
MessageBox.Show("กรุณากรอก pass", "เข้าสู่ระบบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtpass.Focus()
Exit Sub
End If
strSQL = "SELECT * FROM Tb_User WHERE [Username] = '" & Me.txtuser.Text & "' AND [Password] = '" & Me.txtpass.Text & "' "
da = New OleDbDataAdapter(strSQL, con)
da.Fill(dt)
If dt.Rows.Count > 0 Then
If dt.Rows(0)("User") = "Admin" Then
MessageBox.Show("ยินดีต้อนรับคุณ Admin", "เข้าสู่ระบบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Else
MessageBox.Show("User or Pass ผิด", "เข้าสู่ระบบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtuser.Text = ""
txtpass.Text = ""
End If
con.Close()
Catch ex As Exception
MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก " & ex.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim uname As String
Dim passWord As String
Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Tb_User WHERE [Username] = '" & Me.txtuser.Text & "' AND [Password] = '" & Me.txtpass.Text & "' ", con)
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim sdr As OleDbDataReader = cmd.ExecuteReader()
While (sdr.Read())
uname = sdr("Username")
passWord = sdr("Password")
End While
sdr.Close()
If (uname = txtuser.Text.ToString()) Then
MessageBox.Show("ถูกกก คุณคือ 1")
Form1.Show()
Else
MessageBox.Show("ผิดดด")
End If
End Sub
ฝั่ง A : Database Server (MySQL, Access, etc..)
--- ใหญ๋เล็ก ก็ว่ากันไปแล้วแต่จะเปรียบเทียบ ฝั่ง B : Programming VB.NET
--- ก็ข้อความด้านล่างนี้ -->
GO! gO with me. อันนี้ผมกำลังหมายถึง ฝั่ง B (ที่ไม่มีหาร) Code (VB.NET)
Dim strA As String = "Admin"
Dim strB As String = "admiN"
Dim bVar As Boolean = strA.Equals(strB, StringComparison.Ordinal) 'เปรียบเทียบตัวใหญและตัวเล็กด้วย
MsgBox(bVar) 'Result : False
ปล. จาก #NO3 การเข้ารหัส User และ Password จัดเก็บลงใน Database แบบบ้านๆ
ถ้าคุณเข้าใจ Result : False คุณก็จะร้องอ๋อว่า เขาชี้ได้ถูกต้องแล้ว