Penggunaan SQL pada Visual Foxpro

Penggunaan SQL pada Visual Foxpro

  08.51    Prometheus

---

 Untuk mengakses database SQL diperlukan dua buah software tambahan, yaitu :

• MySQL, adalah sebuah perangkat lunak sistem manajemen basis data SQL atau DBMS yang multialur, multipengguna, dengan sekitar 6 juta instalasi di seluruh dunia. MySQLyang digunakan dapat didownload dari https://www.apachefriends.org/download.html atau https://dev.mysql.com/downloads/installer/ 
• ODBC Versi 32 Bit (karena Visual foxpro berversi 32 Bit, gunakan sofware ODBC yang berversi 32 bit,  jika menggunakan ODBC berversi 64 bit, koneksi akan gagal dilakukan). ODBC adalah Open Database Connectivity yaitu sebuah standar terbuka untuk konektivitas antar mesin basis data. ODBC bisa diperoleh dari https://dev.mysql.com/downloads/connector/odbc/ atau https://docs.microsoft.com/en-us/sql/connect/odbc/
  
  
  

Jika kedua software tersebut telah terpasang, mulailah membuat database dan tabel di Server SQL dengan MySQL. Mulailah melalukan start service pada MySQL "Apache" dan "MySQL". Service Apache digunakan untuk membuat database dan tabel dari web browser kita, sedang Service MySQL dipergunakan ODBC. 

Setelah database dan tabel kita buat, kita jalankan ODBC dan kita koneksikan database pada SQL Server kita dengan visual Foxpro.

Berikut contoh program di Visual Foxpro, untuk mengganti isi record tabel bernama "transfile" dari database bernama "bisma" pada suatu server SQL :

xSeqno="199812160312"
xdescr="Nokia 5110"
xqty=1
xamount=3200000
xType="C"
xUnit="pcs"

kon=DATABASE="+"bisma"+";SERVER=localhost;port=3306;UID="+"root"+";provider=MSDASQLR;DRIVER={MySQL ODBC 5.1 Driver};"

koneksi=SQLSTRINGCONNECT(kon) 

IF koneksi>=0
xCommand="UPDATE transfile SET descr="+"'"+ALLTRIM(xdescr)+"'"+;
",qty="+ALLTRIM(STR(xqty))+;
",unit='"+ALLTRIM(xunit)+"'"+;
",amount="+ALLTRIM(STR(xamount))+;
",type='"+ALLTRIM(xType)+"'"+;
" WHERE seqno='"+ALLTRIM(xseqno)+"'"
=SQLEXEC(koneksi,xCommand)

        =SQLCOMMIT(koneksi)
ELSE 
=MESSAGE("SQL Server not connected")
ENDIF

Berikut contoh program di Visual Foxpro, untuk menambahkan isi record tabel bernama "transfile" dari database bernama "holdingcorp" pada suatu server SQL di  74.125.200.139 dengan port 88:

xSeqno="199812160312"
xdescr="Nokia 6110"

xDate=11/15/2001

xTime="11.31"
xqty=1
xamount=3600000
xType="C"
xUnit="pcs"

SET DATE ANSI  && Penting jika ada field bertype DATE !!!

kon=DATABASE="+"holdingcorp"+";SERVER=74.125.200.139;port=88;UID="+"simon23471"+;

    ";password="+"tachi1277atcorp"+;    

    ";provider=MSDASQLR;DRIVER={MySQL ODBC 5.1 Driver};"

koneksi=SQLSTRINGCONNECT(kon) 

IF koneksi>0

    xCommand="INSERT INTO transfile (seqno,date,time,descr,qty,unit,amount,type) VALUES ("+; 

"'"+ALLTRIM(xseqno)+"'"+","+;

"'"+DTOC(xDate)+"'"+","+;

"'"+ALLTRIM(xTime)+"'"+","+;

"'"+ALLTRIM(xDescr)+"'"+","+;

STR(xQty,10,2)+","+;

"'"+ALLTRIM(xUnit)+"'"+","+;

STR(xAmount,10,2)+","+;

"'"+ALLTRIM(xType)+"'"+")"

    =SQLEXEC(koneksi,xCommand)

    =SQLCOMMIT(koneksi)

ELSE 
=MESSAGE("SQL Server not connected")
ENDIF 

CATATAN : Perhatikan cara penambahan field bertype DATE ! Diperlalukan sama seperti penambahan field bertype VARCHAR, yaitu dimulai dan diakhiri dengan tanda baca " atau '. Jika tabel dari database SQL menggunakan field bertype DATE jangan lupa untuk memberikan perintah "SET DATE ANSI" diawal program seperti contoh diatas.

Bagi para programer, disarankan membiasakan diri dengan pemrograman dengan SQL, karena dengan SQL kita tidak tergantung lagi pada interface pengembangannya, kita bisa gunakan interface apapun seperti Visual Studio, Phython dan  Java, tanpa perlu lagi pusing-pusing memikirkan databasenya.