(Tutorial 2) Membuat Koneksi Database Access ke Aplikasi Visual Studio yang Dibangun

Pada artikel sebelumnya kita sudah membahas cara membangun sebuah aplikasi sederhana dengan visual studio. Untuk melanjutkan membangun aplikasi tersebut, kita membutuhkan koneksi database dengan aplikasi. Mengapa demikian? Aplikasi yang kita bangun hanya sebagai antar muka yang memudahkan pengguna dalam beberapa hal, namun inti dari aplikasi ini adalah menyimpan dan memproses data. Data yang ingin kita simpan dan proses akan diletakkan ke dalam sebuah database. Oleh karena itulah kita butuh media yang mengkoneksikan aplikasi yang dibangun dengan database tempat penyimpanan data agar data yang disimpan maupun diperlukan dapat disimpan dan diakses melalui aplikasi.

Sebelumnya kita sudah membuat database yang sesuai dengan aplikasi yang akan dibangun. Perlu diketahui bahwa disini kita menggunakan database dengan format mdb atau accsess versi 2002-2003. Mengapa pakai versi rendah? baiklah ini dilakukan untuk menyamakan code program yang akan kita buat. jika access yang dibuat berupa versi 2007 ke atas atau format accdb maka code program dapat disesuaikan dengan versi tersebut.

Untuk membuat file mdb, maka masuklah ke ms.access, kemudian klik save as dan pilih versi yang diinginkan. Dalam hal ini kita menggunakan yang paling rendah yaitu access 2002-2003.

Step by Step Membuat Koneksi Database Ke Visual Studio

Berikut adalah step by step cara membuat koneksi database access ke visual studio. Namun jika merasa malas membaca, bisa tonton videonya saja, sementara code programnya dapat dicopy di bawah ya…

Step 1 Misalnya pada studi ini database yang ada dengan nama Penjualan.mdb, letakkan database pada folder bin>debug sebagai berikut :

Double klick Aplikasi_Penjualan :

Kemudian pilih bin

Kemudian Debug

Disinilah kita meletakkan database sebagai berikut :

Step 2 Buatlah sebuah modul dengan nama MyConnection, sebagai berikut:

Klick Project > add module

Pada kotak dialog isi name dan klik Add, pastikan .vb tidak terhapus kemudian klick add.

Kemudian double klick modul MyConnection, dan ketikkan coding seperti pada gambar berikut :

Module MyConnection
    Public Koneksi As New MyConnection.KoneksiDatabase
    Public objConnection As OleDb.OleDbConnection
    Public objCommand As OleDb.OleDbCommand
    Public objDataAdapter As OleDb.OleDbDataAdapter
    Public objDatareader As OleDb.OleDbDataReader
    Public strSQL As String
    Public Class KoneksiDatabase
        Public Function open() As OleDb.OleDbConnection
            Dim conect As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & Application.StartupPath & "\Penjualan.mdb")
            conect.Open()
            Return conect
        End Function
    End Class
End Module

Untuk mengetahui bahwa koneksi yang dibangun sudah berhasil dan memungkinkan untuk adanya komunikasi antar database dan aplikasi, maka kita akan membuat sebuah form menampilkan isi dari database. Dalam hal ini misalnya form supplayer.

Form supplayer akan menampilkan isi dari tabel supplayer yang ada di dalam database Penjualan.mdb sebagai berikut :

Pada form supplayer, kita akan menampilkan isi dari tabel ini ke dalam listview berikut:

Step 3 double klick form suplayer, kemudian ketikkan coding seperti berikut :

Imports System.Data.OleDb
Public Class Form_Suplayer
    Sub TampilData()
        strSQL = "SELECT * FROM supplier"
        objCommand = New OleDbCommand(strSQL, Koneksi.open)
        Using Data As OleDbDataReader = objCommand.ExecuteReader
            Dim c As Integer
            LVDATASUPPLIER.Items.Clear()
            While Data.Read
                LVDATASUPPLIER.Items.Add(Data("KODE_supplier"))
                LVDATASUPPLIER.Items(c).SubItems.Add(Data("nama_supplier"))
                LVDATASUPPLIER.Items(c).SubItems.Add(Data("alamat"))
                LVDATASUPPLIER.Items(c).SubItems.Add(Data("telepon"))
                LVDATASUPPLIER.Items(c).SubItems.Add(Data("email"))
                LVDATASUPPLIER.Items(c).SubItems.Add(Data("npwp"))
                LVDATASUPPLIER.Items(c).SubItems.Add(Data("contact_person"))
                c = c + 1
            End While
        End Using
    End Sub

    Private Sub Form_Suplayer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call TampilData()
    End Sub
End Class

Agar isi dari sub TampilData dapat berjalan saat kita menjalankan program, maka perlu dipanggil sub TampilData pada form load. Berikut hasilnya :

Leave a Reply

Your email address will not be published. Required fields are marked *