VB.NET : CRUD (Create,Read,Update,Delete) Operation Ms Access Database OleDB Connection

VB.NET Tutorial - cara mudah membuat aplikasi CRUD sederhana di visual basic net dengan menggunakan database Ms access dengan menggunakan koneksi OleDB class yang mudah untuk dipelajari khusus untuk pemula dalam pemrograman basic, seperti yang sudah kami bahas pada tutorial sebelumnya bagaimana cara membuat aplikasi crud di vb.net dengan berbagai macam database.

Tutorial Crud terkait :
Tutorial VB.NET : CRUD (Create, Read, Update, Delete) Vb.Net Database MySQL
CRUD VB.NET (Create,Read,Update,Delete) Database SQL Server

Video Crud terkait :
Video Tutorial : CRUD (Create, Update, Delete) Vb.Net database MySQL
[Video] Tutorial CRUD Vb.NET menggunakan Database SQL Server

Langsung saja kita mulai tutorial CRUD menggunakan Database Ms Access.

Membuat Database Ms Access

silahkan buat database baru yang nantinya akan digunakan untuk proses CRUD data, buat database dengan nama "crud_ms_access.mdb", atau bisa juga dengan nama lain, dimana nama tabel yang dibuat :
tbl_biodata, dan fieldnya : idsiswa,nama,nisn,kelas,alamat. bisa disesuaikan sesuai kebutuhan, lihat skema gambar dibawah ini :

Selanjutnya buatlah sebuah project baru menggunakan visual studio 2010,2012,2013 dan 2015, disini saya menggunakan visual studio 2015 64bit. buat project dan beri nama "VB-NET-CRUD-MS-Access" dan module baru dengan nama "module-connection.vb".

Membuat Module Koneksi Database Ms Access

jika sudah membuat module baru dengan nama "module-connection.vb" tuliskan seluruh code berikut :

Imports System.Data.OleDb
Module module_koneksi
    Public conn As OleDbConnection
    Public cmd As OleDbCommand
    Public ds As DataSet
    Public dr As OleDbDataReader
    Public da As OleDbDataAdapter
    Public lokasidata As String
    Public Sub konek()
        lokasidata = "provider=microsoft.jet.oledb.4.0;data source=db_access.mdb"
        conn = New OleDbConnection(lokasidata)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
End Module

Code diatas berfungsi untuk membuat koneksi ke database ms access yang sudah anda buat sebelumnya
Cara membuat koneksi databese MySQL di Vb.net 2010

Kembali ke Form utama, kita akan membuat tampilan aplikasi CRUD sesimple mungkin, lihat dan buatlah design tampilan form utama seperti gambar dibawah ini

Menampilkan Data kedalam DataGridView

Penting :
Deklarasikan "NewData" di bagian paling atas class, dimana NewData berfungsi sebagai penanda yang bertype boolean dan berguna apakah data itu akan disimpan atau data itu akan di update saja.

Public NewData As Boolean

Buatlah sebuah functions didalam form utama dan tuliskan seluruh code berikut :

    Private Sub ShowData()
        konek() 'open our connection
        da = New OleDb.OleDbDataAdapter("SELECT * FROM tbl_biodata", conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "tbl_biodata")
        DataGridView1.DataSource = ds.Tables("tbl_biodata")
        da.Dispose()
        ds.Dispose()
        conn.Close() ' clouse connection

        DataGridView1.Columns(0).HeaderText = "Id Siswa"
        DataGridView1.Columns(1).HeaderText = "Nama Siswa"
        DataGridView1.Columns(2).HeaderText = "N I S N"
        DataGridView1.Columns(3).HeaderText = "Kelas"
        DataGridView1.Columns(4).HeaderText = "Alamat Lengkap"

    End Sub

Functions menampilkan data ke TextBoxt

Buatlah sub baru dan tuliskan code berikut :

    Private Sub LodaDataToTextBox()
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index

        TextBox1.Text = DataGridView1.Item(0, i).Value
        TextBox2.Text = DataGridView1.Item(1, i).Value
        TextBox3.Text = DataGridView1.Item(2, i).Value
        TextBox4.Text = DataGridView1.Item(3, i).Value
        TextBox5.Text = DataGridView1.Item(4, i).Value
    End Sub

dan panggil sub show data pada form_load dengan mengklik 2x pada form utama :

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        NewData = False
        ShowData()
        LodaDataToTextBox()
    End Sub

Lanjut.

Membuat Functions untuk mengeksekusi perintah ke database

    Private Sub doSQL(ByVal sql As String)
        konek()
        Dim objcmd As New OleDb.OleDbCommand
        Try
            objcmd.Connection = conn
            objcmd.CommandType = CommandType.Text
            objcmd.CommandText = sql
            objcmd.ExecuteNonQuery()
            MsgBox("Data sudah disimpan kedalam database", vbInformation)
            objcmd.Dispose()
        Catch ex As Exception
            MsgBox("Tidak dapat menyimpan data ke dalam database" & ex.Message)
        End Try
    End Sub

Functions untuk mengosongkan textbox

berguna untuk mengosongkan nilai di textbox, tuliskan seluruh code berikut :

    Private Sub clearData()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
    End Sub

selanjutnya kita akan membuat code untuk tombol New, Save, Delete dan Kelauar.

Code Tombol New

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        NewData = True
        clearData()
    End Sub

Code Tombol Save

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim save As String
        If NewData Then
            save = "INSERT INTO tbl_biodata(idsiswa,nama,nisn,kelas,alamat) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
        Else
            save = "UPDATE tbl_biodata SET nama='" & TextBox2.Text & "',nisn='" & TextBox3.Text & "',kelas='" & TextBox4.Text & "',alamat='" & TextBox5.Text & "' WHERE idsiswa=" & TextBox1.Text & "" ' sorry about that
        End If
        doSQL(save)
        ShowData()
    End Sub

Code Tombol Delete

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim Delete As String
        Dim vMessage As String

        vMessage = MsgBox("Apakah anda yakin ingin menghapus biodata siswa ini ?", vbExclamation + vbYesNo, "perhatian")
        If vMessage = vbNo Then Exit Sub

        Delete = "DELETE FROM tbl_biodata WHERE idsiswa=" & TextBox1.Text & ""
        doSQL(Delete)

        clearData()
        LodaDataToTextBox()
    End Sub

Code Tombol Keluar

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Me.Close()
    End Sub

dah, kita sudah finish. tinggal coba saja applikasi yang barusan kita buat, masih bingung bagaimana cara membuat aplikasi sederhana untuk membuat operations CRUD di vb.net menggunakan database Ms Access? lihat Video dibawah ini.

Video Tutorial CRUD + Ms Access OleDB Connection

Jangan lupa Subscribe Channel Youtube kami untuk mendapatkan Tutorial terbaru :
GPlus : https://plus.google.com/+HarisonMatondang
Youtube : http://www.youtube.com/c/HarisonMatondang