Koneksi Visual Basic .NET (VB.NET) ke Ms Access

Pada kesempatan ini Rani mau buat sebuah Windows Form Application yang dikoneksikan dengan database Microsoft Access. Hal yang paling enak (klo bisa disebut kelebihan) dari pemrograman database dengan Ms Access adalah kita tinggal menyimpan file database mdb atau accdb satu lokasi/folder dengan file .exe (aplikasi) kita. Ini memudahkan saat deployment dan instalasi karena kita tidak perlu lagi mengatur koneksi/connectionstring.

Okay.... kita akan buat satu aplikasi window sederhana, dan selama proses development kita akan menyimpan database kita di folder bin debug agar satu lokasi dengan file exe yang digunakan saat proses debug. Untuk mendapatkan folder ini setelah aplikasi dibuat kita lakukan kompilasi/build dengan cara seperti berikut (VS2012) klik menu BUILD --> Build Solution.
(Pastikan configuration dalam mode Debug)

Kemudian buat dan simpan file database pada path folder solution/project/bin/debug. Sebagai contoh solution/project bernama VBAccess.

Saat ini kita hanya akan fokus terhadap koneksi database nya saja, aplikasi yang akan kita buat adalah untuk mengecek apakah koneksi berhasil atau tidak. Buat UI sederhana sebagai berikut:

Mari beralih ke code. Pertama-tama kita perlu mengimport OleDb.
Imports System.Data.OleDb

Kemudian membuat satu fungsi bertipe boolean untuk mengecek koneksi.
Function OpenConnection() As Boolean
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                 "Data Source=latihan.accdb;" & _
                                 "Persist Security Info=False;")
Try
      con.Open()
      con.Close()
      Return True
Catch ex As Exception
      MsgBox("Error: " & ex.Message)
      Return False
End Try

End Function

Pada Event form load kita atur text untuk button1.
Private Sub Form1_Load(sender As Object, _
            e As EventArgs) Handles MyBase.Load
    Button1.Text = "Test Koneksi"
End Sub

Kemudian pengecekan koneksi dilakukan saat button1 diklik.
Private Sub Button1_Click(sender As Object, _
             e As EventArgs) Handles Button1.Click
   If OpenConnection() = True Then
        MsgBox("Koneksi database berhasil")
   End If
End Sub

Berikut code lengkapnya:
Imports System.Data.OleDb

Public Class Form1

Function OpenConnection() As Boolean
     Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                    "Data Source=latihan.accdb;" & _
                                    "Persist Security Info=False;")
     Try
         con.Open()
         con.Close()
         Return True
     Catch ex As Exception
         MsgBox("Error: " & ex.Message)
         Return False
     End Try

End Function

Private Sub Form1_Load(sender As Object, _
             e As EventArgs) Handles MyBase.Load
     Button1.Text = "Test Koneksi"
End Sub

Private Sub Button1_Click(sender As Object, _
             e As EventArgs) Handles Button1.Click
     If OpenConnection() = True Then
         MsgBox("Koneksi database berhasil")
     End If
End Sub

End Class

Setelah selesai dengan code, coba run debug.