Secarik Nafas

Menampilkan Data Pada DatagridView dan Per Record.

Kita sudah membahas bagaimana cara menampilkan data pada DatagridView, juga menampilkan data per record.

Metode menampilkan data per record memiliki kelemahan yaitu tidak bisa melihat banyak data sekaligus. Sungguh tidak enak bila harus menggerak-gerakkan record, sedangkan datanya ada ribuan record.

Tapi bila ditampilkan pada grid pun bukan berarti tidak memiliki kelemahan. Kelemahannya adalah keterbatasan ruang, keterbatasan lebar layar atau jendela atau form. Bayangkan bila kita hendak menampilkan lebih dari 10 field/kolom dalam satu datagrid, apakah kolom-kolom tersebut bisa ditampilkan sekaligus?

Lihatlah, lebar form tidak mencurkupi untuk menampilkan data pada datagrid. Kita harus menggeser scrollbar untuk melihat keseluruhan data.

Apabila data ditampilkan perbaris/record, maka luas form masih mungkin untuk menampilkan ke semua field yang ada pada satu record.

Maka kita padukan saja kedua cara yang pernah dibahas. Jadi dalam satu form, terdapat grid yang menampilkan data berbentuk table (baris & kolom), serta control-control seperti textbox, combo box, dll untuk menampilkan data per record.

Tutorial kali ini merupakan lanjutan tutorial kemarin. Masih dengan database yang sama dan table tbMataUang.

Design sebuah form sehingga berbentuk seperti ini apabila dirunning.

Terlihat terdapat tombol-tombol yang berfungsi sebagai penggerak record, serta datagridview.

Pada DataGridView, property SelectionMode diubah terlebih dahulu menjadi FullRowSelect. Selection Mode cara pemilihan data pada Datagridview. Ada beberapa pilihan antara lain CellSelect, FullRowSelect, FullColumnSelect, RowHeaderSelect, dan ColumnHeaderSelect. Kita memilih FullRowSelect agar ketika satu cell pada DataGridView diklik, maka satu baris cell tersebut disorot (lihat pada gambar, kode IDR beserta namanya disorot satu baris penuh).

Dan ini kodenya:

Imports System.Data.OleDb
Public Class FormMataUang
    Private oleDa As New OleDbDataAdapter("Select * from tbMataUang", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath.ToString & "\dbTutorial.mdb")
    Private dt As New DataTable
    Dim bm As BindingManagerBase
    Private Sub FormMataUang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        oleDa.Fill(dt)
        Me.DataGridView1.DataSource = dt
        bm = BindingContext(dt)
        txtKode.DataBindings.Add("text", dt, "Kode")
        txtNama.DataBindings.Add("text", dt, "Nama")
    End Sub
    Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
        bm.Position = 0
    End Sub
    Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrev.Click
        bm.Position -= 1
    End Sub
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        bm.Position += 1
    End Sub
    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
        bm.Position = bm.Count
    End Sub
End Class

Tinggal dipadukan saja bukan? Silakan dicoba. Semoga bermanfaat.