DataBase Microsoft Visual Basic 6.0

Rumus DataBase Pada Simpan (Command Button)

Jika anda tidak merubah name dari CommandButton anda maka sesuaiakanlah dengan name yang asli yang ada. Disini saya menggunakan name yang saya rubah sesuai dengan fungsi Tombol Tersebut.

contoh penulisan rumus dengan urutan field.

Private Sub Simpan_Click()                     Private Sub Simpan_Click()

With Data1

.Recordset.AddNew                                Data1.Recordset.AddNew

.Recordset.Fields(0) = Text1.Text              Data1.Recordset.Fields!NO_SEWA = Text1.Text

.Recordset.Fields(1) = Text2.Text              Data1.Recordset.Fields!NAMA = Text2.Text

.Recordset.Fields(2) = Combo1.Text          Data1.Recordset.Fields!KODE = Combo1.Text

.Recordset.Fields(3) = Text3.Text             Data1.Recordset.Fields!JENIS_MOBIL = Text3.Text

.Recordset.Fields(4) = Text4.Text              Data1.Recordset.Fields!BIAYA_SEWA = Text4.Text

.Recordset.Fields(5) = Text5.Text             Data1.Recordset.Fields!LAMA_SEWA = Text5.Text

.Recordset.Fields(6) = Text6.Text             Data1.Recordset.FieldsJUMLAH_BAYAR = Text6.Text

.Recordset.Fields(7) = Text7.Text              Data1.Recordset.Fields!BIAYA_FASILITAS = Text7.Text

.Recordset.Fields(8) = Text8.Text             Data1.Recordset.Fields!DISCOUNT = Text8.Text

.Recordset.Fields(9) = Text10.Text            Data1.Recordset.Fields!TOTAL = Text10.Text

.Recordset.Update                                  Data1.Recordset.Update

SIMPAN.Enabled = False                          Simpan.Enabled = False

TAMBAH.Enabled = True                           TAMBAH.Enabled = True

End With                                               

End Sub                                                 End Sub

Rumus menggunakan urutan field            Rumus menggunakan nama field

rumus ini berfungsi untuk memberi tahukan kepada database bahwa data dengan urutan sekian/nama ini akan menyimpan data pada text dan sebagainya pada form yang ditunjukan. jika anda menggunakan rumus dengan menggunakan nama field maka jangan lupa anda memasukan tanda seru ( ! ) untuk pemisah.