Artikel Terkait Tutorial VB6
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.
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 :
Jalankan Program anda :
- Browse dan Pilih Database yang anda buat diatas
- Masukan Kode Admin : ADM001 dan Password : admin
- Kemudian Klik Login
Cukup mudah bukan ?
Membuat Form Login VB 6.0 dengan Memilih Database
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 ?
Tag : Membuat Form dengan VB 6.0, Login VB 6.0 Dengan Memilih Database
Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :
Rekomendasi Web Hosting
- 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
- 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
- 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).