Koneksi Database Acces 2007 VB.NET

Sebelum melakukan sebuah perubahan terhadap database, sebelumnya harus dibuat sebuah koneksi terhadap database yang akan dirubah. Perubahan dapat mencakup penambahan data, perubahan data, penghapusan data bahkan perubahan struktur tabel dalam database.

Secara teori koneksi database mysql dan access tidaklah berbeda. Akan tetapi terdapat beberapa variabel yang berbeda secara keseluruhan sama. Sebelum memulai kode untuk koneksi database Access sebelumnya harus dilakukan pemanggilan modul OleDb terlebih dahulu. Dibawah ini adalah langkah-langkah untuk membuat koneksi database Access menggunakan VB.NET :

1. Import OleDb

OleDb adalah sebuah namespace yang berisi class untuk untuk mengolah database access, di dalam class ini terdapat fungsi dan variabel yang sama persis seperti namespace mysqlClient. Jadi apabila sudah mengetahui coding menggunakan database mysql tidak akan sulit menggunakan coding dengan database acces.

Imports System.Data.OleDb

Koding diatas diketikkan bagian paling atas source code. Tepatnya di atas sintaks Class.

2. Membuat Variabel Koneksi

Variabel koneksi adalah sebuah objek yang menampung fungsi koneksi, ingat ketika melakukan segala aktivitas database maka harus selalu disertakan sebuah variabel atau proses koneksi yang masih aktif. Nama variabel koneksi dapat dibuat degan bebas sama seperti pembuatan nama variabel lainnya. Misalkan saja nama variabelnya adalah "Koneksi".

Public Koneksi as OleDbConnection

atau

Public Koneksi as new OleDbConnection("String Koneksi")

kedua deklarasi diatas dapat digunakan salah satunya, apabila menggunakan deklarasi pertama maka pada program koneksi haruslah ditambah dengan pendeklarasian new terhadap variabel koneksi.

3. Membuat String Koneksi

Bagian yang paling susah untuk diingat adalah membuat string koneksi, string ini sedikti rumit dan sudah dihafal. Dan memang tidak perlu dihafal, anda cukup meng-copy paste kan saja string ini, karena hanya sekali digunakan pada baris program. 

"provider=microsoft.ace.oledb.12.0;data source=namadatabase.accdb"

"provider=microsoft.ace.oledb.12.0" adalah string untuk menentukan driver yang digunakan yaitu microsof.ace.oledb.12.0.

"data source=namadatabase.accdb" adalah lokasi dan nama database yang digunakan, pada string diatas yang digunakan hanya "cf.accdb" adalah nama dan ekstensi database access. Sedangkan lokasi database tidak disebutkan, hal ini karena database namadatabase.accdb berada pada directori "bin\debug". VB.NET akan langsung mengakses daerah ini tanpa perlu disebutkan lokasi, karena exe program terbuat di lokasi ini.

4. Membuat Kode Program Koneksi

Program koneksi yang dibuat dapat berupa function atau sub, tergantung pada kebiasaan untuk menggunakan Sub atau Function, walaupun terdapat perbedaan cara penggunakan kedua fungsi ini.

a. Menggunakan Sub

    Sub konek()
        If Koneksi.State = ConnectionState.Closed Then
            Koneksi.Open()
        End If
    End Sub

b. Menggunakan Fungsi

    Function konek2() As OleDbConnection
        Dim Kon As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=namadatabase.accdb")
        If Kon.State = ConnectionState.Closed Then
            Kon.Open()
        End If
        Return Kon
    End Function

Contoh Program :

1. Menggunakan Sub

Imports System.Data.OleDb
Module Mengkoneksikan
    Public Koneksi As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=namadatabase.accdb")
    Sub konek()
        If Koneksi.State = ConnectionState.Closed Then            Koneksi.Open()
        End If    End SubEnd Module

Cara Penggunaan Dalam Form :

Sub Form_Load()
   konek()
End Sub

2. Menggunakan Function

Imports System.Data.OleDb
Module Mengkoneksikan
  Public Koneksi As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=namadatabase.accdb")
  Function konek() as OleDbConnection
    Dim Kon as new OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=namadatabase.accdb")
    If Kon.State = ConnectionState.Closed Then        Kon.Open()
    End If    return Kon
  End FunctionEnd Module

Cara Penggunaan Dalam Form :

Sub Form_Load()
  Koneksi = konek()
End Sub