Koneksi DataBase dengan DAO

assalamualaikum wr.wb.

Pada kesempatan ini saya akan menuangkan ilmu yang saya pelajari selama ini..
baca juga cara membuat database di vibi.

Dan kali ini kita membahas tentang koneksi data base dengan DAO.


Disini kita akan membuat sebuah Inputan dengan judul input barang, atau beri judul ter serah anda,
Kemudian anda buat Form seperti gambar berikut ini

Setelah anda membuat sekarang kita masukan kode programnya...

• Langkah pertama koneksikan Data1 dengan database terlebih dulu.
• caranya lihat properties Data1 pada vibi anda kemudian cari DatabaseName kemudian cari database anda. masih di properties cari recordsource isi dengan tabel anda.
• kedua koneksikan tiap-tiap text dengan Data1 untuk memunculkan isi Data.
• lihat properties text1 kemudian rubah Datasource-nya pilih Data1.
• ubah datafield isikan sesuai field tabel anda
  lakukan hal yang sama pada setiap text

 setelah itu masukan listing program dibawah ini:

'dbs adalah variabel untuk databasenya
'rst adalah variabel untuk recordsetnya
Dim dbs As DAO.Database
Dim rst As DAO.Recordset

'koneksiDB untuk meng-koneksikan databasenya
Public Sub koneksiDb()
On Error Resume Next
Set dbs = DBEngine.OpenDatabase(App.Path & "\nama_database.mdb")
Set rst = dbs.OpenRecordset("nama_tabel", dbOpenTable)

'berikan index jika diperlukan
rst.Index = "idx_daftar_barang"

End Sub

Public Sub enabledText()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

End Sub

Private Sub cmd_Edit_Click()
cmd_Edit.Enabled = False
Text1.Enabled = False
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text2.SetFocus
End Sub

Private Sub cmd_hapus_Click()
On Error Resume Next
koneksiDb
MsgBox "Apakah anda yakin akan menghapus data " & txtNamaBarang.Text & "???", vbExclamation, Peringatan
With rst
    .Delete
    .MoveNext
    If .EOF Then
    .MoveLast
    End If
End With
MsgBox "data sudah dihapus.", vbInformation, "Berhasil"
enabledText
End Sub

Private Sub cmd_simpan_Click()
On Error Resume Next
koneksiDb

If cmd_tambah.Enabled = False Then
    With rst
        .AddNew
           !kode_barang = txtBarcode.Text
           !nama_barang = txtNamaBarang.Text
           !satuan = txtSatuan.Text
           !harga = txtHarga.Text
        .Update
    End With
        MsgBox "Data Baru berhasil di Simpan.", vbInformation, "Entry Data"
        enabledText
        cmd_tambah.Enabled = True
ElseIf cmd_Edit.Enabled = False Then
    If MsgBox("apakah anda ingin menyimpan data yang telah anda edit?", vbOKCancel, "Entry Data") = vbCancel Then
        Exit Sub
        enabledText
    Else
        With rst
            .Edit
            !kode_barang = txtBarcode.Text
            !nama_barang = txtNamaBarang.Text
            !satuan = txtSatuan.Text
            !harga = txtHarga.Text
            .Update
        End With
    MsgBox "Data yang di edit berhasil disimpan.", vbInformation, "Entry Data"
   cmd_Edit.Enabled = True
    End If
End If
   
End Sub

Private Sub cmd_tambah_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text1.SetFocus
cmd_tambah.Enabled = False
End Sub

Private Sub Form_Load()
enabledText
End Sub

jika anda mengalami kesulitan silahkan download contoh filenya untuk memudahkan anda bereskperimen..
Silahkan download filenya disini..

sekian dulu...
Semoga artikel ini bermanfaat....

Jangan lupa di Beri Komentar yaa....