Listing program simpan visual Basic 6.0

Dalam program visual ada perintah Save atau Simpan maksudnya jika kita sudah mengisi data pasti kita harus menyimpan data yang sudah di ketik, nah berikut perintah program sederhana semoga dapat bermanfaat :

 Gambar program sederhana Save(simpan):

 

Listing program simpan data :
Private Sub cmdsave_Click()
On Error GoTo Sav:
pembelian.Recordset.AddNew
pembelian.Recordset!kodebarang = txtkode.Text
pembelian.Recordset!nama = txtnama.Text
pembelian.Recordset!satuan = txtsatuan.Text
pembelian.Recordset!hargasatuan = txtsatuan.Text
pembelian.Recordset!kodebarang = txtharga.Text
pembelian.Recordset.Update
Sav:
End Sub

Private Sub Command2_Click()
End
End Sub

Tweet