Ada banyak cara untuk menampilkan data yang ada di database kita, misal menggunakan datagrid, flexgrid view, tapi sekarang saya akan menuliskan contoh menggunakan MSHFlexgrid. Kenapa pakai MSHflexgrid?? Mmmm… ini karena biar ga bounding, atau terhubung lansung ke database, jadi cuma bisa liat2 aja.. Berikut contoh caranya..

  • Buat sebuah recordset sebuah database.
  • Setelah itu buat MSHflexgrid dengan header sesuai dengan isi kolom recordset tersebut. Contoh

Sub Header_Flex()
MSHFlex.Clear
MSHFlex.Rows = 2
MSHFlex.Cols = 9
MSHFlex.ColWidth(0) = 700
MSHFlex.ColWidth(1) = 1400
MSHFlex.ColWidth(2) = 5000
MSHFlex.ColWidth(3) = 1200
MSHFlex.ColWidth(4) = 1200
MSHFlex.ColWidth(5) = 1200
MSHFlex.ColWidth(6) = 1200
MSHFlex.ColWidth(7) = 1200
MSHFlex.ColWidth(8) = 1200
MSHFlex.TextMatrix(0, 0) = “No”
MSHFlex.TextMatrix(0, 1) = “Kode Barang”
MSHFlex.TextMatrix(0, 2) = “Nama Barang”
MSHFlex.TextMatrix(0, 3) = “Satuan”
MSHFlex.TextMatrix(0, 4) = “Harga Jual”
MSHFlex.TextMatrix(0, 5) = “% Diskon”
MSHFlex.TextMatrix(0, 6) = “Rp Diskon”
MSHFlex.TextMatrix(0, 7) = “Harga Akir”
MSHFlex.TextMatrix(0, 8) = “Keterangan”

End Sub

  • Setelah itu, panggil header flexgrid dan tampilalkan data kedalam MSHflexgrid. contoh

Header_Flex

While Not rsBarang.EOF
MSHFlex.TextMatrix(MSHFlex.Rows – 1, 1) = rsBarang.Fields(0)
MSHFlex.TextMatrix(MSHFlex.Rows – 1, 2) = rsBarang.Fields(1)
MSHFlex.TextMatrix(MSHFlex.Rows – 1, 3) = rsBarang.Fields(2)
MSHFlex.TextMatrix(MSHFlex.Rows – 1, 4) = Format$(rsBarang.Fields(3).Value, “###,##0”)
MSHFlex.TextMatrix(MSHFlex.Rows – 1, 5) = rsBarang.Fields(4)
MSHFlex.TextMatrix(MSHFlex.Rows – 1, 6) = Format$(rsBarang.Fields(5).Value, “###,##0”)
MSHFlex.TextMatrix(MSHFlex.Rows – 1, 7) = Format$(rsBarang.Fields(6).Value, “###,##0”)
MSHFlex.TextMatrix(MSHFlex.Rows – 1, 8) = rsBarang.Fields(7)
rsBarang.MoveNext
If Not rsBarang.EOF Then MSHFlex.AddItem “”
Wend