Form Login pada VB 6.0 menggunakan database Ms. Access

Sebelumnya kita sudah membahas membuat form login tanpa database, login tanpa database memiliki beberapa kelemahan, salah satu contohnya adalah User dan Passwordnya tidak bisa dirubah jika program sudah dibuat setup. Nah,,,, dengan database kita bisa merubah, edit, hapus dan bahkan menambah User baru.. Tapi ga ada salahnya mencoba membuat form login tanpa database bagi pemula guna memahami logika dasar login.
Yang akan datang, kita akan membahas login menggunakan Hak Akses. Maksudnya hak akses adalah setiap user yang login memiliki privasi masing-masing, yah kita misalkan pada program kita ada 12 Menu Utama, jadi user A bisa membuka 12 Menu Utama, User B hanya bisa membuka 10 Menu seperti itulah gambaran singkatnya.

Sekarang mari kita bahas tentang bagaimana membuat form Login dengan database :

Pertama kita desain dulu formnya :

Jika sudah didesain simpan dulu ya.....

kemudian desain databasenya ya, saya pake Ms. Access 2010... walaupun 2010 ga usah dirubah menjadi 2003 (*.mdb) biarkan saja berextensi .accdb

Nama tabelnya LOGIN, databasenya DB_Login

isi scrip berikut ini :

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

    Set rs = New ADODB.Recordset

    rs.Open "select * from LOGIN where user='" & Text1.Text & "' and pass='" & Text2 & "'", cn, adOpenKeyset

    If Not rs.EOF Then

        MsgBox "Selamat Anda Berhasil Login", vbInformation, "Pemberitahuan"

    Else

        MsgBox "Maaf User atau password salah", vbExclamation, "Patal"

    End If

    

End Sub

Private Sub Form_Load()

    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DB_login.accdb"

End Sub

selamat mencoba .......................