Cara Menampilkan Data Dari Tabel Ke MSFlexGrid Di Visual Basic 6.0

Cara Menampilkan Data Dari Tabel Ke MSFlexGrid Di Visual Basic 6.0 | Gho Blog's - Sebelumnya saya pernah membahas tentang cara memunculkan isi tabel ke Datagrid, kali ini pembahasannya hampir sama, kita akan membahas cara memunculkan isi tabel ke MSFlexGrid.

Jika kita menggunakan MSFlexGrid, coding yang digunakan sedikit lebih panjang dari pada menggunakan Datagrid, karena kita harus membentuk kolom dan baris secara manual menggunkan coding. Tidak seperti Datagrid yang kolom dan baris akan terbentuk secara otomatis mengikuti jumlah field dan record yang ada di tabel.

Sebagai contoh, saya punya sebuah database dengan nama "latihan.mdb" (MS Access) dan sebuah tabel dengan nama "barang", kemudian saya entrikan beberapa buah record kedalam tabel tersebut.  Detail dari tabel tersebut dapat dilihat pada gambar berikut ini :

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Tambahkan 1 buah ADODC dan 1 buah MSFlexGrid ke Form, jika komponen ini tidak sobat temukan di Toolsbox, tambahkan komponen tersebut dengan cara menekan tombol CTRL+T dari keyboard. Pilih dan checklist Microsoft ADO Data Control 6.0 (OLEDB) dan Microsof Flexgrid Control 6.0, kemudian klik OK.

Selanjutnya, tambahkan kedua komponen tersebut ke form :

Disini saya tidak lagi membahas cara membuat program simpan, edit, delete lagi, pembahasan tentang itu bisa sobat pelajari pada posting saya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0.

Selanjutnya, masukkan coding berikut ini pada bagian General Declaration (paling atas) :

Public conn As ADODB.Connection Public rs As ADODB.Recordset

Setelah itu kita buat koneksi databasenya, double klik pada form dan masukkan coding berikut ini tepat diantara Private Sub Form_Load() dengan End Sub :

Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Provider = "microsoft.jet.oledb.4.0" conn.Open App.Path & "\latihan.mdb"

Sekarang kita buat procedure untuk membentuk kolom dan pemanggilan data dari tabel ke MSFlexGrid. Caranya masukkan coding berikut ini di bagian yang kosong :

Private Sub tampilgrid() Dim baris As Integer Set rs = New ADODB.Recordset rs.Open "select * from barang", conn, adOpenDynamic, adLockOptimistic With MSFlexGrid1 .Cols = 5 .ColWidth(0) = 400 .ColWidth(1) = 1100 .ColWidth(2) = 1700 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColAlignment(0) = flexAlignCenterCenter .TextMatrix(0, 0) = "No" .TextMatrix(0, 1) = "Kode Barang" .TextMatrix(0, 2) = "Nama Barang" .TextMatrix(0, 3) = "Satuan" .TextMatrix(0, 4) = "Harga" For baris = 1 To rs.RecordCount DoEvents .Rows = baris + 1 .TextMatrix(baris, 0) = baris .TextMatrix(baris, 1) = _ rs.Fields(0) .TextMatrix(baris, 2) = _ rs.Fields(1) .TextMatrix(baris, 3) = _ rs.Fields(2) .TextMatrix(baris, 4) = _ rs.Fields(3) rs.MoveNext Next baris End With End Sub

Agar fungsi ini berjalan saat form di running sisipkan coding call tampilgrid pada Form Load, sehingga coding di Form Load menjadi seperti berikut ini :

Private Sub Form_Load() Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Provider = "microsoft.jet.oledb.4.0" conn.Open App.Path & "\latihan.mdb" Call tampilgrid '<-- coding yang disisipkan End Sub

Penjelasan dari coding diatas bisa sobat pelajari dengan mendownload project lengkapnya melalui link berikut ini :

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Sekian dulu posting saya yang berjudul Cara Menampilkan Data Dari Tabel Ke MSFlexGrid Di Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.