Cara Koneksi Database Access 2003 (mdb) Pada VB .Net 2012

Pada pembelajaran VB Net kali ini akan dibahas mengenai cara mengkoneksikan Database Access 2003 (mdb) dengan VB Net 2012. Kenapa harus Access 2003 ? mungkin anda bertanya kenapa Access 2003 padahal sekarang sudah ada access versi 2013. Jawabannya adalah dikarenakan Access 2003 untuk pemograman masih banyak dipakai oleh Para Programmer di Dunia karena Access 2003 masih powerfull dan mudah dalam koneksi database maupun untuk keperluan reporting yang sangat mudah.

Baiklah berikut langkah-langkahnya :
#1. Buat database dan Tabel menggunakan Access 2003
Buatlah nama database dengan nama : DBBelajarvb.mdb
Buatlah Tabel dengan nama : Barang
kemudian design Tabel barang dan beri sample data seperti dibawah ini :

Jika sudah, ikuti langkah 2.

#2. Buat Project Dengan VB Net 2012 dan Buatlah Design pada Form1
Design Form1 seperti gambar dibawah ini :

Pada gambar diatas, hanya ditambahkan DatagridView1
Kemudian masukan koding dibawah ini :

Imports System.Data.OleDb

Public Class Form1

    Dim Conn As OleDbConnection

    Dim da As OleDbDataAdapter

    Dim ds As DataSet

    Dim LokasiDB As String

    Sub Koneksi()

        LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBBelajarvb.mdb"

        Conn = New OleDbConnection(LokasiDB)

        If Conn.State = ConnectionState.Closed Then Conn.Open()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Koneksi()

        da = New OleDbDataAdapter("Select * from barang", Conn)

        ds = New DataSet

        ds.Clear()

        da.Fill(ds, "Barang")

        DataGridView1.DataSource = (ds.Tables("Barang"))

    End Sub

End Class

Jangan lupa untuk memasukan DBBelajarvb.mdb pada Folder Bin\Debug Project Aplikasi VB Net anda

Jalankan Project anda, dan hasilnya adalah seperti gambar dibawah ini :

Bagaimana cukup mudah bukan.. ikuti terus pembelajaran VB Net 2012 lainnya ya.....