Menghapus Data di Mysql menggunakan Foxpro

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

*delete data ke tabel server
* Procedure cmdDelete.CLICK()
IF MESSAGEBOX('HAPUS DATA?',36,'COBA HAPUS DATA')=6
 oke=SQLEXEC(ConnHandle,"delete from apl_barang")
 IF oke != 0
  MESSAGEBOX("data berhasil dihapus.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 ELSE
  MESSAGEBOX("data gagal dihapus.",64,"Informasi !")
  thisform.grid1.Init
  Thisform.Refresh
  thisform.grid1.Refresh
 endif
ENDIF

Posted in: Foxpro