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 “\warehouse\datawarehouse\”+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

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s