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.
Artikel Dipost Oleh Hariadi
Seorang freelancer website and software developer, gemar dengan ilmu seputar IT serta penuh semangat untuk belajar.
Copyright © 2014 - 2025. All rights reserved By Haysia Development.
0 Komentar
Tidak ada komentar