Tampilkan database Mysql ke Listview Vb.Net

Sekarang Kita akan membahas untuk mengisi listview yang terkoneksi ke database, dan saya menggunakan database Mysql untuk mengkoneksikannya, berikut source code nya :

   Public Sub isilistview()

        Dim data As DataTable

        Dim da As MySqlDataAdapter

        isitable()

        data = New DataTable

        KONEKSI.bukaDB()

        da = New MySqlDataAdapter("SELECT * FROM tbl_pihak", conn)

        Dim bs As New BindingSource

        da.Fill(data)

        bs.DataSource = data

        With ListView1

            For i As Integer = 0 To bs.Count - 1

                Dim lst As New ListViewItem

                With lst

                    .Text = bs.Current("kd_pihak").ToString

                    .SubItems.Add(bs.Current("nm_pihak").ToString)

                   

                End With

                .Items.Add(lst)

                bs.MoveNext()

            Next

        End With

    End Sub

    Public Sub isitable()

        ListView1.Clear()

        '  ListView1.Columns.Add("No", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Kode Pihak", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Nama Pihak", 200, HorizontalAlignment.Left)

        '    ListView1.Columns.Add("Keterangan", 220, HorizontalAlignment.Left)

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

    End Sub

Saya menggunakan procedure untuk memanggil source code nya pada Form load, dengan source sebagai berikut :

  Private Sub Pihak_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        isilist()

  End Sub

Sekian contoh source code untuk tampil listview dari database MySql kali ini, Terima kasih telah membaca artikel ini. Senangnya berbagi.