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
- Buka Microsoft Visual Basic 2008 yang telah didownload.
- Buatlah database dengan nama studinfo dan nama tabel student seperti ini
- Kemudian Buatlah sebuah form1 seperti berikut.
- Gunakan kreatifitas anda untuk memodif tampilan form tersebut agar lebih menarik
- Setelah itu masukan script berikut iniPublic 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 - 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.
0 Comments