Koneksi Visual Basic .Net (Vb.Net) Ke Ms Access

Pada peluang ini Rani mau buat suatu Windows Form Application yang dikoneksikan dengan database Microsoft Access. Hal yang paling yummy (klo mampu disebut kelebihan) dari pemrograman database dengan Ms Access yakni kita tinggal menyimpan file database mdb atau accdb satu lokasi/folder dengan file .exe (aplikasi) kita. Ini memudahkan dikala deployment dan instalasi alasannya kita tidak butuhlagi mengontrol koneksi/connectionstring.

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

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

Saat ini kita cuma akan fokus terhadap koneksi database nya saja, aplikasi yang mau kita buat yakni untuk mengecek 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 memeriksa 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 dijalankan 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 simpulan dengan code, coba run debug.

Klik tombo "Test Koneksi" dan jikalau berhasil akan muncul pesan sebagai berikut:

Click here if you like this article.



Sumber http://rani-irsan.blogspot.com