Step 1
Buat Form macam gambar kat bawah ni, pastu rename textbox dan juga login button macam yang ditunjuk kat dalam gambar
Step 2
Copy koding kat bawah dan paste ke btnLogin punyer kod, dan tukar tulisan yang color merah tu kepada tempat korang simpan database yang korang download tadi.
'Provider =Microsoft.ACE.OLEDB.12.0 untuk Access 2007 dan keatas
Dim connection As New OleDbConnection("Provider =Microsoft.ACE.OLEDB.12.0; Data Source = C:\Documents and Settings\sal\My Documents\test.accdb; Persist Security Info =False;")
'SQL query yang kita nak execute
Dim command As New OleDbCommand("SELECT * FROM test_user WHERE username = @username AND password = @password", connection)
'Declare dan Add
Dim usernameParam As New OleDbParameter("@username", Me.txtUsername.Text)
Dim passwordParam As New OleDbParameter("@password", Me.txtPassword.Text)
command.Parameters.Add(usernameParam)
command.Parameters.Add(passwordParam)
command.Connection.Open()
Dim reader As OleDbDataReader = command.ExecuteReader()
If reader.HasRows Then 'Kalau username dan password dalam satu baris
MessageBox.Show("Logged In")
'Code korang lepas user dah log in
Else
MessageBox.Show("Sorry, password and username tak match")
End If
command.Connection.Close()
Step 3
Try login Username : monyet, Password: monyet
Kalau Username dan password salah, akan kuar satu message box macam gambar kat bawah
Dan kalau username dan password betul, akan keluar message box mcm ni plak. Lepas user dah log in, korang boleh la letak apa-apa kod yang korang nak.
Penerangan
Kod yang kat atas tadi akan check dalam database sama ada username dan password yang korang masukkan tadi berada dalam satu row atau tidak.
Nak tanya apa-apa, comment box kat bawah ada ;)