Tampilkan Database SQL Compact ke Listview

< data-ad-client="ca-pub-3890975320167131" data-ad-slot="8978403605"/ins>

Dalam programming aplikasi database perlu diketahui cara untuk menampilkan data dari database ke listview. Dalam artikel sebelumnya telah dibahas cara koneksi ke database dan Cara Input, Delete, Update Database. Nah sekarang kita akan menampilkan data dengan cara sebagai berikut:

1. Pada Program yang telah anda buat tambahkan sebuah listview dengan Properties sebagai berikut:
• GridLines : True
  
• FullRowSelect : True
  
• View : Details
  
2. Tambah column pada listview dengan cara klik kanan listview dan add columns dan sesuaikan jumlahnya dengan Column yang ada pada database.
   
3. Codenya sebagai berikut:

MyKoneksi.Open()

Dim oTbl As New DataTable
Dim oDs As New DataSet
Dim oDa As New SqlCeDataAdapter("select*from NamaTabel", MyKoneksi)
oDa.Fill(oDs)
oTbl = oDs.Tables(0)

ListView1.Items.Clear()
For i As Integer = 0 To oTbl.Rows.Count - 1
With ListView1
.Items.Add(oTbl.Rows(i)("Column1"))
With .Items(.Items.Count - 1).SubItems
.Add(oTbl.Rows(i)("Column2"))
.Add(oTbl.Rows(i)("Column3"))
.Add(oTbl.Rows(i)("Column4"))
.Add(oTbl.Rows(i)("Column5"))
End With
End With
Next

MyKoneksi.Close()

Code diletakkan pada Even Form_Load atau anda bisa buat pada Sub tertentu agar bisa dipanggil kembali saat proses simpan, update, atau ubah database. Keterangan yang berwarna merah sesuaikan dengan nama tabel dan column database anda. Sekarang coba jalankan program dan lihat hasilnya. Semoga membantu ^^.

Related Post