Menampilkan data MySQL ke DataGrid VB 6.0

Mengambil data dari MySQL

Untuk menampilkan data dari MySQL ke dalam komponen DATAGRID dalam Visual Basic 6.0 yang perlu kita siapkan dalam pemrograman ini adalah :

1. Untuk mengkoneksikan Program Visual Basic 6.0 kita dengan Database MySQL, kita perlu mempersiapkan terlebih dahulu Connector MySQL ke VB 6.0 yaitu MySQL ODBC Connector 3.51. Apabila Rekan-rekan programmer belum punya, dapat menDOWNLOAD di SINI.
2. Silahkan Download sesuai dengan kebutuhan type Windows Anda.
3. Setelah Anda download selanjutnya Anda install di PC/Laptop Anda.

Setelah Anda instal selanjutnya buatlah database ke dalam MySQL melalui PhpMyadmin. Buatlah database dengan nama DB_LATIHAN, dan sebuah tabel dengan nama TB_LATIHAN dengan struktur tabel sebagai berikut :

Untuk membuat Struktur Tabel Tersebut di atas, ikuti langkah-langkah berikut ini :

Masuk ke PHPMyadmin

Buka browser Mozilla Firefox atau Browser Chrome Anda, kemudian ketik pada kotak URL dengan mengetikkan "localhost/phpmyadmin" seperti gambar berikut :

Membuat Database

Klik Database, dan kemudian buat database pada kotak isian Create Database seperti gambar berikut :

Klik DB_LATIHAN yang tertera pada list daftar DATABASE di atas.

Membuat Tabel

Setelah selesai membuat DATABASE dan TABEL ke dalam database MySQL, selanjutnya Kita buat PROJEK PROGRAM dengan Visual Basic 6.0. 

Membuat System DSN melalui ODBC Data Source

Silahkan Anda buka jendela Control Panel, kemudian Anda KLIK System and Security, Administrative Tools, kemudian KLIK 2x (dua kali) Data Source (ODBC).

Klik tombol ADD... untuk membuat DSN (Data Source Name) baru ke dalam System DSN. 

Silahkan Anda pilih Driver MySQL ODBC 3.51 Driver. Kemudian Klik FINISH

Kemudian isikan NAMA DATA SOURCE, SERVER, USER, dan DATABASE ke dalam Add Data Source Name, seperti gambar berikut:

Data source name inilah yang nanti akan digunakan untuk menghubungkan program VB dengan database MySQL. 

Membuat Projek Baru

Untuk membuat Program menampilkan data dari MySQL ke dalam DataGrid Visual Basic 6.0,  Projek yang harus digunakan Adalah "VB Enterprise Edition Control". Lalu kemudian Anda buat desain Form seperti gambar berikut ini :

Berikut ini Tabel pengaturan dari desain form di atas:

Objek	Properties	Nilai
Form	Name Caption Font	Form1 Tampil Data Tahoma, Size 9
DataGird	Name	DataGrid1
Command1	Name Caption	Command1 KELUAR

Sebelum membuat kode program, silahkan anda tambahkan REFERENCE berupa "Microsoft Activex Data Objek 2.0 Library" melalui menu PROJECT -> REFERENCE, lalu Anda cari "Microsoft Activex Data Objek 2.0 Library" di dalam daftar Reference tersebut.

Selanjutnya Anda buat kode program program di atas, seperti berikut:

Dim Koneksi As New ADODB.Connection
Dim TbProduk As New ADODB.Recordset

Private Sub BukaKoneksi()

    Set Koneksi = Nothing
    Set Koneksi = New ADODB.Connection
    Koneksi.Open "DSN=DB_LATIHAN"

End Sub

Private Sub Command1_Click()
 
    End
 
End Sub

Private Sub Form_Load()

    Call BukaKoneksi
 
    Set TbProduk = Nothing
    Set TbProduk = New ADODB.Recordset
    TbProduk.CursorLocation = adUseClient
    TbProduk.Open "SELECT id,kode,nabar,stok FROM tb_latihan ORDER BY id ASC", Koneksi, adOpenDynamic, adLockBatchOptimistic
 
    Set DataGrid1.DataSource = TbProduk.DataSource

End Sub

Penjelasan Kode Program di atas:

Private Sub BukaKoneksi()

    Set Koneksi = Nothing

    Set Koneksi = New ADODB.Connection

    Koneksi.Open "DSN=DB_LATIHAN"

End Sub

Perintah di atas, merupakan Prosedur yang berupa Function "BukaKoneksi" yang berfungsi untuk menghubungkan Program VB dengan Database MySQL dengan bantuan DRIVER System DSN yang sebelumnya kita buat dengan nama "DB_LATIHAN". Pada baris perintah Set Koneksi = Nothing ini dibertujuan untuk mengabaikan semua koneksi sebelmnya yang pernah terjadi. Pada perintah Set Koneksi = New ADODB.Connection maksudnya adalah melakukan pengaturan awal kembali, karena pada baris sebelumnya variabel KONEKSI telah diputus. Sehingga perlu dilakukan setting ulang untuk variabel KONEKSI tersebut.

Private Sub Form_Load()

    Call BukaKoneksi
    
    Set TbProduk = Nothing
    Set TbProduk = New ADODB.Recordset
    TbProduk.CursorLocation = adUseClient
    TbProduk.Open "SELECT id_produk,nama_produk,satuan,harga,stok FROM tb_latihan ORDER BY id ASC", Koneksi, adOpenDynamic, adLockBatchOptimistic
    
    Set DataGrid1.DataSource = TbProduk.DataSource

End Sub


Perintah di atas adalah metod yang dijalankan pada saat Form mengalami Loading sebelum muncul ke layar komputer. Metode yang pertama adalah Call BukaKoneksi, yang merupakan metode memanggil Prosedur Fungsi BukaKoneksi yang sebelumnya sudah dideklarasikan. Dengan memanggil prosedur fungsi BukaKoneksi, maka secara otomatis program akan melakukan koneksi ke dalam database MySQL melalui ODBC Data Source dengan nama DB_LATIHAN.

Demikian penjelasan program di atas, dan selamat MENCOBA, SEMOGA BERMANFAAT!!!!!

Pada postingan selanjutnya akan kita bahas mengenai proses SIMPAN, EDIT, dan HAPUS data.