(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 :