Koneksi database Mysql pada Foxpro

sebelum melakukan koneksi database mysql dengan fpxpro, instal dulu mysql-connector-odbc-3.51.12 sebagai konektor database mysql dengan visual foxpro.

Berikut adalah script Foxpro untuk koneksi ke Mysql :

vdbase = ALLTRIM(thisform.vdata.Value)
vuser = ALLTRIM(thisform.username.Value)
vpass = ALLTRIM(thisform.passwd.Value)
msql = "DATABASE="+vdbase+";SERVER=localhost;port=3306;UID="+vuser+";PWD="+vpass+";provider=MSDASQLR;DRIVER={MySQL ODBC 3.51 Driver};"

THISFORM.koneksi = SQLSTRINGCONNECT(msql)

IF THISFORM.koneksi <= 0 
 MESSAGEBOX("Koneksi Ke Server Database MySQL Gagal"+msql ,64,"Informasi !")
 THISFORM.Vdata.SetFocus
 Return
ELSE
 MESSAGEBOX("Koneksi Ke Server Database MySQL Berhasil",64,"Informasi !")
ENDIF 
thisform.Release

Gambar Form seperti di bawah ini.

Posted in: Foxpro