Program Simpan Data tanpa Database Pada Visual Basic .Net Dengan Fasilitas Listview

Menyimpan data pada Visual Basic .Net adalah bagaimana pengolahan data sederhana data disimpan dalam array atau pada fasilitas Listview itu sendiri. karna pada dasarnya logika tabel sama seperti array. silahkan design seperti gambar berikut

Selanjutnya tambahka code program seperti berikut

      Private Sub btnBaru_Click(sender,e) Handles btnBaru.Click         txtKode.Focus()         txtKode.Clear()         txtNama.Clear()         txtHarga.Clear()         txtJumlah.Clear()     End Sub      Sub buatkolom()         With lv.Columns             .Add("Kode", 50, HorizontalAlignment.Center)             .Add("Nama", 100, HorizontalAlignment.Center)             .Add("Harga", 200, HorizontalAlignment.Center)             .Add("Jumlah", 100, HorizontalAlignment.Center)         End With         lv.View = View.Details         lv.GridLines = True         lv.FullRowSelect = True     End Sub      Sub isiTabel()         Dim isi As New ListViewItem         isi.Text = txtKode.Text         isi.SubItems.Add(txtNama.Text)         isi.SubItems.Add(txtHarga.Text)         isi.SubItems.Add(txtJumlah.Text)         lv.Items.Add(isi)     End Sub      Private Sub frmMahasiswa_Load(sender,e) Handles MyBase.Load         buatkolom()     End Sub      Private Sub btnSimpan_Click(sender,e) Handles btnSimpan.Click         isiTabel()         btnBaru_Click(sender, e)     End Sub      Private Sub btnHapus_Click(sender,e) Handles btnHapus.Click         If lv.Items.Count <> 0 Then             lv.Items.Remove(lv.SelectedItems(0))         Else             MsgBox("belum diseleksi")         End If         btnBaru_Click(sender, e)     End Sub     Private Sub lv_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lv.Click         txtKode.Text = lv.SelectedItems(0).SubItems(0).Text         txtNama.Text = lv.SelectedItems(0).SubItems(1).Text         txtHarga.Text = lv.SelectedItems(0).SubItems(2).Text         txtJumlah.Text = lv.SelectedItems(0).SubItems(3).Text     End Sub      Private Sub btnEdit_Click(sender,e) Handles btnEdit.Click         If lv.Items.Count <> 0 Then             With lv.SelectedItems(0)                 .SubItems(0).Text = txtKode.Text                 .SubItems(1).Text = txtNama.Text                 .SubItems(2).Text = txtHarga.Text                 .SubItems(3).Text = txtJumlah.Text             End With         Else             MsgBox("")         End If         btnBaru_Click(sender, e)     End Sub      Private Sub btnKeluar_Click(sender,e) Handles btnKeluar.Click         Dim tanya As String         tanya = MsgBox("Apakah anda ingin keluar", MsgBoxStyle.OkCancel)         If tanya = MsgBoxResult.Ok Then             MsgBox("Anda Keluar")             End         End If     End Sub

Setelah semua ditulis dengan benar akan menghasil proses simpan data dan juga proses penghapusan dan mengubah data pada program. simple banget kan aplikasinya , ini dapat dikembangkan sesuai keinginan Anda

Semoga Bermanfaat