Cara Membuat Koneksi VB.Net ke database MS Access

Cara Membuat Koneksi VB.Net ke database MS Access

Cara Membuat Koneksi VB.Net ke database MS Access


Dalam hal ini saya beranggapan bahwa anda sudah tau bagaimana cara membuat file database Access dan saya sarankan menggunakan ekstensi 2003 saat menyimpan file database Access tersebut.

 

Koneksi database bisa anda buat dimasing-masing form yang memerlukan koneksi ke database anda, akan tetapi cara ini tidak efisien. Jadi sebaiknya Coding koneksi ke database dibuat di satu modul saja yang akan dipanggil setiap aplikasi membutuhkan koneksi ke database.

 

Mari membuat modulenya dengan klik Menu Project -> Add Module

saya biasa memberikan nama dengan awalan huruf ke setiap module yang saya buat untuk membedakan antara modul dan form dan juga agar tidak terjadi  tumpang tindih saat membuat form atau modul yang namanya sama. Dengan begitu mari kita memberikan nama module koneksi tersebut dengan nama mConnect.vb

 

Kemudin copy/paste kode berikut ke module tersebut !

'import Data Oledb untuk membuat koneksi, Data ini juga harus di imports di setiap form yang digunakan untuk melakukan crud ke database Access menggunakan OleDb
Imports System.Data.OleDb
Module mConnect

    Public CONN As OleDbConnection
    Public CMD As OleDbCommand
    Public DS As New DataSet
    Public DA As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public database As String


    Public Sub Connection()
        On Error GoTo errorhandle
        'direktori lokasi file database tersimpan
        'biasanya akan disimpan di root aplikasi jadi simpannya di folder <nama folder>/<nama folder>/BIN/DEBUG
        Dim dir As String = "db.mdb"
        'isi password jika database access yang anda buat memiliki password !!!
        Dim password As String = ""

        'proses koneksi ke database Access
        database = "provider=microsoft.jet.oledb.4.0;data source=" & dir & _
            ";Jet OLEDB:Database Password=" & password & ";persist security info=false;"
        CONN = New OleDbConnection(database)
        If CONN.State = ConnectionState.Closed Then
            CONN.Open()
            'optional message box (hanya untuk tutorial dan tidak perlu diisi apa-apa, hanya sebagai task pemberi informasi bahwa Aplikasi telahpun terkoneksi ke database Access)
            MsgBox("Koneksi berhasil", MsgBoxStyle.Information, "Info")
        End If
        Exit Sub

errorhandle:
        MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
    End Sub
End Module

 

Untuk lebih jelasnya silahkan nonton video berikut:

 

 

Bagikan


Artikel Dipost Oleh Hariadi

Seorang freelancer website and software developer, gemar dengan ilmu seputar IT serta penuh semangat untuk belajar.


0 Komentar

Tidak ada komentar


Berikan komentar ...