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)
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
EmoticonEmoticon