[Gambas] Koneksi dengan DBMS MYSQL

Untuk Pertanyaan Sulitkah membuat koneksi Gambas dengan DBMS MYSQL ???
Jawabanya adalah Sangat sangat mudah, Oke kita coba buat dengan cara berikut :

1. Buat Project Baru pada Gambas dengan Option Database Access

2. Buat Database atau dengan Database yang sudah ada :

 
3. Design form dengan 2 Button untuk membedakan mana yang  Terkoneksi atau tidak

 

4. Klik 2 kali Button dengan Text/ Title Connected dan ketik Source Code berikut dengan Database yang benar :

 Dim con As New Connection
 con.Host = "localhost"
 con.type = "mysql"
 con.Login = "root"
 con.Password = "abi"
 con.name = "gambas" 

Try
con.Open
If Not Error Then
Message("Connected")
Else
Message("Not Connected")
Endif

5. Klik 2 kali Button dengan Text/Title UnConnected dan Ketik Source Code Berikut dengan Database yang salah :

Dim con As New Connection
 con.Host = "localhost"
 con.type = "mysql"
 con.Login = "root"
 con.Password = "abi"
 con.name = "gambasxxx"

Try
con.Open
If Not Error Then
Message("Connected")
Else
Message("Not Connected")
Endif

6. Berikut Source Code Lengkap :

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

Dim con As New Connection
 con.Host = "localhost"
 con.type = "mysql"
 con.Login = "root"
 con.Password = "abi"
 con.name = "gambas"

Try
con.Open
If Not Error Then
Message("Connected")
Else
Message("Not Connected")
Endif
End


Public Sub Button2_Click()

  Dim con As New Connection
 con.Host = "localhost"
 con.type = "mysql"
 con.Login = "root"
 con.Password = "abi"
 con.name = "gambasxxx"

Try
con.Open
If Not Error Then
Message("Connected")
Else
Message("Not Connected")
Endif
End

Public Sub Button3_Click()

  Quit

End

atau Download disini

Hasil :

Semoga Membantu

Share this

Share on FacebookPlus on Google+