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 pola solution/project bernama VBAccess. Saat ini kita cuma akan konsentrasi kepada koneksi database nya saja, aplikasi yang hendak kita buat yaitu untuk mengevaluasi apakah koneksi sukses atau tidak. Buat UI sederhana sebagai berikut: Mari beralih ke code. Pertama-tama kita perlu mengimport OleDb. Imports System.Data.OleDb Kemudian menciptakan satu fungsi bertipe boolean untuk mengevaluasi 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 dilaksanakan 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 sukses" )      End If  End Sub End Class Setelah simpulan dengan code, coba run debug. Klik tombo "Test Koneksi" dan bila berhasil akan muncul pesan selaku berikut: Click here if you like this article.
Sumber http://rani-irsan.blogspot.com