Koneksi VB ADO.NET ke Ms.Access 2007

Sistem manajemen database (DBMS) menyediakan API yang memungkinkan programmer aplikasi untuk membuat dan mengakses database.
Microsoft menyediakan teknologi untuk akses database disebut ADO.NET, sebuah teknologi yang diperbaharui dari teknologi-teknologi sebelumnya ( ODBC , OLEDB dan ADO ).

Untuk akses database Ms. Access dari VB.NET dengan teknologi ADO.NET menggunakan library pada paket System.Data.OleDb

Berikut Class DBKoneksi yang meng-handle koneksi ke database Ms.Access

Imports System.Data.OleDb
Public Class DBKoneksi
    Private cnn As OleDbConnection
    Private strKoneksi As String

    Public Sub New()

        strKoneksi = "Provider=Microsoft.ACE.OLEDB.12.0;" _
                     & "Data Source=D:\vbnet\wkshop\latihan.accdb;" _
                     & "Persist Security Info=False"

        cnn = New OleDbConnection(strKoneksi)
    End Sub

    Public Function openKoneksi() As OleDbConnection

        If (cnn.State = ConnectionState.Closed) Then cnn.Open()
        Return cnn

    End Function

    Public Sub closeKoneksi()
        If (cnn.State = ConnectionState.Open) Then cnn.Close()
    End Sub

End Class

Berikut contoh penggunaan Class DBKoneksi pada Form, menggunakan komponen DataGridView

Imports System.Data.OleDb
Public Class Form1
    Dim dbkon As DBKoneksi
    Private Sub btnLoadData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadData.Click
        dbkon = New DBKoneksi()
        Dim cmd As New OleDbCommand
        Dim dt As New DataTable

        Dim sql As String
        sql = "SELECT id,nama FROM divisi"
        Dim da As New OleDbDataAdapter
        da.SelectCommand = New OleDbCommand(sql, dbkon.openKoneksi())
        da.Fill(dt)
        DataGridView1.DataSource = dt
        dbkon.closeKoneksi()

    End Sub
End Class

There Are 2 Responses So Far. »

  1. Thanks ya, ini yang saya cari..

Post a Response