Konversi Tabel MySql to DBF ( tabel visual foxpro )

Untuk mengkonversikan tabel Mysql ke tabel DBF ( tabel visual foxpro ) dapat dilakukan dengan source code di bawah ini :

*nama file : konversi.prg SET SAFETY OFF FOR i=1 TO 21 IF i=1 namatabel=”materi” &&1 ELSE IF i=2 namatabel=”dosen” &&2 ELSE IF i=3 namatabel=”kampus” &&3 ELSE IF i=4 namatabel=”kelas” &&4 ELSE IF i=5 namatabel=”jurusan” &&5 ELSE IF i=6 namatabel=”periode” &&6 ELSE IF i=7 namatabel=”daerah” &&7 ELSE IF i=8 namatabel=”sekolah” &&8 ELSE IF i=9 namatabel=”status” &&9 ELSE IF i=10 namatabel=”bulan” &&10 ELSE IF i=11 namatabel=”semester” &&11 ELSE IF i=12 namatabel=”tahun” &&12 ELSE IF i=13 namatabel=”lunas” &&13 ELSE IF i=14 namatabel=”deposito” &&14 ELSE IF i=15 namatabel=”kategori” &&15 ELSE IF i=16 namatabel=”bahasa” &&16 ELSE IF i=17 namatabel=”nilai” &&17 ELSE IF i=18 namatabel=”jumlah” &&18 ELSE IF i=19 namatabel=”spp” &&19 ELSE IF i=20 namatabel=”absensi” &&20 ELSE IF i=21 namatabel=”pinjam” &&21 ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF WAIT WINDOW “Proses Konversi Tabel “+namatabel+” ( “+STR(i,2)+” ) ” nowait sqlkedbf(namatabel) NEXT i MESSAGEBOX(“Proses Selesai…!!!”,0,”Konfirmasi”) *nama file : dbkoneksi.prg public KoneksiMysql KoneksiMysql=SQLCONNECT(“dsnakademik”,”akademik”,”warehouseakad2007″) IF KoneksiMysql<0 MESSAGEBOX(“Koneksi masih gagal…!!!”) RETURN ENDIF *nama file : sqltodbf.prg PARAMETERS namatabel store “warehousedatawarehouse”+namatabel to namakonversi DO dbkoneksi MySQLSelect=”SELECT * FROM ” StatusExec=SQLEXEC(KoneksiMysql, MySqlselect+namatabel, “vsqldbf”) IF StatusExec<0 MESSAGEBOX(“Eksekusi Script Select ada kesalahan…!”,0,”Konfirmasi”) RETURN ENDIF SELECT vsqldbf COPY TO &namakonversi