Contoh Program Database Sederhana
May 19, 2010 at 4:50 pm | Posted in Program | Leave a commentTampilan Form
Listing Program
<!–
–>
Private Sub Form_Load()
Data1.DatabaseName = App.Path & “\penjualan.mdb”
Data1.RecordsetType = 0
Data1.RecordSource = “barang”
End Sub
<!–
–>
Private Sub Form_Activate()
tampil
txtkodebrg.MaxLength = 5
End Sub
<!–
–>
Private Sub cmdsimpan_Click()
With Data1.Recordset
.AddNew
!kodebrg = txtkodebrg.Text
!namabrg = txtnamabrg.Text
!harga = txtharga.Text
!stok = txtstok.Text
.Update
End With
MsgBox “Data Sudah Tersimpan”, vbInformation, “”
End Sub
Blog at WordPress.com. | Theme: Pool by Borja Fernandez.
Entries and comments feeds.
