Menampilkan Data Mysql ke GridView pada Gambas 3

Berikut ini adalah catatan saya yang pertama mengenai Gambas. Disini kita akan menampilkan data Mysql ke GridView pada Gambas 3 di Ubuntu kesayangan kita. Langsung saja, berikut langkah-langkahnya.

1. Siapkan sebuah tabel pada mysql dengan nama tbl_satuan. buat dua buah field yakni : id_satuan dengan type varchar(3) di set sebagai primary key dan field satuan dengan type varchar(20)


2. Isi table tersebut dengan beberapa jenis satuan

3. Jalankan Gambas 3



4. Buat sebuah project baru dengan type graphicalaplication dan database access pada option dalam posisi enable.


5. Tentukan Project Parent Directory. Disini kita akan menggunakan home sebagai directory dimana project yang akan kita buat tersimpan.


6. Tentukan nama project yang akan kita buat. Project ini akan kita buat dengan nama GridViewMysql


7. Akan muncul pesan sukses apabila kita telah berhasil membuat project dengan benar.


8. Buat sebuah module pada project kita dengan cara klik kanan pada Source, kemudian pilih New, lalu klik Module


9. Tentukan nama module-nya adalah koneksi


10. Masukkan kode berikut

' Gambas module file

Public con As New Connection

'melakukan koneksi ke database mysql
Public Procedure Connect()
con.Host = "localhost"
con.type = "mysql" 
con.login = "root" 
con.Password = "123123" 
con.name = "mywaroeng" 
con.Open 
End

'menutup koneksi dari database mysql
Public Procedure Disconnect()
con.Close()
End

11. Buka Form FMain


12. Tambahkan sebuah GridView dan sebuah tombol


13. Pada form FMain klik tombol Code untuk menampilkan kode dari FMain.

14. Masukkan kode berikut diantara "Public Sub Form_Open()" dan "End" menjadi

Public Sub Form_Open()
  Dim iCount As Integer
  Dim hTable As Table
  Dim sql As String
  Dim rsSatuan As Result
  Dim intRow As Integer = 0
  Dim strType As String = ""

    
  'define the gridview layout

  GridView1.header = GridView.Horizontal
  GridView1.grid = True
  GridView1.Rows.count = 2
  GridView1.Columns.count = 2
  GridView1.Columns[0].text = "id_satuan"
  GridView1.Columns[1].text = "satuan"
  GridView1.Columns[0].width = 100
  GridView1.Columns[1].width = 100

'buka koneksi ke database
koneksi.Connect()
'menjalankan query
 rsSatuan = koneksi.con.Exec("SELECT * FROM tbl_satuan")
 
'cek hasil
If rsSatuan.Available Then
rsSatuan.MoveNext
GridView1.Rows.Count = rsSatuan.Count

'menyusuh hasil
For Each rsSatuan
GridView1[intRow, 0].Text = rsSatuan!id_satuan
GridView1[intRow, 1].Text = rsSatuan!satuan

'Inc intRow kode yang sangat penting untuk me-generate data
Inc intRow

Next
koneksi.con.Quote(rsSatuan.Count & " Charge records returned")
 
Endif

'tutup koneksi ke database
koneksi.Disconnect()
End

15. Pada form FMain klik dua kali tepat pada button1


16. Masukkan code

Me.Close()

17. Jalankan program yg telah kita buat dengan cara klik tombol run pada menu


18. Berikut hasilnya.


Demikian catatan saya kali ini, semoga dapat bermanfaat bagi kita semua.