Langkah-Langklah Membuat Koneksi Ke MySQL dari Program Visual Foxpro

Untuk membuat Koneksi ke Database MySQL dari Visual Foxpro 9.0, dapat menggunakan beberapa cara, salah satunya adalah dengan menggunakan ODBC, disini saya menggunakan mysql-connector-odbc-5.1.6-win32.Langkah2 instalasi MyODBC sebagai berikut :
Tahap I : ' Instalasi'
Download Driver MySQL ODBCInstall Driver yg sudah di download.

Tahap II :'Menambahkan Data Source'
Buka Control Panel, pilih Administrative Tools - DataSource(ODBC)Pada Jendela yang terbuka pilih tab User DSN, klik tombol 'Add'Pada Jendela Crte New Data Source yang terbuka, pilih MySQL ODBC 5.1 DriverKlik Finish
Tahap III:'Konfigurasi'
Pada Jendela Konfigurasi yang otomatis terbuka,Masukanparameter yang dibutuhkan yaitu :

Data Source Name (Masukan nama untuk koneksi yang akan anda buat)Server :( alamat IP server anda / kalau MySQL Server berada pada komputer yg sama anda bisa masukan localhost saja.User : Masukan user name MySql anda : Masukan MySql andaUntuk mencoba koneksi yang sudah dibuat, anada bisa klik pada tombol testJika Settingan anda berhasil maka akan muncul Jendela 'Test Result'
Pada Tahap ini anda telah berhasil melakukan setting MySQL ODBC..Tutup Semua Jendela yang terbuka..

Tahap IV :' Koneksi Dari VFP9.0'
Jalankan Visual Foxpro, dan buatlah Project baru.Priject mempermudah anda didalam mengatur objek2 program seperti Form, Report, dan lain2..
Buat sebuah form untuk koneksi ke MySQL, Design sesuai selera anda

Pada mode design form, buatlah beberapa Properties baru untuk form koneksi anda.Pilih Menu Form, New Property : masukan nama property, pada contoh ini: koneksi, mtmp1, namakursor, perintah dan rs .Klik dua kali pada form anda, pada Event Load Form, Deklarasikan variable Public:PUBLIC fkoneksi, fnamakursor, frs, fperintahfkoneksi="O"

Klik dua kali pada Command Button, Masukan Syntax Berikut :
vdatabase=ALLTRIM(thisform.text1.Value)vuser=ALLTRIM(thisform.text2.Value)vpass=ALLTRIM(thisform.text3.Value)
vnilai_koneksi = "DRIVER={MySQL ODBC 5.1 Driver};Server=localhost;UID="+vuser+";PWD="+vpass+";Database="+vdatabase+";port=3306;OPTION=3;"
THISFORM.Koneksi = CRTEOBJECT("ADODB.CONNECTION")THISFORM.Koneksi.open( vnilai_koneksi )
IF VARTYPE(THISFORM.Koneksi) # "O"=MESSAGEBOX("Database MySQL Server Tidak Dapat DiKoneksikan", 0+16, "Informasi")*QUITELSE=MESSAGEBOX("Database MySQL Dapat DiKoneksikan", 0+64, "Informasi")ENDIF
THISFORM.Rs = CRTEOBJECT( "ADODB.RECORDSET" )THISFORM.Perintah = CRTEOBJECT( "ADODB.Command" )THISFORM.Perintah.CommandType = 1THISFORM.Perintah.ActiveConnection = THISFORM.KoneksiTHISFORM.mtmp1 = "QT"+SUBSTR(SYS(2015), 5)
fkoneksi = thisform.koneksifnamakursor=thisform.mtmp1frs=thisform.Rsfperintah=thisform.perintahthisform.Relse
Simpan dan Jalankan Form Koneksi yang telah anda buat


Jika Tidak terdapat kesalahan, akan tampil jendela konfirmasi bahwa Koneksi ke MySQLServer berhasil dilakukan..


Selamat mencoba.Semoga Bermamfaat.