Koneksi VB.Net 2010 ke Database Microsoft Access

Assalamu`alakum wr wb..
sudah lama banget gak update berita niih, pada kesempatan kali ini saya akan mengulas tentang bagaimana melakukan koneksi VB.Net dengan database Microsoft Access.

Tanpa panjang lebar lagi, berikut ini step by step pembuatannya :

1. buka program ms access dan buatlah database. Masukkan nama databasenya, misal ‘dbContoh’ seperti gambar dibawah ini:
   
2. klik ‘View’->’Design view’ lalu masukkan nama tabel, misal ‘tblContoh’ lalu klik ‘OK’
3. Masukkan nama-nama dari fieldnya seperti berikut ini:
   
   
   
4.  Simpan database dengan klik Ctrl+S lalu klik view->datasheet view
   
5. Masukkan datanya, lalu simpan(Pastikan bahwa format msacces yang digunakan adalah 2000-2003). Berikut ini contoh datanya :
   
6. Pembuatan database di ms access telah selesai, selanjutnya buka VB.Net. buatlah form sederhana di vb.net seperti gambar dibawah ini :
   
7. Pindahkan file ‘dbContoh’ tadi ke folder debug pada program yang dibuat. Berikut tampilannya:
   
8. Kembali ke program vb.net. Buatlah sebuah module (kalau belum tau cara buat modul, silahkan liat postingan saya sebelum ini) dan masukkan koding berikut ini:
9. Imports System.Data
   Imports System.Data.OleDb
   
   
   Module koneksi
       Public Conn As New OleDbConnection
           Public Sql As String
           Sub konek()
               Dim connString As String
           connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\dbContoh.mdb"
               Try
                   Conn.ConnectionString = connString
                   Conn.Open()
               Catch ex As Exception
                   MsgBox("Tidak Terhubung ke database, silahkan cek :" & ex.Message)
               End Try
           End Sub
   End Module
10. Kembali ke form tadi, dan masukkan koding pada jendela program : 
11. Imports System.Data
    Imports System.Data.OleDb
    Public Class Form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            isi()
        End Sub
    
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Try
                If Conn.State = ConnectionState.Closed Then
                    konek()
                End If
                Sql = "SELECT * FROM `tblContoh`"
                Dim cmd As New OleDbCommand(Sql, Conn)
                Dim rs As OleDbDataReader
                rs = cmd.ExecuteReader
                Dim itung As Integer = 0
                While rs.Read
                    Dim baris0 As New ListViewItem
                    With baris0
                        .Text = rs("No")
                        .SubItems.Add(rs("Nama"))
                        .SubItems.Add(rs("Alamat"))
                    End With
                    ListView1.Items.Add(baris0)
                End While
                rs.Close()
                cmd.Dispose()
                Conn.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub
        Sub isi()
            With ListView1
                .Columns.Add("No", 40, HorizontalAlignment.Center)
                .Columns.Add("Nama", 200, HorizontalAlignment.Center)
                .Columns.Add("Aamat", 200, HorizontalAlignment.Center)
                .GridLines = True
                .View = View.Details
                .FullRowSelect = True
            End With
        End Sub
    End Class
12. Jalankan program dengan menekan play atau F5. Jika tidak terjadi error maka tampilan program akan seperti ini jika di klik tombol ‘Load database’:
    

 Demikian tutorial singkat ini semoga bermanfaat...Amiin.. :D

Wassalamu`alaikum wr wb.