คือว่าอยากจะให้เวลากดล็อคอินแล้วมันเช็ค 2 ตารางในฐานข้อมูล (เช็คตาราง member กับ ตาราง book)
ตอนที่ผมทดสอบรันแล้วมันรันผ่านนะครับ คือมันสามารถเช็คตาราง member ได้ แต่ ตาราง book มันไม่เช็คให้ครับ ไม่ทราบว่าตรงไหนควรแก้ไขครับ
Code (VB.NET)
Private Sub bttlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttlogin.Click
Dim objConn As New MySqlConnection
Dim objCmd As New MySqlCommand
Dim strConnString, strSQL, strNUM As String
strConnString = "Server=localhost;User Id=root; Password=1234; Database=library; Pooling=false"
objConn.ConnectionString = strConnString
objConn.Open()
Dim intNumRows As Integer
strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtusername.Text & "' AND Password = '" & Me.txtpassword.Text & "' "
strNUM = "SELECT COUNT(*) FROM book WHERE book_no = '" & Me.lblnum.Text & "'"
objCmd = New MySqlCommand(strSQL, strNUM, objConn)
intNumRows = objCmd.ExecuteScalar()
If intNumRows > 0 Then
Me.Hide()
Else
MessageBox.Show("Username or Password Incorrect")
End If
objConn.Close()
objConn = Nothing
End Sub
End Class
Dim intNumRows1 As Integer
Dim intNumRows2 As Integer
strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtusername.Text & "' AND Password = '" & Me.txtpassword.Text & "' "
objCmd = New MySqlCommand(strSQL, objConn)
intNumRows1 = objCmd.ExecuteScalar()
strNUM = "SELECT COUNT(*) FROM book WHERE book_no = '" & Me.lblnum.Text & "'"
objCmd = New MySqlCommand(strNUM, objConn)
intNumRows2 = objCmd.ExecuteScalar()
If intNumRows1 > 0 And intNumRows2 > 0 Then
Me.Hide()
Else
MessageBox.Show("Username or Password Incorrect")
End If
objConn.Close()
objConn = Nothing
Load balance : Server 04
