Menampilkan Data dari Database ke ListView

Mungkin terasa ada yang kurang kalo sebuah program untuk menginput data tidak dilengkapi dengan Listview, dan apa fungsi dari Listview tersebut??Listview digunakan untuk menampilkan data yang sebelumnya sudah kita entry dan menyimpannya kedalam database, selain itu Listview juga berfungsi untuk mempermudah dalam melihat barang apa saja yang sudah kita entry ke database, sebaelumnya harus ada koneksi untuk menampilkan data dari database tersebut, untuk bagaimana caranya membuat koneksi?kemarin sudah kita bahas bisa simak disini. Langsung saja kita simak SourceCode berikut, Cekibroottt :)

Menampilkan data dari database ke Listview

Sebelumnya kita buat sebuah deklarasi yaitu "LoadBarang", untuk mengeload atau menampilkan nya ke listview
Sub LoadBarang() 'Menampilkan data dari database barang ke ListView
Dim sqlQueryBarang As String = "select * from tbBarang order by nama_barang"
Dim sqlTabel As New DataTable
Dim i As Integer
Try
cekkoneksi()
With sqlCommand
.CommandText = sqlQueryBarang
.Connection = skoneksi
End With
With sqlAdapter
.SelectCommand = sqlCommand
.Fill(sqlTabel)
End With
lvBarang.Items.Clear()
For i = 0 To sqlTabel.Rows.Count - 1
With lvBarang
.Items.Add(sqlTabel(i)("kd_barang"))
With .Items(.Items.Count - 1).SubItems
.Add(sqlTabel.Rows(i)("nama_barang"))
.Add(sqlTabel.Rows(i)("harga_beli"))
.Add(sqlTabel.Rows(i)("harga_jual"))
'.Add(sqlTabel.Rows(i)("jumlah"))
.Add(sqlTabel.Rows(i)("stock"))
.Add(sqlTabel.Rows(i)("keterangan"))
End With
End With
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
sqlCommand.Dispose()
sqlAdapter.Dispose()
skoneksi.Close()
End Sub
Untuk menampilkannya kita harus memanggilnya(sesuai kebutuhan anda), dan disini saya memanggilnya di FBarang_Load dan BtnSimpan
Private Sub FBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call cekkoneksi()
Call Filter()
Call combo()
cmbSegmen.Text = "Silahkan Pilih"
lblSetting.Enabled = False
txtKd_Barang.Enabled = False
LoadBarang()
End Sub
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
'Dim kd_oto As String = "B" & txtKd_Barang.Text.PadLeft(3, "0")
If txtKd_Barang.Text = "" Then
MsgBox("Kode Barang Masih Kosong", vbCritical, "salah")
txtKd_Barang.Focus()
ElseIf txtNama_Barang.Text = "" Then
MsgBox("Nama Barang Masih Kosong", vbCritical, "salah")
txtNama_Barang.Focus()
ElseIf txtHarga_Beli.Text = "" Then
MsgBox("Harga Beli Masih Kosong", vbCritical, "salah")
txtHarga_Beli.Focus()
ElseIf txtHarga_Jual.Text = "" Then
MsgBox("Harga Jual Masih Kosong", vbCritical, "salah")
txtHarga_Jual.Focus()
Else
Dim sqlSimpan As String = "INSERT INTO tbBarang(nm_segmen,kd_barang,nama_barang,harga_beli,harga_jual,stock,keterangan) VALUES ('" & cmbSegmen.Text & "','" & txtKd_Barang.Text & "','" & txtNama_Barang.Text & "','" & txtHarga_Beli.Text & "','" & txtHarga_Jual.Text & "','" & txtStock.Text & "','" & txtKet.Text & "')"
Try
cekkoneksi()
With sqlCommand
.CommandText = sqlSimpan
.Connection = skoneksi
.ExecuteNonQuery()
End With
MsgBox("Data Barang " & txtNama_Barang.Text & " Berhasil ditambahkan", MsgBoxStyle.Information)
LoadBarang()
btnTambah.Focus()
Call kosong()
Call mati()
btnTambah.Enabled = True
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End If
sqlCommand.Dispose()
TutupKoneksi()
End Sub

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest

Unknown

Artikel Terkait