Menggunakan Beberapa Form Dalam DataBase Microsoft Visual Basic 6.0

Syntax  Simpan

Syntax ini berfungsi untuk menyimpan data yang telah anda isikan dalam form (tekan tombol Tambah sebelum menekan tombol Simpan).

Ketikan Syntax sebagai berikut :

Private Sub SIMPAN_Click()

With Data2

.Recordset.AddNew

.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

TAMBAH.Enabled = True

SIMPAN.Enabled = False

End With

End Sub