11.29
alie
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)
Posted in: Foxpro
3 komentar:
Terima kasih banyak atas trik triknya.
Saya sudah mencoba tapi tidak dapat menyimpan bnyak inpputan yang di masukkan. solusinya
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