Mengupdate Data di Mysql menggunakan Foxpro

Ini adalah kelanjutan dari pembahasan yang sebelumnya
Taruh kode dibawah ini di objek cmdUpdate pada prosedur click

*update data ke tabel server
* Procedure cmdUpdate.CLICK()
IF MESSAGEBOX('UPDATE DATA?',36,'COBA UPDATE DATA')=6
 oke=SQLEXEC(ConnHandle,"update apl_barang set kode_barang='kode_update',nama_barang='nama_update' ;
 ,kategori_barang='kategori_update' ;
 ,satuan='satuan_update',stok='5555',harga='5000000'")
 IF oke != 0
  MESSAGEBOX("data berhasil diupdate.",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

Posted in: Foxpro