Membuat Table Dengan ListView

Dalam ulasan terdahulu mengenai database Mysql telah disinggung tentang pembuatan tabel dan bagaimana caranya mengisikan data pada tabel. Sekarang kita akan mencoba untuk menampilkan data tersebut dalam sebuah program. Namun, langkah pertama yang harus dilakukan tentunya mempersiapkan tabel terlebih dahulu. Pertanyaannya, bagaimana cara membuat tabel dalam sebuah program. Visual Basic memberikan beberapa alternatif yang
dapat dilakukan untuk membuat sebuah tabel, salah satunya adalah dengan menggunakan ListView yang akan digunakan disini. Alternatif lainnya adalah dengan menggunakan MSFlexGrid, DataGrid dan sebagainya.  Perlu diperhatikan, untuk mendukung pembuatan program kali ini perlu dipersiapkan terlebih dahulu database di MySQL dengan nama ‘data_siswa’ dan tabel ‘nilai‘ yang telah terisi dengan data :

Tabel Nilai - Data Siswa

Secara garis besar, langkah yang dilakukan dalam pembuatan program kali ini terdiri dari dua bagian :

• Tahap Pertama - Mempersiapkan tabel dengan menggunakan ListView.
• Tahap Kedua - Mengambil data dari database untuk selanjutnya ditampilkan dalam tabel yang dibuat.

Kita mulai dengan tahapan pertama yaitu pembuatan tabel dalam program. Buka Visual Basic kemudian pilih saja Standart EXE, terlebih dahulu pilih menu Project > Components kemudian centang Microsoft Windows Commond Controls 6 (SP6) baru kemudian buat ListView pada Form dan iskan property name-nya dengan ‘ListView1’. Tambahkan Commandbutton dan isi property name-nya dengan 'cSelesai' dan caption dengan ‘Selesai’. Masuklah ke View Code lalu isilah dengan kode di bawah ini :

Private Sub Form_Load()

 Call BuatTabel

End Sub

Sub BuatTabel()

 With ListView1

  .FullRowSelect = False

  .GridLines = True

  .View = lvwReport

  .ColumnHeaders.Add 1, , "No.", 500

  .ColumnHeaders.Add 2, , "Nama", 1000

  .ColumnHeaders.Add 3, , "No.Induk", 1000

  .ColumnHeaders.Add 4, , "Kelas", 1000

  .ColumnHeaders.Add 5, , "Fisika", 1000

  .ColumnHeaders.Add 6, , "Kimia", 1000

  .ColumnHeaders.Add 7, , "Biologi", 1000

 End With

End Sub

Private Sub cSelesai_Click()

 Unload Me

End Sub

Sampai tahap ini sebenarnya program sudah dapat diuji. Coba tekan tombol F5 dan lihatlah hasil yang diperoleh. Akan tampil sebuah tabel kosong dengan header sesuai dengan yang diinginkan.

Tahap berikutnya adalah mengambil data dari Database MySQL dan menampilkannya pada tabel yang telah dibuat tadi. Tambahkan sebuah Commandbutton dan isikan propertinya: name dengan ‘cTampil’ dan caption dengan ‘Tampilkan data’ Masuk kembali ke View Code, kemudian isikan kode berikut ini :

Private Sub cTampil_Click()

 Dim Conn As MYSQL_CONNECTION

 Dim Rs As MYSQL_RS

 Dim Lv As ListItem

 Dim aX As Integer

 Set Conn = New MYSQL_CONNECTION

 Conn.OpenConnection "localhost", "root", "root", "", "3306"

 Conn.Execute "USE data_siswa;"

 Set Rs = Conn.Execute("SELECT*FROM nilai;")

 Rs.MoveFirst

 aX = 1

 listview1.ListItems.Clear

  Do While Not Rs.EOF

    Set Lv = listview1.ListItems.Add(, , aX & ".")

    Lv.SubItems(1) = Rs.Fields(0).Value

    Lv.SubItems(2) = Rs.Fields(1).Value

    Lv.SubItems(3) = Rs.Fields(2).Value

    Lv.SubItems(4) = Rs.Fields(3).Value

    Lv.SubItems(5) = Rs.Fields(4).Value

    Lv.SubItems(6) = Rs.Fields(5).Value

    Rs.MoveNext

    aX = aX + 1

  Loop

End Sub

Dan uji kembali program dengan menekan tombol F5 dan akan kita lihat data yang kita buat dalam database akan muncul pada tabel dalam program.