[VB.NET] Memasukan Tabel Database Ke ListView

Oke, kebanyakan orang memang lebih suka dengan menggunakan DataGrid untuk menampilkan keseluruhan isi dari tabel pada database. Tetapi kali ini sobat akan tahu tentang teknik menampilkan table database kedalam ListView. Okee...........

Deklarasi:
1 Form
1 ListView

Atur seperti ini:

Source Code:

Deklarasi:
1 Form
1 ListView

Source Code:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Membuat koneksi baru
        Dim adoConn As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet." _
                & "OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb" _
                & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False")

        ' Membuka Koneksi
        adoConn.Open()

        ' Membuat Adapter dari koneksi
        Dim adoAdapter As New Data.OleDb.OleDbDataAdapter("SELECT * FROM Titles ORDER By Title", adoConn)
        Dim adoTable As New DataTable

        ' Mengisi object Tabel dengan Adapter
        adoAdapter.Fill(adoTable)

        ' Masukan tabel kedalam ListView
        LoadDB(lstData, adoTable)
    End Sub

    Private Sub LoadDB(ByRef lstView As System.Windows.Forms.ListView, ByVal Table As DataTable)
        Dim curRow As DataRow

        ' Membuat header kolom
        For i = 0 To Table.Columns.Count - 1
            lstView.Columns.Add(Table.Columns(i).Caption)
            lstView.Columns.Item(i).Width = Len(Table.Columns(i).Caption) * 10
        Next

        ' Mengisi data ke ListView
        For i = 0 To Table.Rows.Count - 1
            curRow = Table.Rows(i)
            With lstView.Items.Add(curRow.Item(0).ToString)
                For j = 1 To lstView.Columns.Count - 1
                    .SubItems.Add(curRow.Item(j).ToString)
                Next
            End With
        Next
    End Sub
End Class

Jangan Lupa Komentar Yaa..