KONEKSI DATABASE ACCESS DENGAN VB.NET 2010

1. Buat database Access yang akan dihubungkan dengan vb.net

2. Buka vb.net, add new item kemudian pilih module dan beri nama module.

3. ketikkan code berikut ini pada module :

Access 2003

Imports System.Data.OleDb

Module Moduleku

    Public conn As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public cmd As OleDbCommand

    Public rd As OleDbDataReader

    Public str As String

    Public Sub koneksi()

        str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Gaji.mdb"

        conn = New OleDbConnection(str)

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

    End Sub

Access 2007

Imports System.Data.OleDb

Module Moduleku

    Public conn As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public cmd As OleDbCommand

    Public rd As OleDbDataReader

    Public str As String

    Public Sub koneksi()

        str = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\Gaji.ACCDB"

        conn = New OleDbConnection(str)

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

    End Sub

4. Gaji.mdb adalah nama database access yang sebelumnya telah dibuat. Sedangkan moduleku nama modul yang dibuat pada vb.net.

5. Untuk memanggil fungsi koneksi di vb.net. Ketikkan call koneksi() pada form vb.net.