Membuat Koneksi Ke MySQL dari Visual Foxpro 9.0

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 ODBC
-Install 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 Create New Data Source yang terbuka, pilih MySQL ODBC 5.1 Driver
-Klik 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
• Password : Masukan Password MySql anda
• Untuk mencoba koneksi yang sudah dibuat, anada bisa klik pada tombol test
• Jika 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 Microsoft 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, fperintah
fkoneksi="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=3309;OPTION=3;"

THISFORM.Koneksi = CREATEOBJECT("ADODB.CONNECTION")
THISFORM.Koneksi.open( vnilai_koneksi )

IF VARTYPE(THISFORM.Koneksi) # "O"
=MESSAGEBOX("Database MySQL Server Tidak Dapat DiKoneksikan", 0+16, "Informasi")
*QUIT
ELSE
=MESSAGEBOX("Database MySQL Dapat DiKoneksikan", 0+64, "Informasi")
ENDIF

THISFORM.Rs = CREATEOBJECT( "ADODB.RECORDSET" )
THISFORM.Perintah = CREATEOBJECT( "ADODB.Command" )
THISFORM.Perintah.CommandType = 1
THISFORM.Perintah.ActiveConnection = THISFORM.Koneksi
THISFORM.mtmp1 = "QT"+SUBSTR(SYS(2015), 5)

fkoneksi = thisform.koneksi
fnamakursor=thisform.mtmp1
frs=thisform.Rs
fperintah=thisform.perintah
thisform.Release
-Simpan dan Jalankan Form Koneksi yang telah anda buat



-Jika Tidak terdapat kesalahan, akan tampil jendela konfirmasi bahwa Koneksi ke MySQL
Server berhasil dilakukan..



-Selamat Mencoba....