MENGKONEKSIKAN FOXPRO DENGAN MYSQL

        Setekah kita mengetahui cara membuat menu , kit kita mencoba program membuat program utama yang didalamnya kita akan membahan , cara memesan memori public,  menentukan drive kerja dan koneksi foxpro ke mysqk.

Program utma yang kita akan buat diberinama progut.prg di  folder progs

c:\alamat\progs\progut.prg

Untuk jelasnya ikuti lankah langkah berikut ini :

-  Jalankan Visual foxpro dan tentukan drive kerja

-  Jalankan projec Projalamat

-   Arahkan kursor di menu Code

-   Click New

-   Tulis kode ini kemudian simpan dengan nama progut.prg  (Ctr + W untuk simpan)

** Setting dan pemesan memori public
Clea

Clea All

Set Talk Off

Set Safety Off

Set Confirm Off

Set Date To Italian

Close Database All

Set Dele On

Set Century On

SET EXACT ON

Set Console Off

SET EXACT ON

SET CONFIRM on

** Memori Public **

PUBLIC lcStringConn, gnConnHandle,muser,MREC_ID,mada,mstatus

store " " to lcStringConn,muser,mstatus

store 0 to gnConnHandle,mrec_id,mada

** Menentukan Drive kerja dan pathnya

SET DEFAULT TO Sys(5)+"\alamat"

Set Path To Datas,Forms,gambars,Menus,PROGS,REPORTS

ms_local="'"+SYS(5)+SYS(2003)+"\"+"datas\"+"'"

** Koneksi ke mysql

***************************************************************

* lcServer ="192.168.100.100"

lcServer ="127.0.0.1"

lcDatabase ="dtalamat"

lcUser = "root"

lcPassword = ""

Lcport ="3306"

lcopt ="16"

lcStringConn="Driver={MYSQL ODBC 5.1 Driver};Port="+LCport+;

";Server="+lcServer+;

";Database="+lcDatabase+;

";Uid="+lcUser+;

";Pwd="+lcPassword+;

";option="+lcopt

gnConnHandle=Sqlstringconnect(lcStringConn,.T.)

status_login_local="Berhasil"

If gnConnHandle < 0

MESSAGEBOX("Koneksi Tidak Berhasil ?",48,"Informasi")

quit

else

Do Form cover.scx

READ events

Endif

Setelah disimpan jangan dijalankn dulu tetapi progut dijadikan program utama dulu caranya kita lihat gambar

Lankahnya :

• Letakan cursor di progut
• click kanan
• click set main
• Jalan program dengan mengclick RUN
  

• Keterangan
  Jika di Jalankan ada komentar Koneksi tidak berhasil berarti belum sintaknya masih salah
  Sebaliknya kalau yang muncul cover.scx not found berarti koneksi udah tersambung tetapi cover.scx tidak diketemukan.
  Untuk Cover.scxnya kita bahas diposting berikutnya