Jumat, 22 September 2017
Tutorial ini merupakan lanjutan tutorial sebelumnya yang membahas tentang membuat aplikasi CRUD (Create, Read, Update, Delete) dengan VB.Net dan Microsoft acces. Untuk melihat tutorial sebelumnya, bisa dilihat disini. Di tutorial sebelumnya telah dibahas bagaimana membuat deasain interface. Dan pada tutorial berikut akan membahas mengenai kode yang digunakan untuk menghubungkan aplikasi dengan database, dan menyinkronkan tabel yang berada didatabase dengan tabel yang berada di aplikasi yang dalam hal ini kita menggunakan Listview sebagai tabel nya. Kita akan menggunakan modul sebagai koneksi ke database acces. Yang belum tahu bagaimana menambahkan modul, bisa lihat disini.
Saya asumsikan bahwa anda telah menambahkan modul dengan nama koneksi.
- Selanjutnya kita akan bisa menuliskan kode di dalam module koneksi tersebut.Tuliskan kode berikut :
Imports System.Data.OleDb
Module koneksi
Public Connt As New OleDbConnection
Public CmdCommand As New OleDbCommand
Public DaData As New OleDbDataAdapter
Public DrData As OleDbDataReader
Public DsData As DataSet
Sub Sambung()
Connt = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=karyawan.accdb")
Connt.Open()
End Sub
End Module
Module koneksi
Public Connt As New OleDbConnection
Public CmdCommand As New OleDbCommand
Public DaData As New OleDbDataAdapter
Public DrData As OleDbDataReader
Public DsData As DataSet
Sub Sambung()
Connt = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=karyawan.accdb")
Connt.Open()
End Sub
End Module
Penjelasan kode :
Imports System.Data.OleDb
Kode ini digunakan untuk mengimport data oledb sebagai jenis koneksi yang akan digunakan untuk menghubungkan database.
Public Connt As New OleDbConnection
Public CmdCommand As New OleDbCommand
Public DaData As New OleDbDataAdapter
Public DrData As OleDbDataReader
Public DsData As DataSet
Kode ini digunakan untuk mendekalarasikan variabel
Sub Sambung()
Connt = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=karyawan.accdb")
Connt.Open()
End Sub
Method sambung berisikan kode koneksi untuk membuka dan menghubungkan database. Method ini yang nanti akan digunakan sebagai penghubung database.
- Buka tab Code pada Form1 dengan cara klik View ( Code atau melalui shortcut F7).
- Import data oledb dengan kode :
Imports System.Data.OleDb
- Buat method baru untuk menyinkronkan tabel database dengan tabel didalam aplikasi.
Sub tambahdata()
Dim tbl As New DataTable
Dim DsData As New DataSet
Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
DaData.Fill(DsData)
tbl = DsData.Tables(0)
lvGrid.Items.Clear()
For j As Integer = 0 To tbl.Rows.Count - 1
With lvGrid
.Items.Add(tbl.Rows(j)("ID"))
With .Items(.Items.Count - 1).SubItems()
.Add(tbl.Rows(j)("Tanggal_Lahir"))
.Add(tbl.Rows(j)("Alamat"))
.Add(tbl.Rows(j)("Agama"))
.Add(tbl.Rows(j)("Jenis_Kelamin"))
End With
End With
Next
Connt.Close()
End Sub
Dim tbl As New DataTable
Dim DsData As New DataSet
Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
DaData.Fill(DsData)
tbl = DsData.Tables(0)
lvGrid.Items.Clear()
For j As Integer = 0 To tbl.Rows.Count - 1
With lvGrid
.Items.Add(tbl.Rows(j)("ID"))
With .Items(.Items.Count - 1).SubItems()
.Add(tbl.Rows(j)("Tanggal_Lahir"))
.Add(tbl.Rows(j)("Alamat"))
.Add(tbl.Rows(j)("Agama"))
.Add(tbl.Rows(j)("Jenis_Kelamin"))
End With
End With
Next
Connt.Close()
End Sub
- Tambahkan kode didalam form1_Load untuk memanggil method tambahdata() dan method Sambung().
- Sehingga kode secara keseluruhan adalah sebagai berikut :
Sub tambahdata()
Dim tbl As New DataTable
Dim DsData As New DataSet
Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
DaData.Fill(DsData)
tbl = DsData.Tables(0)
lvGrid.Items.Clear()
For j As Integer = 0 To tbl.Rows.Count - 1
With lvGrid
.Items.Add(tbl.Rows(j)("ID"))
With .Items(.Items.Count - 1).SubItems()
.Add(tbl.Rows(j)("Tanggal_Lahir"))
.Add(tbl.Rows(j)("Alamat"))
.Add(tbl.Rows(j)("Agama"))
.Add(tbl.Rows(j)("Jenis_Kelamin"))
End With
End With
Next
Connt.Close()
End Sub
Dim tbl As New DataTable
Dim DsData As New DataSet
Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
DaData.Fill(DsData)
tbl = DsData.Tables(0)
lvGrid.Items.Clear()
For j As Integer = 0 To tbl.Rows.Count - 1
With lvGrid
.Items.Add(tbl.Rows(j)("ID"))
With .Items(.Items.Count - 1).SubItems()
.Add(tbl.Rows(j)("Tanggal_Lahir"))
.Add(tbl.Rows(j)("Alamat"))
.Add(tbl.Rows(j)("Agama"))
.Add(tbl.Rows(j)("Jenis_Kelamin"))
End With
End With
Next
Connt.Close()
End Sub
- Jalankan program dengan menekan tombol F5. Untuk mengetes apakah tabel database sudah terhubung, cobalah isikan data di dalam database acces, dan jalankan kembali.
Sekian tutorial ini, selanjutnya akan dibahas mengenai memasukkan data dari aplikasi kedalam database.
