Cara Membuat Listview di VB.NET

Cara Membuat Listview di VB.NET - Listview biasa digunakan untuk menampilkan data dari database yang digunakan, sehingga dapat mempermudah penggunanya untuk monitoring data yang telah di input. Untuk membuat Listview menggunakan VB.NET anda harus mempunya aplikasi Microsoft Visual Basic 2008, untuk anda yang belum mempunyai aplikasi ini silahkan download dan cari disini

Langkah - Langkah Membuat Listview di VB.NET
  1. Buka Microsoft Visual Basic 2008 yang telah didownload.
  2. Buatlah database dengan nama studinfo dan nama tabel student seperti ini
  3. Kemudian Buatlah sebuah form1 seperti berikut.
  4. Gunakan kreatifitas anda untuk memodif tampilan form tersebut agar lebih menarik
  5. Setelah itu masukan script berikut ini
    Public Class Form1
        'this will serve as an open connection to our data source.
        Public con As OleDb.OleDbConnection = jokendb()
        'this is some set of commands and a database connection that are use to fill later our datatable
        Dim da As New OleDb.OleDbDataAdapter
        'this will represent as our table in memory
        Dim dt As New DataTable
        'this holds our SQL Statements
        Dim sql As String
        Public Function jokendb() As OleDb.OleDbConnection
            Return New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\studinfo.accdb")
        End Function
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                sql = "SELECT ID,firstname,lastname,gender,course FROM students"
                con.Open()
                da = New OleDb.OleDbDataAdapter(sql, con)
                'fill the data to datatable
                da.Fill(dt)
                'declare a variable as DataRow which is represent a row of data
                Dim newrow As DataRow
                'loop from each row based on the number of rows stored in dt
                For Each newrow In dt.Rows
                    'display the results in listview
                    ListView1.Items.Add(newrow.Item(0)) 'this is for ID
                    ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(newrow.Item(1)) 'this is for Name
                    ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(newrow.Item(2)) 'this is for Lastname
                    ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(newrow.Item(3)) 'this is for gender
                    ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(newrow.Item(4)) ' this is for course


                Next

            Catch ex As Exception
                MsgBox(ex.Message)

            End Try
        End Sub

        Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

        End Sub
    End Class
  6. Kemudian untuk mencoba klik start, sehingga hasilnya seperti berikut
Silahkan Lihat video berikut ini .


Demikian Cara Membuat Listview di VB.NET semoga daat bermanfaat dan daat digunakan sebagaimana mestinya. Untuk download sourcecodenya silahkan klik dibawah ini, terima kasih.

Download Sourcecode Listview

Reactions

Post a Comment

0 Comments