Manipulasi Data Ms. Access dengan VB.Net (New, Save, Delete, dan Find)

Assalamualaikum Wr. Wb

Pada postingan blog saya ini, saya akan memberikan sedikit tutorial mengenai Manipulasi Data pada Ms. Access menggunakan VB .Net.

Saya membuat program mengenai Inventory dari sebuah toko Alat Tulis dan Kantor. Dengan banyaknya produk yang ada dan mencari produk yang sudah dicatat akan memudahkan kita dalam pencarian persediaan barang dagangan.

Saya membuat dua Form, yaitu form Log In dan form Inventory, dan saya membuat satu database berdasar Ms. Access.

Saya menggunakan Ms. Visual Studio 2012 dan Ms. Access 2007

Database Ms. Access

Pertama-tama saya membuat Database di Ms. Access dengan isian sebagai berikut. Saya juga membuat sedikit contoh pada tabel tersebut.

Tabel Inventory

Contoh yang Sudah diisi

Lalu Save.

Ms. Visual Studio

Form Log In

Pertama, saya membuat desain interface sebagai berikut

Source Code

Username: rsa

Password: 123

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "rsa" Then
            If TextBox2.Text = "123" Then
                Inventory.Show()
            Else
                MsgBox("Password anda salah, silahkan coba lagi")
            End If
        Else
            MsgBox("Username atau Password anda salah, silahkan coba lagi")
        End If
    End Sub

Bila password salah, akan muncul pemberitahuan seperti ini

Form Inventory

Pada form Inventory, saya membuat interface sebagai berikut

Pada bagian Penanggung Jawab, saya merubahnya menjadi Combobox dengan cara

Source Code Nutton New

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        InventoryBindingSource.AddNew()
    End Sub

Hasil dari button tersebut adalah sebagai berikut

Button Save

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Validate()
        Me.InventoryBindingSource.EndEdit()
        InventoryTableAdapter.Update(Me.Inventory_VB2DataSet.Inventory)

        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Z:\Kuliah\Semester 3\VB\UAS VB2\Inventory_VB2.accdb"
        Dim tambah As String = "insert into Inventory values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "')"
        Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)

        objekkoneksi.Open()
        Dim ocmd = New OleDbCommand(tambah, objekkoneksi)
        ocmd.ExecuteNonQuery()
        MsgBox("Data Telah Tersimpan")
        objekkoneksi.Close()
    End Sub

Bagaimana cara mendapatkan code dari:

Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Z:\Kuliah\Semester 3\VB\UAS VB2\Inventory_VB2.accdb"

Step ini juga akan menjelaskan cara untuk mengitegrasi Visual Studio dengan Ms. Access

Yang saya highlight adalah untuk code yang saya bahas

Caranya mudah, cukup ikuti perintahnya saja.

Hasil dari Button Save adalah sebagai berikut

Pemberitahuan bila data telah tersimpan

Integrasi dengan Ms. Access

Button Delete

Button ini dapat menghapus satu baris dari tabel

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        InventoryBindingSource.RemoveCurrent()
    End Sub

Hasil Button Delete

Tinggal dua baris

Button Update

Button ini dapat memperbaharui data pada tabel.

  Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Z:\Kuliah\Semester 3\VB\UAS VB2\Inventory_VB2.accdb"
        Dim connection As New OleDb.OleDbConnection(koneksi)
        connection.Open()
        Dim KodeBarang As Integer
        Dim NamaBarang As String
        Dim JumlahBarang As Integer
        Dim PenanggungJawab As String

        KodeBarang = InventoryDataGridView.CurrentRow.Index
        NamaBarang = InventoryDataGridView.Item(1, KodeBarang).Value
        JumlahBarang = InventoryDataGridView.Item(2, KodeBarang).Value
        PenanggungJawab = InventoryDataGridView.Item(3, KodeBarang).Value

        Dim query As String = "Update Inventory set NamaBarang='" & TextBox2.Text & "',JumlahBarang='" & TextBox3.Text & "',PenanggungJawab='" & ComboBox1.Text & "' where KodeBarang = " & TextBox1.Text & ""
        Dim command As New OleDbCommand

        With command
            .CommandText = query
            .Connection = connection
            .ExecuteNonQuery()
        End With
        MsgBox("Terima Kasih, Inventory Telah Diubah")
        connection.Close()

    End Sub

Terakhir, Button Find

Tombol ini dapat membantu kita untuk mencari data dari banyaknya data yang akan ada nantinya.

 Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Me.InventoryBindingSource.Filter = "KodeBarang LIKE'%" & TextBox4.Text & "'"

    End Sub

TextBox.4 adalah textbox yang berada tepat di sebelah kirinya. Anda dapat merubahnya sesuai dengan kebutuhan anda.

Hasil dari Button Find adalah sebagai berikut

Sekian tutorial singkat dari saya, semoga bermanfaat bagi yang membacanya.

Wassalamualaikum. Wr. Wb