Membuat Form Login Dengan VB 6 Database Acces

Membuat Form Login Dengan VB 6 Database Acces

1. Membuat Database Acces.mdb Nama tabel "Pass" dengan field sebagai berikut : 
2. Isi databe dengan data contoh berikut, dan bisa desuaikan dengan selera masing-masing 
3. Buat Form baru di VB 6 contoh berikut :

buat textbox1 dengan nama = txtuser
buat textbox2 dengan nama = txtpassword
buat button1 dengan nama = login
buat button2 dengan nama = keluar
tambahkan 1 buah adodc dan datagrid1 sebagai koneksi ke database acces
adodc1 propertis :
pilih jet 4.0 OLE DB Provider kemudian klik Next

cari lokasi penyimpanan database acces kemudian klik test connection dan sukses


kemudian klik ok, pada Propertis Page sesuaikan seperti berikut kemudian klik ok












datagrid1 Propertis pada datasource pilih adodc1

selanjutnya coding Login ketik sbb :

Adodc1.Recordset.Find "user = '" & txtUser & "'"
Adodc1.Recordset.Find "Password = '" & txtPassword & "'"
  If Not Adodc1.Recordset.EOF Then
            mnutama.Show   ' form yang akan dituju setelah password benar
            Unload Me
    Else
    MsgBox "User dan Password salah..!!", vbOKOnly Or vbInformation, "Information"
   Adodc1.Refresh
   txtPassword = ""
   txtPassword.SetFocus

 End If

 coding button keluar
 Private Sub Command2_Click()
Unload Me
End Sub


Kemudin klik F5 dan semoga bermanfaat...