Koneksi Microsoft Acces dengan VB.Net

Posted by : HD Technology Studio Minggu, 06 Agustus 2017

Sebelumnya saya telah membahas mengenai cara membuat database di microsoft acces. Dan saat ini saya akan membahas mengenai koneksi atau menghubungkan microsoft acces dengan vb.net. disini saya menggunakan microsoft acces 2007 dan vb.net 2008, untuk kalian yang menggunakan versi baru kurang lebih caranya hampir sama. Sebelumnya silahkan buat database dengan microsoft acces, jika belum tahu, kalian bisa lihat disini.

Buka visual studio kalian. Klik new project ( Windows Forms Application, kemudian beri nama project misalkan “KoneksiAcces” dan kemudian klik ok.

Untuk vb.net 2008 masih belum memiliki fitur autosaved, oleh karena itu kita harus menyimpan secara manual, tekan Ctrl + Shift + S atau klik file ( Save all dan kemudian Save. Jangan lupa untuk mengingat direktori project tempat menyimpan project vb.net. disini saya menyimpan di C:\Users\Lenovo\Documents\Visual Studio 2008\Projects. Untuk visual studio yang lebih baru project otomatis tersimpan di C:\Users\Lenovo\Documents\Visual Studio Kalian\Projects.

Copy file database acces, dan paste di folder debug yang ada di C:\Users\Lenovo\Documents\Visual Studio 2008\Projects\KoneksiAcces\KoneksiAcces\bin\Debug

Kembali ke visual studio, masukkan sebuah button dari toolbox, dan ganti teks nya menjadi “Hubungkan”.

Langkah terakhir adalah memasukkan kode agar program dapat dijalankan. Klik View ( Code atau shortcut F7 untuk mengedit kodenya.
Pertama import system data oledb, masukkan kode berikut diatas kode utama atau paling atas sendiri.

Imports System.Data.OleDb

Kemudian deklarasikan variabel, saya menggunakan 3 variabel. Perhatikan pada variabel terkahir. Ganti tulisan karyawan pada Data Source dengan database yang telah kalian buat. Jika kalian menggunakan database yang telah saya buat, tidak perlu diganti.

Dim cnnOLEDB As New OleDbConnection

Dim cmdOLEDB As New OleDbCommand

Dim strConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=karyawan.accdb"

Selanjutnya kembali ke jendela desainer, dan klik dua kali pada button hubungkan dan akan diarahakan ke event button klik. Event ini digunakan untuk menentukan kejadian jika tombol diklik. Masukkan kode berikut.

        Try
            cnnOLEDB.ConnectionString = strConnectionString
            cnnOLEDB.Open()
            MsgBox("Koneksi berhasil")
        Catch ex As Exception
            MsgBox("Koneksi gagal")
        End Try

Kode lengkapnya nya adalah seperti berikut ini.

Imports System.Data.OleDb
Public Class Form1
    Dim cnnOLEDB As New OleDbConnection
    Dim cmdOLEDB As New OleDbCommand
    Dim strConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Test.accdb"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            cnnOLEDB.ConnectionString = strConnectionString
            cnnOLEDB.Open()
            MsgBox("Koneksi Berhasil")
        Catch ex As Exception
            MsgBox("Koneksi Gagal")
        End Try
    End Sub
End Class

Jalankan dengan klik tombol Start atau F5. Jika berhasil maka akan muncul jendela atau form yang tadi dibuat. Klik Hubungkan dan akan muncul pesan jika berhasil akan muncul “Koneksi Berhasil” dan jika gagal akan muncul pesan “Koneksi Gagal”.