Cara Menampilkan Data ke Listview VB 6

Cara Menampilkan data ke Listview VB 6 - Halo, apa kabar kali ini saya membagikan cara menampilkan data dari MySQL ke Listview milik Visual Basic. 

Untuk menambahkan Listview ke Visual Basic, aktifkan dulu Microsoft Windows Common Controls, caranya lihat gambar berikut :

Centang Microsoft Windows Common Controls. Sekarang kita buka halaman project di Visual Basic, lalu tambahkan komponen Listview. Klik View, pilih Code

Masukkan kode berikut :

Private Sub Form_Load()
    Call Koneksi
    Dim ch As ColumnHeader
  
    Set ch = ListView1.ColumnHeaders.Add(, , "No. SI", 1700)
    Set ch = ListView1.ColumnHeaders.Add(, , "Shipper Name", 2100, vbLeftJustify)
    Set ch = ListView1.ColumnHeaders.Add(, , "Booking Number", 2300, vbCenter)
    Set ch = ListView1.ColumnHeaders.Add(, , "Weighing Company Name (if 3rd party)", 2300, vbLeftJustify)
    Set ch = ListView1.ColumnHeaders.Add(, , "Weighing Company Address and Contact Details (if 3rd party)", 2300, vbLeftJustify)
    Set ch = ListView1.ColumnHeaders.Add(, , "* Please enter weight and unit of measure", 2300, vbLeftJustify)
    Set ch = ListView1.ColumnHeaders.Add(, , "Method 1 would only require the total VGM to be entered on table", 2300, vbLeftJustify)
    Set ch = ListView1.ColumnHeaders.Add(, , "Method 2 would require all the others plus the total VGM", 1500, vbCenter)
    Set ch = ListView1.ColumnHeaders.Add(, , "Signature", 1500, vbCenter)
    Set ch = ListView1.ColumnHeaders.Add(, , "Signatory Company Name", 1500, vbCenter)
    Set ch = ListView1.ColumnHeaders.Add(, , "Signatory Company Contact Details", 1500, vbCenter)
    Set ch = ListView1.ColumnHeaders.Add(, , "Date", 1500, vbCenter)
    ListView1.GridLines = True
   
   Set rs = New ADODB.Recordset
   
    Tampil ("SELECT * FROM latihan")
       
       
End Sub

Kode diatas untuk mengeset listview untuk selalu menampilkan data setiap kali aplikasi dijalankan. 

Untuk contoh program, sudah saya sertakan di Menampilkan data dari Listview ke Msflexgrid dan Textbox, atau donlut di sini, silahkan anda download untuk membantu anda memahami isi kodingnya.

Kemudian panggil Fungsi Tampil:

Function Tampil(strSQL As String)
Koneksi
ListView1.ListItems.Clear
Dim data As ListItem
Dim rs As ADODB.Recordset

strSQL = "SELECT * FROM vgm"
Set rs = New ADODB.Recordset
If rs.State = 1 Then rs.Close
rs.Open strSQL, CON, adOpenDynamic, adLockOptimistic
    While Not rs.EOF
        Set data = ListView1.ListItems.Add(, , rs.Fields(0))
        data.SubItems(1) = rs.Fields(1)
        data.SubItems(2) = rs.Fields(2)
        data.SubItems(3) = rs.Fields(3)
        data.SubItems(4) = rs.Fields(4)
        data.SubItems(5) = rs.Fields(5)
        data.SubItems(6) = rs.Fields(6)
        data.SubItems(7) = rs.Fields(7)
        data.SubItems(8) = rs.Fields(8)
        data.SubItems(9) = rs.Fields(9)
        data.SubItems(10) = rs.Fields(10)
        data.SubItems(11) = rs.Fields(11)
        rs.MoveNext
    Wend

End Function 

Kalau semua sudah ok, jalankan program maka otomatis data akan muncul di listview, seperti contoh gambar dibawah ini

Mungkin itu dulu dari saya, jika ada pertanyaan atau saran silahkan anda tinggalkan di kolom komentar yang tersedia dibawah ini. Terima kasih.