Selasa, 22 Maret 2011

Menyimpan Data di Mysql Menggunakan Foxpro 9

Ini adalah kelanjutan dari pembahasan yang sebelumnya
Taruh kode dibawah ini di objek cmdSimpan pada prosedur click
*menyimpan data ke tabel server
* Procedure cmdSimpan.CLICK()
IF MESSAGEBOX('SIMPAN DATA?',36,'COBA SIMPAN DATA')=6
 oke=SQLEXEC(ConnHandle,"INSERT INTO apl_barang (kode_barang,nama_barang,kategori_barang,satuan,stok,harga) VALUES ;
 ('kode','nama barang','kategori','satuan','200','1000')")
 IF oke != 0
  MESSAGEBOX("data berhasil disimpan.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 ELSE
  MESSAGEBOX("data gagal disimpan.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 endif
ENDIF

oke=SQLEXEC(ConnHandle,"INSERT INTO tabel_data_dinamis_jumlah_pegawai_kantor;
(kode,a,b,c,d,e,f) VALUES ;
(?sim1,?sim2,?sim3,?sim4,?sim5,?sim6,?sim7)")

filetarget = ftujuan+'tabel_akademi_negeri'+'_'+TIME_IMPORT+".csv"
TEXT TO tabel_akademi_negeri TEXTMERGE NOSHOW
  SELECT * FROM tabel_akademi_negeri INTO OUTFILE ?filetarget;
ENDTEXT
oke = SQLEXEC(ConnHandle,tabel_akademi_negeri)

3 komentar:

Anonim mengatakan...

Terima kasih banyak atas trik triknya.

Adipustaka mengatakan...

Saya sudah mencoba tapi tidak dapat menyimpan bnyak inpputan yang di masukkan. solusinya

Adipustaka mengatakan...

Terima kasih atas tutorialnya. Saya sudah mencoba dengan inputan yg lebih banyak dan hasilnya hanya sebagian data yang tersimpan dan jika sudah banyak "VALUES-nya ;
('kode','nama barang','kategori','satuan','200','1000','Ndata')") maka terjadi error. mohon pencerahannya

Posting Komentar

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Justin Bieber, Gold Price in India