Membut koneksi VB 6 Ke Database Access

Hellow blogger....
Lama tak membuat coretan diblog, ..... :)
Kali ini saya akan membuat koneksi VB ke database acces , oke langsung dimulai saja...

1.  Buka form standard VB 6
2.  Tambahkan komponen Microsoft Ado Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0(OLEDB)

• Untuk menambahkan kedua komponent tersebut dengan cara ( ctrl+t) tunggu samapai muncul tampilan berikut, tandai kedua komponen lalu klik ok

 

• Lihat pada tollbox akan bertambah ADODC dan DATAGRID tambahkan ke project, fungsi dari ADODC sendiri adalah sebagai penghubung untuk koneksi ke database, dan DATAGRID berfungsi untuk menampilkan data sama dengan yang ada di DATABASE.

3. Kemudian Add Module dan masukkan source Code berikut

Public Conn As New ADODB.Connection

Public Sub koneksi()
On Error GoTo konekErr

If Conn.State = 1 Then Conn.Close

'sesuaikan database .mdb nya dengan database anda
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Db_Faroel.mdb;Persist Security Info=False"
Exit Sub

konekErr:
    MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"
End Sub

4. Masukkan Source Code berikut ke project

Private Sub Form_Load()
koneksi 'pemanggilan koneksi database

Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "select * from CV" 
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

End Sub 

5. Sebelum RUN project simpan terlebih dulu dalam satu folder dengan database yang sudah dibuat, setelah disimpan baru RUN program, jangan lupa membuat databasenya terlebih dahulu di microsoft ACCESS

Tampilan ketika Program dijalankan :

Sekian sedikit coretan dari saya mudah-mudahan bermanfaat, project ini masih akan saya kembangkan dengan Menu LOGIN , User dan pasword sesuai dengan yang ada di datbase dan menampilkan Data dari User yang Login tersebut.

Salam Sepuluh Ribu Jam Untuk EXPERT.........