Menampilkan data MySQL di MSFlexGrid VB 6.0

Dalam pemrograman vb ada bermacam-macam cara menampilkan data dari database ke halaman frontend yang dimana untuk menyampaikan informasi kepada user mengenai data yang akan diolah. Salah satunya adalah menampilkan data menggunakan MSFlexGrid, saya akan menjabarkan bagaimana cara menggunakan MSFlexGrid dan cara menambah dan menghapus record list di MSFlexGrid semoga bermanfaat.

Simaklah :

1. Pertama-tama kita tambahkan components Microsoft FlexGrid Control 6.0 Caranya klik menu Project + Components + Pilih Microsoft FlexGrid Control 6.0 dengan mencentangnya + OK.
   
   
   
   
   apabila berhasil maka di kotak ToolBox akan tampil gambar icon MSFlexGrid yang berwarna kuning
   
   .
   
   
2. Apabila ingin menggunakan MSFlexGrid klik icon yang berwarna kuning (MSFlexGrid) letakkan di Form lembar kerja Anda dan diberi nama sesuai kebutuhan anda misal (TabelJadwal)
   
   
3. Berikut  contoh kodenya :
   membuat fungsi initTable
   Fungsi ini berguna untuk memberikan judul pada setiap kolom MSFlexGrid
   

   Sub initTable()
   TabelJadwal.Cols = 4 'banyaknya kolom
   TabelJadwal.Rows = 2 'banyaknya baris
   
   TabelJadwal.ColWidth(0) = 500
   TabelJadwal.ColWidth(1) = TabelJadwal.Width / 2 - 2700
   TabelJadwal.ColWidth(2) = TabelJadwal.Width / 2
   TabelJadwal.ColWidth(3) = TabelJadwal.Width / 2 - 2000
   
   TabelJadwal.TextMatrix(0, 0) = "No"
   TabelJadwal.TextMatrix(0, 1) = "NIM"
   TabelJadwal.TextMatrix(0, 2) = "Nama"
   TabelJadwal.TextMatrix(0, 3) = "Tanggal"
   End Sub
   

   
   Membuat Sub tampilKeTable
   

   Sub tampilKeTable()
       Dim row As Long
       Dim i As Long
       row = 2
       Set rs = cn.Execute("select * from tbl_jadwal")
       
       TabelJadwal.Clear
       initTable
       While Not rs.EOF
           TabelJadwal.TextMatrix(row - 1, 0) = row - 1
           TabelJadwal.TextMatrix(row - 1, 1) = rs.Fields(0)
           TabelJadwal.TextMatrix(row - 1, 2) = rs.Fields(1)
           TabelJadwal.TextMatrix(row - 1, 3) = rs.Fields(2)
           row = row + 1
           TabelJadwal.Rows = row
           rs.MoveNext
       Wend
   End Sub
   

   
   Membuat Sub awal
   

   Sub awal()
   initTable
   tampilKeTable
   End Sub
   

   Kode Form_Load
   Ketika form dijalankan maka langsung menuju ke Sub awal
   

   Private Sub Form_Load()
   On Error GoTo errhandler
   awal
   Exit Sub
   errhandler:
       MsgBox "Terdapat kesalahan pada program!!!", vbCritical
       Me.Hide
   End Sub
   

Posted in: VB