VB.NET :: Tutorial Vb.Net : Menampilkan data dari Database MySql ke DataGridView

Start Project :

Buat sebuah database MySQL dengan nama table lengkap dengan columnya, lihat contoh sebagai berikut :

Open Visual Studio 2008 / 2010 Ultimate, add Form baru dan beri nama FrmBiodata.vb , tambahkan Label, Textbox, datetimepicker, ComboBox, datagridview, Buttons dan sesuaikan dengan database / atau data yang ingin nantinya ditampilkan,

Jika sudah hampir mirip dengan punya saya, tinggal buat module koneksi dengan namaMdlKoneksi.vb, lihat caranya Tutorial Vb.Net : Koneksi Database MySQL , Jika selesai membuat koneksi ke MySQL langkah selanjutnya kembali ke Form FrmBiodata.vb dan silahkan masukkan kode berikut :

?

1 2 3 4 5 6 7 8 9

Sub isigrid()     bukaDB()     DA = New Odbc.OdbcDataAdapter("SELECT * FROM biodata", konek)     DS = New DataSet     DS.Clear()     DA.Fill(DS, "biodata")     DataGridView1.DataSource = (DS.Tables("biodata"))     DataGridView1.Enabled = True End Sub

Tinggal panggil Sub tersebut dari event Load FrmBiodata.vb, 

?

1 2 3

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

Program Sederhana Menampilkan data dari Database MySql ke DataGridViewtelahselesai, tekan F5 untuk mencoba aplikasi !

Jangan ragu - ragu untuk bertanya kepada kami, silahkan berkomentar pada kotak komentar, terima kasih ;)

VB.NET :: Tutorial Visual Basic .Net : Menampilkan Data Ke DataGridView

Mengatur Tampilan DataGridView.

Langkah pertama yang akan kita lakukan untuk menampilkan data dari database ke datagridview adalah membuat sebuah subroutine untuk mengatur tampilan DataGridView agar lebih enak dilihat. Perintahnya seperti berikut ini :

Sub aturDGV()

Try

dgvDaftarSiswa.Columns(0).Width = 70

dgvDaftarSiswa.Columns(1).Width = 130

dgvDaftarSiswa.Columns(2).Width = 100

dgvDaftarSiswa.Columns(3).Width = 150

dgvDaftarSiswa.Columns(0).HeaderText = "NIP"

dgvDaftarSiswa.Columns(1).HeaderText = "Nama"

dgvDaftarSiswa.Columns(2).HeaderText = "No Telefon"

dgvDaftarSiswa.Columns(3).HeaderText = "Alamat"

Catch ex As Exception

End Try

End Sub

Jadi pada perintah diatas kita mengatur ukuran lebar dari masing-masing kolom di datagridview dan juga mengatur Header Text dari masing masing kolom tersebut sesuai dengan nama field yang ada didatabase.

Perintah Menampilkan Data Dari Database Ke DataGridView.

Selanjutnya adalah membuat perintah untuk menampilkan data dari Database kedalam DataGridView, buat sebuah subroutine dengan nama tampilSiswa, lebih lengkap perintahnya seperti berikut ini :

Sub tampilSiswa()

Call koneksi()

da = New MySqlDataAdapter("select NIP, NAMA, NOTELP, ALAMAT from siswa", conn)

ds = New DataSet

da.Fill(ds, "siswa")

dgvDaftarSiswa.DataSource = ds.Tables("siswa")

End Sub

Logika dari perintah diatas adalah kita memilih untuk menampilkan field NIP, NAMA, NOTELP dan ALAMAT yang ada pada tabel siswa untuk ditampilkan di dgvDaftarSiswa.

Jika subroutine aturDGV dan tampilSiswa sudah berhasil dibuat, selanjutnya panggil subroutine tersebut pada saat form di load, perintahnya seperti berikut ini :

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

Call tampilSiswa()

Call aturDGV()

End Sub

Oke sekarang coba jalankan lagi aplikasinya, jika berhasil maka daftar siswa yang ada dalam database akan langsung ditampilkan pada saat aplikasi pertama kali dijalankan seperti gambar berikut :

Nah data siswa sudah berhasil ditampilkan kedalam dgvDaftarSiswa, jika masih bingung silahkan lihat perintah lengkapnya dari sistem aplikasi yang sedang kita buat berikut ini :

Imports MySql.Data.MySqlClient

Public Class Form1

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

Call tampilSiswa()

Call aturDGV()

End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnSimpan.Click

Call koneksi()

Try

Dim str As String

str = "insert into siswa values ('" & txtNip.Text & "','" & txtNama.Text &"', '" & txtNoTelp.Text & "', '" & rtbAlamat.Text & "')"

cmd = New MySqlCommand(str, conn)

cmd.ExecuteNonQuery()

MessageBox.Show("Insert Data Siswa Berhasil Dilakukan")

Catch ex As Exception

MessageBox.Show("Insert data siswa gagal dilakukan.")

End Try

End Sub

Sub tampilSiswa()

Call koneksi()

da = New MySqlDataAdapter("select NIP, NAMA, NOTELP, ALAMAT from siswa", conn)

ds = New DataSet

da.Fill(ds, "siswa")

dgvDaftarSiswa.DataSource = ds.Tables("siswa")

End Sub

Sub aturDGV()

Try

dgvDaftarSiswa.Columns(0).Width = 70

dgvDaftarSiswa.Columns(1).Width = 130

dgvDaftarSiswa.Columns(2).Width = 100

dgvDaftarSiswa.Columns(3).Width = 150

dgvDaftarSiswa.Columns(0).HeaderText = "NIP"

dgvDaftarSiswa.Columns(1).HeaderText = "Nama"

dgvDaftarSiswa.Columns(2).HeaderText = "No Telefon"

dgvDaftarSiswa.Columns(3).HeaderText = "Alamat"

Catch ex As Exception

End Try

End Sub

End Class

Oke, sampai disini dulu pembahasan mengenai cara menampilkan data dari database ke datagridview, pada kesempatan selanjutnya kita akan membahas mengenai bagaimana cara menampilkan data yang ada pada datagridview kedalam textbox sehingga data yang ditampilkan ke textbox tersebut dapat digunakan untuk melakukan proses update data.