Membuat Listview di VB.NET

1. Buat sintaks untuk membuat tabel di SQL Server untuk di tampilkan

Create table Nama_tabel(
    kolom1 int,
    kolom2 varchar(255),
    kolom3 varchar(255),
)

2. Masukan beberapa data sesuai keinginan anda

Insert into Nama_tabel values('nilai1','nilaikolom2','nilaikolom3),('nilai2','nilaikolom2','nilaikolom3')

3. Buka VB.Net dan buat sebuah form, lalu pilih sebuah listview dan sesusaikan ukurannya 
4. Klik 2 kali pada form agar muncul kode view untuk mengedit dan menambahkan kode 
5. Buat sebuah sub/fungsi dengan nama displaydata(), seperti di bawah ini

Sub displaydata()
Listview1.clear
Listview1.Columns.Add("kolom1") 
Listview1.Columns.Add("kolom2")
Listview1.Columns.Add("kolom3")

cons = New SqlConnection("Data Source=NAMA_SERVER;Initial Catalog=NAMA_DATABASE;User ID=USER;Password=PASSWORD")
adap = New SqlDataAdapter("SELECT kolom1,kolom2,kolom3 FROM Nama_tabel where kolom1=nilai, cons)
dset = New DataSet
dset.Clear()

adap.Fill(dset, "Inisial")
Dim itemcoll(100) As String
Listview1.Items.Clear()
For i = 0 To dset.Tables(0).Rows.Count - 1
For j = 0 To dset.Tables(0).Columns.Count - 1
itemcoll(j) = dset.Tables(0).Rows(i)(j).ToString()

Next

Dim lvi As New ListViewItem(itemcoll)
Me.Listview1.Items.Add(lvi)
If Listview1.Items.Count = 0 Then
MessageBox.Show("Tidak Ada data untuk di proses")
End If
Next

End Sub

6. Panggil sub/fungsi tadi di form1 load

Public Class Form1
Private Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   displaydata() 'untuk memanggil fungsi yang telah dibuat
End Sub
End Class

Sekarang anda telah selesai menampilkan query ke dalam listview... Selamat mencoba,