MEMBUAT FORM LOGIN MENGGUNAKAN VB 6

Sambil nunggu ngantuk saya berbagi bagaimana membuat Form Login menggunakan Visual Basic 6 dan dengan menggunakan database ms. Access 2007.

Baik…… langsung saja disimak tulisan di bawah :

Persiapan :

Membuat database menggunakan ms. Access 2007.

Membuat Form Login.

Tahap 1 : Membuat Database.

Buatlah Database dengan menggunakan ms. Access 2007 dan simpan dengan nama database LoginDB.mdb.

Tahap 2 : Membuat Form Login.

Buatlah Form Login seperti contoh gambar di bawah ini. Jika selesai membuat form tambah sebuah komponen “Adodc”

Dan kalau komponen Adodc sudah ditambahkan maka hasilnya akan seperti gambar di bawah :

Tahap 3 : Mengatur Properti.

textBox1 : name txtNama

textBox2 : name txtSandi

commandButton1 : name cmdLogin, Caption LOGIN

commandButton1 : name cmdBatal, Caption BATAL

tahap 4 : Menghubungkan Database.

Klik Kanan komponen Adodc dan pilih ADODC Properties

Klik Build… - Microsoft Jet 4.0 OLE DB Provider – Next.

pilih Select Database Name

Masukkan database yang telah sobat dibuat hingga seperti gambar berikut :

Untuk memastikan database terkoneksi atau tidak coba klik Test Connection dan jika terkoneksi dengan database maka hasilnya akan seperti berikut :

Tahap 5 : Membuat Coding.

Tambahkan sebuah module pada project sobat.

Selanjutnya copas coding berikut :

Source Code Module

1. 'Event Module
2. Public conn As New ADODB.Connection
3. Public RS As New ADODB.Recordset

Doble klik tombol Login dan copas code berikut :

Source Code Login

1. 'Event Tombol Login
2. If conn.State = 1 Then conn.Close
3. conn.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myAplikasi\loginDB.mdb;Persist Security Info=False"
4. If RS.State = 1 Then RS.Close
5. RS.Open "select * from login where nama= '" & txtNama.Text & "' And sandi = '" & txtSandi.Text & "'", conn, 3, 3
6. If Not RS.EOF Then
7. MsgBox "BERHASIL"
8. Form2.Show
9. Else
10. MsgBox "Data Salah", vbCritical, "L O G I N"
11. txtNama.Text = ""
12. txtSandi.Text = ""
13. txtNama.SetFocus
14. End If

Untuk tombol Batal, doble klik tombol Batal dan copas code berikut :

Source Code Batal

1. 'Event Tombol Batal
2. unload me

O. ya tambahkanlah lagi sebuah form (Form 2)

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module