Sebelumnya teman-teman harus tau dulu ni Cara Membuat Koneksi VB.Net Ke Database Microsoft Access. Setelah itu lanjut cara menampilkan data ke listview dari database Ms Access.

Pertama-tama buat dulu Table di database MS Access kalau temen-temen belum buat, tapi kalau udah ada maka gunakan sesuai yang sudah ada. Contoh table yang saya buat seperti berikut :

Langkah selanjutnya buat sebuah form di vb.net disini formnya saya beri nama tampil_lv.vb, dan didalam form saya menambahkan komponen Listview caranya : disebelah kiri ada Menu ToolBox > Common Controls > ListView, Klik dan tahan Listview dan seret ke dalam form yang telah dibuat tadi maka disana akan ada Listview dengan nama Listview1, Dan di bagian properties listview cari FullRowSelect ganti value menjadi True, GridLines value = True dan View value = Details.

Selanjutnya membuat proses crud data dari database, klik kanan pada tampil_lv.vb dan klik View Code. Terus import System Data Oledb :

Imports System.Data.OleDb 'Imports Oledb
Public Class tampil_lv

End Class

Selanjutnya membuat Header Listview :

    Public Sub Header_Lv()
        If ListView1.Columns.Count <= 0 Then
            ListView1.Columns.Add("NO", 30, HorizontalAlignment.Center)
            ListView1.Columns.Add("ID", 150, HorizontalAlignment.Center)
            ListView1.Columns.Add("TANGGAL", 150, HorizontalAlignment.Center)
            ListView1.Columns.Add("DATA 1", 150, HorizontalAlignment.Center)
            ListView1.Columns.Add("DATA 2", 200, HorizontalAlignment.Center)
            ListView1.Columns.Add("DATA 3", 100, HorizontalAlignment.Center)
        End If
    End Sub

Selanjutnya membuat Crud database ke Listview :

    Public Sub Tampil_Data()
        On Error GoTo gagal
        ListView1.Items.Clear()
        Call ConnectDb()
        CMD = New OleDbCommand("SELECT * FROM data order by tanggal ASC", CONN)
        DA = New OleDbDataAdapter(CMD)
        Dim dt As New DataTable
        DA.Fill(dt)
        Dim no As Integer = 1
        For i As Integer = 0 To dt.Rows.Count - 1
            With ListView1
                .Items.Add(no)
                With .Items(.Items.Count - 1).SubItems
                    .Add(dt.Rows(i)("id"))
                    .Add(IIf(IsDBNull(dt.Rows(i)("tanggal")), "", dt.Rows(i)("tanggal")))
                    .Add(IIf(IsDBNull(dt.Rows(i)("data_1")), "", dt.Rows(i)("data_1")))
                    .Add(IIf(IsDBNull(dt.Rows(i)("data_2")), "", dt.Rows(i)("data_2")))
                    .Add(IIf(IsDBNull(dt.Rows(i)("data_3")), "", dt.Rows(i)("data_3")))
                End With
            End With
            no = no + 1
        Next
        CONN.Dispose()
        CONN.Close()
        Exit Sub
gagal:
        MsgBox("Terjadi Kesalahan " & Err.Number & " " & Err.Description, vbInformation, "Info")
    End Sub

Selanjutnya menjalankan Sub diatas ke Event Load :

    Private Sub tampil_lv_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call Header_Lv()
        Call Tampil_Data()
    End Sub

Sehingga hasil lengkapnya akan seperti berikut :

Imports System.Data.OleDb
Public Class tampil_lv

    Public Sub Header_Lv()
        If ListView1.Columns.Count <= 0 Then
            ListView1.Columns.Add("NO", 30, HorizontalAlignment.Center)
            ListView1.Columns.Add("ID", 150, HorizontalAlignment.Center)
            ListView1.Columns.Add("TANGGAL", 150, HorizontalAlignment.Center)
            ListView1.Columns.Add("DATA 1", 150, HorizontalAlignment.Center)
            ListView1.Columns.Add("DATA 2", 200, HorizontalAlignment.Center)
            ListView1.Columns.Add("DATA 3", 100, HorizontalAlignment.Center)
        End If
    End Sub

    Public Sub Tampil_Data()
        On Error GoTo gagal
        ListView1.Items.Clear()
        Call ConnectDb()
        CMD = New OleDbCommand("SELECT * FROM data order by tanggal ASC", CONN)
        DA = New OleDbDataAdapter(CMD)
        Dim dt As New DataTable
        DA.Fill(dt)
        Dim no As Integer = 1
        For i As Integer = 0 To dt.Rows.Count - 1
            With ListView1
                .Items.Add(no)
                With .Items(.Items.Count - 1).SubItems
                    .Add(dt.Rows(i)("id"))
                    .Add(IIf(IsDBNull(dt.Rows(i)("tanggal")), "", dt.Rows(i)("tanggal")))
                    .Add(IIf(IsDBNull(dt.Rows(i)("data_1")), "", dt.Rows(i)("data_1")))
                    .Add(IIf(IsDBNull(dt.Rows(i)("data_2")), "", dt.Rows(i)("data_2")))
                    .Add(IIf(IsDBNull(dt.Rows(i)("data_3")), "", dt.Rows(i)("data_3")))
                End With
            End With
            no = no + 1
        Next
        CONN.Dispose()
        CONN.Close()
        Exit Sub
gagal:
        MsgBox("Terjadi Kesalahan " & Err.Number & " " & Err.Description, vbInformation, "Info")
    End Sub

    Private Sub tampil_lv_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call Header_Lv()
        Call Tampil_Data()
    End Sub
End Class

Jika ada kendala jangan sungkan untuk berkomentar, Mimin akan membalasnya segera.