Pertama-tama bingung juga mau nulis apa tentang Visual Foxpro disini, sampai akhirnya nyoba yang simple aja deh koneksi Foxpro ke Database MySQL, semoga berguna buat kita semua.
berikut source codenya :
SQLSETPROP(0,"DispLogin",3)
konek = "DRIVER={MySQL ODBC 3.51 Driver};server=&alamatkompserver;database=&namadatabase;uid=&namauser;pwd=&passdatabase;PORT=3306;OPTION=3;STMT=;"
PUBLIC gnConnHandle
gnConnHandle = SQLSTRINGCONNECT(konek)
IF gnConnHandle <0
MESSAGEBOX("Koneksi ke database gagal ",16,"Informasi")
CLEAR EVENTS
CLOSE ALL
QUIT
ELSE
WAIT WINDOW NOWAIT '"Koneksi ke Server, . . . . Sukses"'
ENDIF
oh iya kalau menggunakan ODBC MySQLnya bukan yang versi 3.51 tinggal ganti aja listing yang DRIVER={MySQL ODBC 3.51 Driver}; sesuai dengan odbc yang anda di pakai.
No comments:
Post a Comment