Edit dan Del Data Mysql

Form Edit Dan Hapus

Postingan yang lalu kita sudah belajar bagaimana membuat progam tambah data dengan visual foxpro database mysql. Sekarang penulis mencoba untuk mebuat cara merubah dan menghapus data.

Ikutilangkah langkah langkahnya

a. Buat form sebagai berikut

 

b Pilih text1

- Method ->keypress isi dengan ini

LPARAMETERS nKeyCode, nShiftAltCtrl

if nkeycode=13

* Pengecekan data

mkdperk =alltrim(thisform.text1.value)

mquery = []

TEXT to mquery textme noshow pret 8

SELECT noperk.kdperk,noperk.nmperk,noperk.golperk

FROM noperk where noperk.kdperk=?mkdperk

ENDTEXT

sukses01=SQLExec(gnConnHandle,mquery,'dtnoperk')

* Pengecekan penulisan benar atau salah

If sukses01 >0

*Penulisan benar

SELECT dtnoperk

GOTO top

x=reccount()

*Pengecekan ketemu atau tidak

if x>0

thisform.text2.value=nmperk

thisform.text3.value=golperk

else

* Proses Tidak ketemu , data tidak Ada

MESSAGEBOX("MAAF DATA TIDAK ADA ",48,"INFORMASI")

ENDIF

Else

ESSAGEBOX("MAAF DATA MASIH ERROR (noperk)",48,"INFORMASI")

Endif

ENDIF

c. Setelah data muncul lakukan perubahan sesuai data yang salah

500. Pilih tombol edit kemudian click dua kali isi kan instruksi ini

*UPDATE MYSQL

mkdperk =alltrim(thisform.text1.value)

MNMPERK =ALLTRIM(thisform.TEXT2.value)

mGOLPERK =ALLTRIM(thisform.TEXT3.value)

update_data= []

TEXT to update_data textme noshow pret 8

UPDATE NOPERK SET KDPERK =?mKDPERK,

MNMPER =?mNMPERK,

MGOLPERK=?mGOLPERK

where KDPERK=?mKDPERK

ENDTEXT

sukses01=SQLExec(gnConnHandle,update_data)

IF sukses01<=0

MESSAGEBOX("Update Masih Salah !!!",48,"informasi")

ELSE

MESSAGEBOX("PROSES update SUKSES !!!",48,"INFORMASI")

ENDIF

e. Menghapus data

• Pilih tombol D el
• Clik dua kali kemudian tulis scrip ini

*Menghapus data

Local dele_data,mkdperk

mKDperk=thisform.text1.Value

dele_data = []

TEXT to dele_data textme noshow pret 8

DELETE from noperk WHERE Kdperk=?mKDperk

ENDTEXT

SUKSES1=0

sukses1=SQLExec(GnConnHandle,dele_data)

IF sukses1>0

MESSAGEBOX("Penghapusan Data Sukses !!!",48,"Komentar")

ELSE

MESSAGEBOX("INSTRUKSI MASIH SALAH !!!",48,"Komentar")

ENDIF

thisform.release

f. Keluar program

• Pilih tombol exit
• Clik dua kali
• ketik ini
  thisform.release

 

INSERT DATA FOXRO DENGAN DATA MYSQL

Form Tambah Data

Kali ini penulis menyajikan cara menambah data dengan visual foxpro database mysql , dengan studikasus penambahan data ke tabel Noperk

struktur tabel noperk

name            datatype            length
1. kdperk         varchar               10
2. Nmperk       varchar               50
3. Golperk       varchar                 2

Alur program Tambah data

1. Input kdperk, nmperk dan golperk
2. simpan
   Dalam menyimpan kita harus mengecek dulu apakah data udah ada atau belum
   kalau ada data ditolak karena tabel yang akan dibuat ini termasuk tabel master di mana dalam tabel ini kita mempunya kunci unik. Atau dengan kata lain tidak bisa ada data doube dengan kunci yang sama.
   Jika Tidak di ketemukan proses penyimpan bisa dilanjutkan.

Untuk lebih jelasnya ikuti Langkah langkah berikut ini

1. Buat form Tambah data (Diharapkan sudah bisa membuat)
   
   
   
   
   

2. Tombol save isi dengan ini
   * Alih memori

mkdperk =ALLTRIM(thisform.text1.value)

mnmperk =ALLTRIM(thisform.text2.Value)

mgolperk =ALLTRIM(thisform.TEXT3.value)

Cara Koneksi Visual Foxpro dengan Mysql

Cara Koneksi Visual Foxpro dengan database mysql

Untuk mencoba koneksi visual foxpro dengan database mysql ikuti langkah langkah dibawah ini :

1. Anda Sudah membuat database (dtmutasikas) misal
2. Jalan program visual foxpro . Penulis mempergunakan visual foxpro 9
3. Menginstal mysql conektor odbc . Penulis mempergunakan {MYSQL ODBC 5.1 Driver}
4. Buat program dengan nama koneksi.prg
5. Ketik instruksi ini
   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 Classlib to

Set Multilocks On

SET EXACT ON

Set Console Off

SET EXACT ON

SET CONFIRM on

*pesan memori

PUBLIC lcStringConn,gnConnHandle

lcStringConn=" "

gnConnHandle=0

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

*lcServer ="192.168.0.100"

lcServer ="127.0.0.1"

lcDatabase="dtmutasikas"

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

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

* kemudian jalankan program menu .....

Endif

5. simpan program
6. Jalankan dengan mengetik
   do koneksi.prg pada command windows

Jika keterangan yang muncul Koneksi berhasil berarti koneksi ke mysql sudah berhasil.