VB6 MySQL: Menampilkan Data di Datagrid

Selanjutnya kita akan mencoba menampilkan isi table kategori pada database latihan ke datagrid di aplikasi VB.
Query yang digunakan:

Isi table:

Beri nama Form1 menjadi frmKategori

Dan beri nama project dengan wpLatihan

Save form dan project dalam satu folder yang sama

Jika muncul pesan untuk menambahkan project ke dalam SourceSafe, pilih No

Tambahkan sebuah control grid ke form

Beri nama grdData

Kita akan mengkombinasikan koneksi MySQL dengan koneksi ADODB. Karena itu tambahkan reference Microsoft ActiveX Data Object 2.6 Library dengan cara sebagai berikut:

Deklarasikan variable recordset MySQL, recordset ADODB, dan sebuah variable string untuk menyimpan query SQL pada skala private.

Dim rsMySQL As MYSQL_RS
Dim rsData As ADODB.Recordset
Dim sSQL As String

Deklarasikan sebuah variable long event Form_Load.

Dim l As Long

Masih pada event Form_Load, isi variable sSQL dengan query select.
sSQL = "select kodekategori, namakategori from kategori"

Masukan query select tersebut ke recordset mySQL
Set rsMySQL = oConn.Execute(sSQL)

Buat ADODB recordset untuk memuat data dari MySQL
Set rsData = New ADODB.Recordset
rsData.Fields.Append rsMySQL.Fields(0).Name, adVarChar, 10, adFldIsNullable
rsData.Fields.Append rsMySQL.Fields(1).Name, adVarChar, 50, adFldIsNullable
rsData.Open

Isi ADODB recordset dengan baris data dari MySQL
For l = 0 To rsMySQL.RecordCount - 1
    rsData.AddNew
    rsData.Fields(0).Value = rsMySQL.Fields(0).Value
    rsData.Fields(1).Value = rsMySQL.Fields(1).Value
    rsData.Update
    rsMySQL.MoveNext

Next

Tampilkan data dari ADODB recordset ke datagrid
Set grdData.DataSource = rsData

Atur tampilan datagrid (caption & width)
With grdData
    .Columns(0).Caption = "Kode Kategori"
    .Columns(1).Caption = "Nama Kategori"
    .Columns(0).Width = 2000
    .Columns(1).Width = 3000
End With

Tutup dan hapus (bersihkan) MySQL Recordset
rsMySQL.CloseRecordset
Set rsMySQL = Nothing

MySQL Recordset harus selalu ditutup dan dibersihkan agar aplikasi tidak berat, dan kapasitas muatan recordset tidak mencapai maksimum yang dapat menyebabkan aplikasi error.

Berikut ini adalah code selengkapnya:

Run aplikasi dan hasilnya akan seperti berikut:

Click here if you like this article.


Artikel Sebelumnya:

• Koneksi Visual Basic 6 (VB6) MySQL

Artikel Selanjutnya:

• Error Handling
• Merapikan Penulisan Code untuk Koneksi dan Pengisian Recordset dengan Menggunakan Procedure, Function dan Modul
• Pengolahan Data --> Input Data Baru
• Pengolahan Data --> Edit Data   
• Pengolahan Data --> Delete/Hapus Data 
• Filter Data dengan Keyword