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=3306;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.
- Semoga Bermamfaat.
Tag :
foxpro
