VB.NET Ms Access: Create, Read, Update, Delete (CRUD) Part 1

blogging mood is on fire.....

Kali ini Rani coba berbagi tentang bagaimana membuat CRUD dengan VB.NET dan Ms. Access step by step.
Tabel yang akan digunakan bernama kategori dengan bentuk sebagai berikut:

Pada UI kita perlu menambahkan tombol-tombol untuk proses Save, Edit, Delete, Cancel, dan Exit.
dan kita akan membuat nya dengan menggunakan ToolStrip Control.

Cara membuatnya? lihat disini yah...
Dan UI lengkap nya sebagai berikut:

Panel ditambahkan pada bagian atas form untuk memuat label dan textbox input dengan property Dock = Top. Sebuah datagridview juga ditambahkan di bagian bawah dan property Dock = Fill.

Penulisan kode kita mulai dengan menampilkan data di grid. Seperti biasa bekerja database access kita menggunakan koneksi OLDB maka pertama kita perlu mengimpor:
Imports System.Data.OleDb

Mendeklarasikan dan membuat sub procedure untuk membuat/membuka koneksi:
Dim con As New OleDbConnection

Sub Open_Koneksi()
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0" & _
                           ";Data Source=latihan.accdb;" & _
                           "Persist Security Info=False;"
    con.Open()
End Sub

Sub procedure untuk menampilkan data di grid:
Sub Data_Load()
    Dim cmd As New OleDbCommand
    Dim adapt As New OleDbDataAdapter
    Dim dt As New DataTable

    Try
        If Not con.State = ConnectionState.Open Then Open_Koneksi()

        cmd.Connection = con
        cmd.CommandText = "SELECT kodekategori, namakategori FROM kategori"
        adapt.SelectCommand = cmd
        adapt.Fill(dt)

        With grdData
            .AllowUserToAddRows = False
            .ReadOnly = True
            .DataSource = dt
        End With

    Catch ex As OleDbException
        MessageBox.Show("Error: " & ex.Message)
    Finally
        con.Close()
    End Try
End Sub

Dan memanggilkan saat Event Form Load
Private Sub frmCategory_Load(sender As Object, _
        e As EventArgs) Handles Me.Load
    Data_Load()
End Sub

Sampai sini klo pengen nyoba dulu udah bisa di run koq, hasil nya seperti ini:

Selanjutnya kita akan membuat code untuk menginput data baru (insert) yang disimpan dalam event tbrSave Click.
Private Sub tbrSave_Click(sender As Object, _
        e As EventArgs) Handles tbrSave.Click

    Dim myCommand As New OleDbCommand
    Dim SQL As String
    Try
        If Not con.State = ConnectionState.Open Then Open_Koneksi()
        SQL = "INSERT INTO kategori (kodekategori, namakategori) VALUES " & _
              "('" & txtCode.Text & "', '" & txtName.Text & "')"

        myCommand.Connection = con
        myCommand.CommandText = Sql
        myCommand.ExecuteNonQuery()

        MsgBox("Data baru tersimpan")

        txtCode.Text = String.Empty
        txtName.Text = String.Empty
        Data_Load()

        con.Close()
    Catch myerror As OleDbException
        MessageBox.Show("Error: " & myerror.Message)
    Finally
        con.Dispose()
    End Try
End Sub

Run untuk mencoba proses insert.