Menampilkan Data SQL Ke Dalam MshFlexgrid Visual Basic ~ Aneka Tutorial Pemrograman

Tehnik untuk menampilkan Database yang ada di MySQL ke dalam Msflexgrid adalah sebagai berikut :

1. Seperti biasa jika anda ingin menampilkan Database MySQL ke dalam Visual Basic 6,terlebih dahulu anda koneksikan data nya dengan menggunakan MySQL Connector,atau yang biasa di sebut ODBC yang umum nya biasa di gunakan untuk mengkoneksikan Data dari Database MySQL ke Visual Basic.

2. Setelah Database dari MySQL tersebut terkoneksi dengan baik dengan menggunakan ODBC, maka langkah selanjutnya adalah membuka Form yang ingin kita buat Component "Mshflexgrid".

3. Setelah kita buka Form nya,pada "Tab Object " di sebelah kiri Project,klick kanan pada mouse,lalu pilih "Component",maka akan tampil jendela seperti pada gambar di bawah ini,dan ikuti petunjuk pada gambar tersebut.

5. Kemudian setelah setingan nya anda buat,maka silahkan anda ambil Component Mshflexgrid tersebut,nampak seperti pada gambar di bawah ini.

6. Setelah itu silahkan anda masukan Source Code di bawah ini ke dalam Form nya dengan Klick 2x kali pada form nya.

letak kan kode di bawah ini pada Form "General" - "Declaration"

'koneksi Data MySQL ke Visual Basic

Private Rs As New ADODB.Recordset
Private Con As New ADODB.Connection
Private Sql As String

Private Sub Form_Load()
'Membuka Koneksi
Con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=****;uid=root;pwd=****;"

Set Rs = New ADODB.Recordset
    Sql = "select* from transaksi"
    Rs.Open Sql, Con, adOpenStatic
Set MSHFlexGrid1.Recordset = Rs
    Rs.Close

'Mengatur lebar Kolom Mshflexgrid
    MSHFlexGrid1.ColWidth(0) = 0
    MSHFlexGrid1.ColWidth(1) = 1500
    MSHFlexGrid1.ColWidth(2) = 3500
    MSHFlexGrid1.ColWidth(3) = 2280
    MSHFlexGrid1.ColWidth(4) = 800
    MSHFlexGrid1.ColWidth(5) = 2000
    MSHFlexGrid1.ColWidth(6) = 1000
    MSHFlexGrid1.ColWidth(8) = 1000
    MSHFlexGrid1.ColWidth(9) = 2250
    MSHFlexGrid1.ColWidth(10) = 1000
End Sub

Pada Teks yang saya beri warna Hijau Muda adalah Lebar kolom yang saya gunakan,silahkan anda ganti dengan lebar kolom yang sesuai dengan keinginan anda,jika saat anda tekan F5 atau "Run" tidak ada masalah,maka hasil nya akan nampak seperti pada contoh gambar di bawah ini..