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.
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 Sub
Dan 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 disini
End If
End If
Next i
Semoga bermanfaat.
Wassalam
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
