Login VB 6.0 Dengan Memilih Database

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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                             
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Login VB 6.0 Dengan Memilih Database, Diterbitkan oleh scodeaplikasi pada Jumat, 20 Maret 2015. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.