Haloo guys.. kali ini mimin akan membahas mengenai cara atau query Insert, Update dan Delete di VB.Net. Di Tutorial sebelumnya saya sudah pernah membahas mengenai cara menyimpan data ke database MS Access, Artikelnya bisa lihat di bawah ini :

Berdasarkan tutorial Cara Menyimpan Data Ke Database MS Access di Vb.Net sebelumnya disini saya menggunakan Listview sebagai interface untuk menampilkan data dari database. Contohnya seperti berikut :

Dan pada formnya saya tambahkan 1 konponen yaitu ContextMenuStrip, dan pada ContextMenuStrip saya tambahkan 3 menu yaitu : Add, Update & Delete. Jangan lupa pada Listview Properties bagian ContextMenuStrip pilih ContextMenuStrip1. Berikut contoh ContextMenuStrip yang telah saya tambahkan :

Double click pada Menu Add dan tambahkan kode seperti dibawah :

    Private Sub AddToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddToolStripMenuItem.Click
        fSimpan_data.ShowDialog(Me) 'form ini dibuat di tutorial sebelumnya !!!
    End Sub

Untuk Query Simpan/Insert seperti berikut :

    Private Sub Simpan()
        Call ConnectDb() 'Koneksikan ke database
        Dim simpan As String = "INSERT INTO data(tanggal,data_1,data_2,data_3)values('" & tanggalTxt.Text & _
                "','" & dataTxt_1.Text & "','" & dataTxt_2.Text & "','" & dataTxt_3.Text & "')"
        CMD = New OleDbCommand(simpan, CONN)
        CMD.ExecuteNonQuery()
        MsgBox("Simpan Data Berhasil", MsgBoxStyle.Information, "Sukses")
        CONN.Dispose()
        CONN.Close()
        Me.Close()
    End Sub

Selanjutnya untuk update buat sebuah form yang modelnya sama dengan form fSimpan_data.vb pada tutorial sebelumnya dengan nama fUpdate_data.vb bedanya di form update tersebut tambahkan sebuah label dan beri nama idTxt yang akan digunakan sebagai tampilan Id untuk query updatenya nanti, setelah formnya siap double click pada menu Update yang ada di ContextMenuScript tadi. Dan tambahkan kode sepeti berikut :

    Private Sub UpdateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateToolStripMenuItem.Click
        fUpdate_data.idTxt.Text = ListView1.SelectedItems(0).SubItems(1).Text
        fUpdate_data.tanggalTxt.Value = ListView1.SelectedItems(0).SubItems(2).Text
        fUpdate_data.dataTxt_1.Text = ListView1.SelectedItems(0).SubItems(3).Text
        fUpdate_data.dataTxt_2.Text = ListView1.SelectedItems(0).SubItems(4).Text
        fUpdate_data.dataTxt_3.Text = ListView1.SelectedItems(0).SubItems(5).Text
        fUpdate_data.ShowDialog(Me)
    End Sub

Dan jangan lupa import System data oledbnya ya. contoh : Imports System.Data.OleDb letakkan diatas Public Class fUpdate_data

Sebelum melanjutkan sebagai informasi bahwa untuk primary key AutoNumber itu tidak dapat di update ya, jadi untuk primary key di table databasenya agar Data Typenya diubah ke text. Selanjutnya pada form fUpdate_data.vb double click pada tombol simpan dan isikan kode berikut :

    Private Sub saveBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveBtn.Click
        Call ConnectDb()
        Dim update As String = "UPDATE data SET " _
                            + "tanggal = '" & tanggalTxt.Value & "'," _
                            + "data_1 = '" & dataTxt_1.Text & "'," _
                            + "data_2 = '" & dataTxt_2.Text & "'," _
                            + "data_3 = '" & dataTxt_3.Text & "' WHERE id='" & idTxt.Text & "' "
        CMD = New OleDbCommand(update, CONN)
        CMD.ExecuteNonQuery()
        CONN.Dispose()
        CONN.Close()
        MsgBox("update berhasil", MsgBoxStyle.Information, "Info")
        tampil_lv.Tampil_Data()
        Me.Close()
    End Sub

Selanjutnya untuk Delete double click pada menu Delete yang ada di ContextMenuScript. Dan kodenya seperti berikut :

    Private Sub DeleteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteToolStripMenuItem.Click
        If ListView1.Items.Count > 0 Then
            Dim id As String = ListView1.FocusedItem.SubItems(1).Text
            If MsgBox("Hapus " & id & " dari daftar data ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
                Call ConnectDb()
                Dim delete As String = "DELETE FROM data WHERE id='" & id & "'"
                CMD = New OleDbCommand(delete, CONN)
                CMD.ExecuteNonQuery()
                MsgBox("hapus berhasil", MsgBoxStyle.Information, "Info")
                Call Tampil_Data()
            End If
        End If
    End Sub

Ok, seperti ini tutorial kita kali ini, semoga bermanfaat dan Terimakasih telah berkunjung ke Haysia Development.