Menggunakan Beberapa Form Dalam DataBase Microsoft Visual Basic 6.0

Syntax  Edit

Syntax ini berfungsi untuk mengedit data dalam form, melakukan pengeditan anda harus memanggil data tersubut dengan mencari data tersebut. Setelah data yang anda panggil keluar baru klik tombol Edit dan letakan kursor dimana akan anda edit. Setelah proses edit selesai dan anda ingin menyimpan data anda yang baru anda edit, klik tombol edit kembali.

Ketikan Syntax sebagai berikut :                

Private Sub EDIT_Click()

With Data2

.Recordset.EDIT

.Recordset.Fields!TGL_MSUK = DTPicker1

.Recordset.Fields!NO_SEWA = Text1.Text

.Recordset.Fields!NAMA_PENYEWA = Text2.Text

.Recordset.Fields!JNS_KELAMIN = Text3.Text

.Recordset.Fields!NO_KAMAR = Combo1.Text

.Recordset.Fields!RUANG = Text4.Text

.Recordset.Fields!TARIF = Text5.Text

.Recordset.Fields!TGL_KELUAR = DTPicker2

.Recordset.Fields!LAMA_INAP = Text6.Text

.Recordset.Fields!Jumlah_Bayar = Text7.Text

.Recordset.Fields!DISCOUNT = Text8.Text

.Recordset.Fields!BIAYA_LAIN = Text9.Text

.Recordset.Fields!TOTAL = Text10.Text

.Recordset.Update

End With

End Sub