Menampilkan Data Dari Table Ke Dalam Listview

Dari : http://junindar.blogspot.com/2008/12/menampilkan-data-dari-table-ke-dalam.html

Sering kali kita menggunakan listview untuk menampilkan data yang kita miliki, dan sering nya data tersebut bukan dari table, melainkan hanya inputan dari textbox atau yang lainnya. Sedangkan untuk menampilkan data kita bisa menggunakan DataGrid/DataGridView. Maka dari itu artikel ini akan menjelaskan secara singkat bagaimana menampilkan data pada listview , mengaktifkan check box pada listview sampai dengan melakukan suatu proses simpan yang mana hanya dilakukan pada baris yang di pilih.
Tambahkan 1 buah listview pada form, lalu ubah properties listview seperti :
CheckBoxes : True
FullRowSelect : True
GridLines : True
View : Details Dan pada properties coloumns klik button … disamping (Collection), lalu Add 2 kolom masing bernama Machine ID, dan Machine Name. Dan klik OK.

Tampilan ListView setelah dilakukan perubahan adalah seperti dibawah ini :

Sedangkan source code untuk menampilkan data dari table ke list view adalah seperti dibawah ini.
Sub ViewData()
Dim i As Integer
Displaydata()
LstMachine.Items.Clear()
For i = 0 To (objDataTable.Rows.Count - 1)
With objDataTable.Rows(i)
Dim lSingleItem As ListViewItem
lSingleItem = LstMachine.Items.Add(.Item("MachineID").ToString)
lSingleItem.SubItems.Add(.Item("MachineName").ToString)
End With
Next i

End SubDan sebelumnya buat dahulu coding untuk menampilkan data dan data tersebut disimpan kedalam Datatable (kalau di sintaks ini kita kasih nama objDataTable). Contoh sintaks nya seperti dibawah
Sub Displaydata()
Try

objDataTable.Clear()

strSQL = "SELECT T_Machine.MachineID,T_Machine.MachineName, " & _
" T_Product.ProductName, T_Machine.MachineDescription,T_Machine.AssetNo " & _
" FROM T_Machine INNER JOIN " & _
" T_Product ON T_Machine.ProductID = T_Product.ProductID " & _
" Where T_Machine.Deletion=0 order by T_Machine.MachineID Asc "

objCommand = New SqlCommand
objCommand.Connection = MyConnection.open
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New SqlDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "MDT_Machine")
MyConnection.close()
objDataTable = objDataSet.Tables("MDT_Machine")

Catch ex As Exception
MsgBox("Program error" _
& vbCrLf & Err.Description)
MyConnection.close()
End Try
End Sub
Untuk query tergantung pada kebutuhan. Setelah selesai sintaks diatas tinggal panggil aja Sub ViewData ke dalam Form Load.
Sedangkan untuk melakukan proses simpan pada baris yang dipilih adalah seperti dibawah ini.
For i = 0 To LstMachine.Items.Count - 1
If LstMachine.Items.Item(i).Checked = True Then 'Jika baris yang pilih, checkbox = true
'Buat proses simpan disiniEnd If
End If

Next i

Semoga bermanfaat.
Wassalam