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)

 
* Pengecekan data

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

* Proses ketemu , data tidak disimpan

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

ELSE

* proses penyimpanan

insert_data= []
TEXT to insert_data textme noshow pret 8
INSERT INTO noperk (noperk,nmperk,golperk)
VALUES (?mnoperk,?mnmperk,?mgolperk)
ENDTEXT
sukses=SQLExec(gnConnHandle,insert_data)
IF SUKSES>0
MESSAGEBOX("Penyimpanan Sukses !!!",48,"informasi")
ENDIF
endif

Else

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

Endif

3. Tombol Exit

    Isi dengan ini 

   Thisform.release