Senin, 29 November 2010

4

[VB.NET] Memasukan Tabel Database Ke ListView

  • Senin, 29 November 2010
  • Nurkholish Ardi Firdaus
  • Share
  • 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..
    Related Posts Plugin for WordPress, Blogger...

    4 Komentar Untuk “[VB.NET] Memasukan Tabel Database Ke ListView”

    Anglingdarma mengatakan...
    Rabu, 23 Maret 2011 18.24.00 WIB Reply To This Comment

    Thanks gan, ane dapet pencerahan


    Anglingdarma mengatakan...
    Rabu, 23 Maret 2011 19.36.00 WIB Reply To This Comment

    Kalo bisa sekalian edit, pencarian, dan hapus datanya di up gan. Lagi belajar nih heheheh..Thanks sebelumnya


    Nurkholish Ardi Firdaus mengatakan...
    Kamis, 24 Maret 2011 11.57.00 WIB Reply To This Comment

    @Anglingdarma ya indyaallah ane uplud bsok2 gan....thanx


    Dudi mengatakan...
    Selasa, 12 Juli 2016 20.14.00 WIB Reply To This Comment

    Mantapp gan..thanx ada pencerahan


    Posting Komentar

    Berikan komentar positif tentang artikel yang sederhana ini niscaya sobat akan mendapatkan balasannya. Hehehe

    Subscribe