Jumat, 09 Desember 2016

Menampilkan Data pada ListView dengan Visual Basic .Net

Tidak ada komentar:
Salah satu kontrol dalam Visual Basic .Net yang berfungsi untuk menampilkan data yaitu objek ListView. Perbedaan ListView dengan DataGridView secara mendasar adalah pada tampilan, dimana ListView desainnya lebih menarik dan bisa digunakan untuk membuat Shorcut Menu menggunakan ikon gambar, sedangkan DataGridView tampilannya bisa dibilang standard. Namun bila dilihat dari segi performa untuk menampilkan data yang banyak, lebih dianjurkan untuk menggunakan DataGridView karena lebih cepat dalam menampilkan data dibandikan dengan objek ListView. Buat projek baru dengan nama ListView.
1. Buatlah koneksi dengan database anda, silahkan lihat contoh membuat koneksi ke database dengan mudah http://www.salamilmu.com/2016/11/implementasi-perintah-dasar-sql-dengan.html
2. Desain form seperti dibawah ini 
3. Klik kanan form, kemudian ketikkan listing program dibawah ini

Imports System.Data.OleDb
Public Class Form1

    Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampil.Click

        Me.lv.Items.Clear()

        Dim DBConn As New OleDbConnection(My.Settings.Koneksi)
        DBConn.Open()

        Dim strQ As String = ""
        Dim cmd As OleDbCommand
        Dim da As OleDbDataAdapter
        Dim ds As DataSet
        Dim itemcoll(100) As String

        strQ = "SELECT * FROM Orders"
        cmd = New OleDbCommand(strQ, DBConn)
        da = New OleDbDataAdapter(cmd)
        ds = New DataSet
        da.Fill(ds, "Table")
        Dim i As Integer = 0
        Dim j As Integer = 0

        For i = 0 To ds.Tables(0).Columns.Count - 1        
            Me.lv.Columns.Add(ds.Tables(0).Columns(i).ColumnName.ToString())
        Next

        For i = 0 To ds.Tables(0).Rows.Count - 1
            For j = 0 To ds.Tables(0).Columns.Count - 1
                itemcoll(j) = ds.Tables(0).Rows(i)(j).ToString()
            Next
            Dim lvi As New ListViewItem(itemcoll)
            Me.lv.Items.Add(lvi)
        Next
    End Sub
End Class
Seperti saya katakan diatas bahwa, jika data yang akan ditampilkan mencapai 1000 record lebih, saya anjurkan untuk menggunakan objek DataGridView. Silahkan download contoh programnya disini https://www.4shared.com/rar/mjGDwaCpce/ListView.html

, , , ,

Tidak ada komentar:

Posting Komentar