Sekarang kita akan coba lebih jauh untuk melakukan koneksi dengan database MySQL yang ada di internet server. Untuk menciptakan koneksi, kita membutuhkan Remote Data Object, jadi di dalam References, pilih Microsoft RDO sehingga objectnya dapat digunakan.
Pastikan MyODBC sudah terinstall dan jalan dengan baik di komputer kita, berikutnya kita akan coba menuliskan kode programnya.
Saya menuliskan program di dalam sub Form_Load, program ini akan mencoba mengambil sebuah record yang ada di MySQL database salah satu website saya.
Private Sub Form_Load()
‘ciptakan koneksi
Dim cnMySql As New rdoConnection
Dim rdoQry As New rdoQuery
Dim rdoRS As rdoResultset
‘ setup remote data connection dengan MySQL ODBC driver.
‘ ubah koneksi stringnya dengan username,
‘ password, nama server dan database yang akan kita koneksikan
cnMySql.CursorDriver = rdUseOdbc
cnMySql.Connect = “uid=aku;pwd=apaaja;server=xxx.xxx.xxx.xxx;” & _
“driver={MySQL ODBC 3.51 Driver};database=dataku;dsn=;”
cnMySql.EstablishConnection
‘ set up remote data object query
‘ digunakan untuk memasukkan perintah SQL yang akan dijalankan
With rdoQry
.SQL = “SELECT * FROM comment”
.RowsetSize = 1
Set .ActiveConnection = cnMySql
Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer)
End With
‘ ciptakan looping untuk mengakses recordset
Do Until rdoRS.EOF
With rdoRS
‘untuk mengakses field, kita bisa menggunakan tabda reference
‘contoh: !username
Text1.Text = rdoRS(1)
rdoRS.MoveNext
End With
Loop
‘ tutup record set
‘ tutup koneksi dengan database
rdoRS.Close
cnMySql.Close
End Sub
begini saja, apakah sudah cukup?
Ternyata belum…
Yang harus kita lakukan selanjutnya adalah memasukkan hostname atau IP Address yang diberikan permission untuk mengakses MySQL database kita. Jika tidak, maka permintaan kita untuk mengakses database akan ditolak oleh server (Access Denied). Kita dapat memanfaatkan fasilitas cPanel untuk memasukkan hostname yang akan diberi permission untuk mengakses database lewat menu Remote MySQL.