Membuat Form Login dengan VB 6.0 + Acces

• Buatlah Folder di dekstop dengan nama "login"

• Buatlah Database dengan nama "Login"

• Buatlah Table "petugas" dan atributnya sesuai dibawah ini

Tabel petugas

   

Isi Tabel petugas

• Simpan dan Beri  nama "Login" kemudian simpan di Folder "login" di dekstop

• Buka Vb 6.0 dan buatlah design Form seperti Gambar dibawah ini   

Form Login

• Untuk Menambakan komponen Adodc klick Project - Commponents - Pilih - Microsoft ADO Data Control 6.0 (OLEDB) - Ok

Adodc

• Untuk Source Codenya 

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Sub koneksi()
Set conn = New ADODB.Connection
Set RS = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Login.mdb"

End Sub
Sub bersih()
Text1 = ""
Text2 = ""

End Sub

Private Sub Command1_Click()
Call koneksi
If Text1 = "" Or Text2 = "" Then
    MsgBox "Data Login Belum Lengkap"
    Exit Sub
Else
    RS.Open "Select * from petugas where nama ='" & Text1 & "' and password='" & Text2 & "'", conn
    If RS.EOF Then
        MsgBox "Login Salah!"
        Call bersih
        Text1.SetFocus
    Else
        MsgBox "Login Berhasil!"
        Call bersih
    End If
End If

End Sub

Private Sub Command2_Click()
pesan = MsgBox("Batal Login...?", vbYesNo)
If pesan = vbYes Then End
End Sub

• Untuk menjalankan Klick F5

Login

• Selamat Mencoba.........
• Untuk Source codenya download disini