Menampilkan Database ke ListView

Obral komputer, laptop dan aksesorise Murah Banget

Pada kesempatan hari ini saya akan menjelaskan cara Menampilkan Database ke ListView Visual Studio 2010. Database yang digunakan kali ini adalah MS. Access. Berikut tampilan hasil jadinya :

Cukup mudah cara pembuatannya dan kali ini saya akan menjelaskan Step by step secara lengkap :

• Buatlah project terlebih dahulu, beri mana terserah anda
• Buatlah form yang terdiri dari satu Listview, ganti nama listview tersebut dengan nama ListViewBarang

• Buatlah database dengan nama db_barang.mdb. Buat table dengan nama barang dengan rincian atribut sebagai berikut :

• Letakkan database tersebut didalam folder project anda/bin/debug/db_barang.mdb
• Isi tabel tersebut dengan beberapa data. misal sebagai berikut

• Jiika sudah membuat database, Copykan Code berikut kedalam form yang anda buat tadi :

Imports System.Data.OleDb

Public Class Barang

    Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = |datadirectory|\db_barang.mdb; persist security info = false"

    Public conn As New OleDbConnection

    Public ubah_b As Integer = 0

    Private Sub Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring

        If conn.State = ConnectionState.Closed Then

            conn.Open()

            MsgBox("Database terhubung")

        Else

            MsgBox("close")

        End If

        Me.LoadListView()

    End Sub

    Sub LoadListView()

        ListViewBarang.FullRowSelect = True

        ListViewBarang.MultiSelect = False

        ListViewBarang.View = View.Details

        ListViewBarang.Columns.Clear()

        ListViewBarang.Items.Clear()

        ListViewBarang.Columns.Add("ID", 50, HorizontalAlignment.Left)

        ListViewBarang.Columns.Add("Nama Barang", 200, HorizontalAlignment.Left)

        ListViewBarang.Columns.Add("Merk", 50, HorizontalAlignment.Left)

        ListViewBarang.Columns.Add("Jenis", 100, HorizontalAlignment.Left)

        ListViewBarang.Columns.Add("Harga", 100, HorizontalAlignment.Left)

        Dim SqlQuery As String = " SELECT * FROM barang "

        Dim SqlCommand As New OleDbCommand

        Dim sqlAdapter As New OleDbDataAdapter

        Dim TABLE As New DataTable

        With SqlCommand

            .CommandText = SqlQuery

            .Connection = conn

        End With

        With sqlAdapter

            .SelectCommand = SqlCommand

            .Fill(TABLE)

        End With

        On Error Resume Next

        For i = 0 To TABLE.Rows.Count - 1

            With ListViewBarang

                .Items.Add(TABLE.Rows(i)("id_barang"))

                With .Items(.Items.Count - 1).SubItems

                    .Add(TABLE.Rows(i)("nama_barang"))

                    .Add(TABLE.Rows(i)("merk"))

                    .Add(TABLE.Rows(i)("jenis"))

                    .Add(TABLE.Rows(i)("harga"))

                End With

            End With

        Next

        On Error Resume Next

    End Sub

End Class

•  Dari SourceCode diatas saya akan menjelaskan kegunaan dimana sudah saya bedakan dengan cara mewarnai bagian-bagian SourceCode tersebut

           SouceCode untuk mengkoneksikan DataSource atau Database anda

           Perintah untuk membuta Database

           Perintah untuk membuat Coloum dalam ListView

           Perintah Sql untuk mengambil data didalam tabel barang

           untuk menampilkan data dalam tabel database ke dalam Colom Listview

Setelah selesai semua coba anda jalankan aplikasinya. Jika berhasil tampilan akan seperti berikut

Cukup mudah bukan. Bagi anda-anda yang pemalas, nich saya kasih yang udh jadi.

silahkan Download di SINI. Semoga bisa membantu anda semua.
Baca Juga Cara Menampilkan Database Ke DataGrid.

Thanks. mohon kritik dan sarannya.