williams8899 Sat Aug 07, 2010 1:59 am
I have created a login form which I need some help
Below are my codes:-
Code Snippet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\XXXRestaurant.mdb")
Dim strUser As String
Dim strPwd As String
Dim count As Object
strUser = txtUser.Text
strPwd = txtPassword.Text
Dim cmd As New OleDb.OleDbCommand("Select count(*) from tblUser where UserID='" & strUser & "' AND Password='" & strPwd & "'", cn)
cn.Open()
count = cmd.ExecuteScalar()
cn.Close()
If count > 0 Then
MsgBox("Hurray! You get it")
Else
MsgBox("Try again la")
'Invalid login
End If
End Sub
I need help on this..thanks :-)
-------------------------------------------------
UPVC DoorsUPVC Front Doors