24 May 2015


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.
Klik tombo "Test Koneksi" dan jika berhasil akan muncul pesan sebagai berikut:

Click here if you like this article.


0 comments: