Rabu, 17 Agustus 2011

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
    

1 komentar:

Anonim mengatakan...

menarik sekali neh...
lagi ada project dari dosen

Poskan Komentar

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Justin Bieber, Gold Price in India