DataBase Microsoft Visual Basic 6.0

Rumus DataBase Pada Edit (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 Edit_Click()                         Private Sub Edit_Click()

With Data1

.Recordset.Edit                                     Data1.Recordset.Edit

.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

End With                                               

End Sub                                                 End Sub

Rumus ini menggunakan urutan Field       Rumus ini menggunakan nama Field

kedua rumus ini sama saja, maka anda hanya dianjurkan memakai salah satu rumus tersebut.

fungsi dari rumus ini adalah saat semua data field berada dalam form baru kita bisa mengedit data yang ada, dengan cara pencarian kemudian klik Edit arahkan kursor kepada data field yang akan diganti kemudian klik Edit kembali untuk menyimpan perubahan bukan tombol Simpan.