Login VB 6.0 Dengan Memilih Database

Pada pembelajaran VB 6.0 kali ini kami akan membahas Cara Login Program atau Aplikasi VB 6.0 Dengan Memilih Database Terlebih Dahulu. Fungsi pembelajaran ini dapat anda implementasikan untuk anda yang bertanya menggunakan Aplikasi namun database ada di Server Komputer.

Berikut langkah-langkahnya :
1. Pastikan anda teleh mempunyai database terlebih dahulu
2. Membuat Form dengan VB 6.0 dan membuat kodingnya

#1
Buatlah sebuah Database dengan nama DBAplikasi.mdb (nama terserah namun harus .mdb)
Kemudian pada database .mdb tersebut buatlah Tabel : ADMIN

Kemudian masukan Data pada Tabel ADMIN Tersebut :

#2
Buatlah 2 Buah Form ( FormMenuUtama dan FormLogin)
Pada Form Login design form seperti gambar dibawah ini :

Kemudian masukan koding dibawah :

Dim conn As New ADODB.Connection
Private Sub Command3_Click()
With CommonDialog1
    .ShowOpen
    LokasiDB = .FileName
End With
End Sub
Sub OpenDB()
    Set conn = New ADODB.Connection
    Set RSAdmin = New ADODB.Recordset
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & LokasiDB & "' "
End Sub
 Private Sub Command1_Click()
    Dim KodeAdmin As String
    Dim NamaAdmin As String
    If LokasiDB = "" Or Text1 = "" Or Text2 = "" Then
    MsgBox "Silahkan Pilih Database Access dan masukan Kode Admin dan Password"
    Else
    Call OpenDB
    RSAdmin.Open "Select * from Admin where kodeAdmin ='" & Text1 & "' and passwordAdmin='" & Text2 & "'", conn
        If RSAdmin.EOF Then
            MsgBox "Password Salah, Coba Lagi!"
            Text2 = ""
            Text3.SetFocus
        Else
            Unload Me
            FormMenuUtama.Show
    End If
    End If
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "X"
End Sub
Private Sub Command2_Click()
End
End Sub

Jalankan Program anda :
- Browse dan Pilih Database yang anda buat diatas
- Masukan Kode Admin : ADM001 dan Password : admin
- Kemudian Klik Login

Cukup mudah bukan???

Untuk mendownload hasil latihan diatas anda bisa KLIK DISINI