Halo Sobat Campus VB, Maaf ni lama tidak posting artikel lagi karena sedang sibuk dengan tugas kuliah.. hehehe... Tapi Sobat Campus VB jangan khawatir setiap ada kesempatan saya akan membagikan artikel yang berguna untuk Sobat Campus VB dalam belajar pemrograman. Pada kesempatan kali ini saya akan mencoba membuat artikel tentang Datagridview.
Datagridview adalah componen yang digunakan untuk menapilkan data atau tabel dalam bentuk Grid. Datagridview dapat menampilkan data yang berasal dari tabel pada suatu database, data dari variable Array dan lain-lain. Untuk menampilkan data ke datagrid bisa dilakukan dengan dua cara yaitu dengan menggunakan code program atau langsung dari System Properties.
Nah.. pada kesempatan ini saya akan memberikan contoh cara menampilan data ke Datagrid melalui code program. untuk menampilkan data ke Datagridview dengan code program maka Sobat Campus VB harus mengetikkan perintah-perintah tertentu agar data bisa tampil pada Datagridview. Sebelum mengetikkan code programnya Sobat Campus VB harus membuat tampilan Programnya seperti berikut ini :
Agar data bisa muncul di Datagridview maka saya akan menampung data ke object DataTable terlebih dahulu. Sebenarnya ada banyak cara untuk menampilkan data ke Datagridview melalui code program contohnya bisa menggunakan DataTable atau Dataset. Isi data DataTable atau Dataset ini bisa berasal dari Tabel pada database, dari Array, dari Text Files dan lain-lain. DataTable dan Dataset ini terdiri dari Baris dan Kolom. Jadi Sobat Campus VB jangan lupa untuk membuat nama-nama kolomya terlebih dahulu sebelum memasukkan data per barisnya.
Tambahkan code program berikut ini untuk menampilkan data :
Private Function DTSource() As DataTable
Dim dt As New DataTable
dt.Columns.Add("Nama Depan")
dt.Columns.Add("Nama Belakang")
dt.Columns.Add("Alamat")
dt.Columns.Add("Jurusan")
dt.Rows.Add("Abdul", "Joni", "Jakarta", "Multimedia")
dt.Rows.Add("Budi", "Sirojud", "Bekasi", "Jaringan")
dt.Rows.Add("Cinta", "Dewina", "Bogor", "Programmer")
dt.Rows.Add("Bagus", "Sadewo", "Depok", "Teknik Elektro")
dt.Rows.Add("Feri", "Irawan", "Tangerang", "Sipil")
dt.Rows.Add("Vina", "Anjarsari", "Jakarta", "Software Enginer")
Return dt
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
DataGridView1.DataSource = Nothing
DataGridView1.DataSource = DTSource()
End Sub
Tambahkan code program berikut ini untuk mempercantik tampilan Datagridview :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
With DataGridView1
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
For Each dRow As DataGridViewRow In .Rows
If dRow.Index Mod 2 = 0 Then
dRow.DefaultCellStyle.BackColor = Color.Azure
Else
dRow.DefaultCellStyle.BackColor = Color.Lavender
End If
Next
End With
End Sub
Ketika dijalankan hasilnya akan seperti berikut ini :
Gimana mudahkan.. Silakan dicoba dulu ya? Nanti pada Artikel berikutnya saya akan memberikan cara bagaimana caranya menampilkan data dari Datagridview ke TextBox... OK.. Sampai jumpa...


EmoticonEmoticon