Download Source Code Aplikasi

Cara Koneksi Database Office Access Ke Visual Basic 6.0 (Vb)

Wednesday, September 11th, 2019 - aplikasi, database, project vb, vb, vb6

Cara Koneksi Database Office Access Ke Visual Basic 6.0 (Vb)


Langkah-langkahnya sebagai berikut :


  • Buat Database Microsoft Office Access, disini aku memakai Microsoft Office Access 2007, yang lain sesuaikan… ๐Ÿ˜€
  • Simpan didalam folder dimana project kita akan di simpan (save) dengan format db_barang.mdb..


Cara Koneksi Database Office Access Ke Visual Basic 6.0 (Vb)

  • klick Create..
  • Buat sebuah tabel dengan nama “barang”
  • Kemudian desain fieldnya 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

Cara Koneksi Database Office Access Ke Visual Basic 6.0 (Vb)
  • Kemudian buka Visual Basic 6.0, pilih VB Enterprise Edition Control.
Cara Koneksi Database Office Access Ke Visual Basic 6.0 (Vb)
  • Kemudian Desain Form menyerupai dibawah ini :
Cara Koneksi Database Office Access Ke Visual Basic 6.0 (Vb)

  • Berikut SourceCode nya :

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

Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.
Download Source Code Aplikasi
Cara Koneksi Database Office Access Ke Visual Basic 6.0 (Vb) | Ahmad Code | 4.5