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.
Artikel Dipost Oleh Hariadi
Seorang freelancer website and software developer, gemar dengan ilmu seputar IT serta penuh semangat untuk belajar.
Copyright © 2014 - 2025. All rights reserved By Haysia Development.
0 Komentar
Tidak ada komentar