Langkah-langkahnya sebagai berikut :
Field Name | Data Type | Field Size | Format |
kode_barang | Text | 5 | |
nama_barang | Text | 25 | |
jenis_barang | Text | 15 | |
harga_barang | Currency | Currency (Rp.xxx.xxx) | |
jumlah | Number | Long Integer |
Dim db As Connection
Dim rs As Recordset
Sub koneksi()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\db_barang.mdb;Persist Security Info=False”
End Sub
Private Sub Command1_Click()
Set rs = New Recordset
rs.Open “barang”, db, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields(“kode_barang”) = Text1.Text
rs.Fields(“nama_barang”) = Text2.Text
rs.Fields(“jenis_barang”) = Combo1.Text
rs.Fields(“harga_barang”) = Text3.Text
rs.Fields(“jumlah”) = Text4.Text
rs.Update
MsgBox “Data tersimpan”
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text3.Text = “”
Text4.Text = “”
Combo1.Text = “”
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
koneksi
Set rs = New Recordset
rs.Open “barang”, db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Download Source Code Aplikasi untuk mengelola kasbon karyawan berbasis php. Program ini dibuat menggunakan bahasa…
Pada postingan kali ini, sourcecodeaplikasi.info kembali mencoba untuk membagikan ke sobat semua tentang sebuah aplikasi…
Download Source code Aplikasi Penjualan Barang Berbasis Web Gratis. Aplikasi ini dibangun menggunakan bahasa pemrograman…
Source Code Aplikasi Sistem Informasi Perpsustakaan Berbasis Web yang akan admin share pada kesempatan kali…
Source Code Aplikasi Pendataan Pendapatan Warga Berbasis Web yang akan kami bagikan di kesempatan ini…
Source code aplikasi absensi berbasis web. Aplikasi absensi online ini dibuat dengan menggunakan bahasa pemrograman…