Pengolahan Database dengan DAO (Database Access Object) dan Visual Basic

Pada artikel terdahulu saya telah menjelaskan Struktur Objek DAO. Dengan pengenalan struktur objek tersebut diharapkan dapat memberikan pengertian terhadap pemakaian Data Access Object (DAO).

Sekarang kita akan membuat project pengolahan data  dasar dengan DAO dan Visual Basic.

Sebelum membuat project dengan DAO ini kita lebih dahulu membuat database dengan Microsoft Access dengan nama dataku.mdb
Selanjutnya kita membuat tabel Karyawan dengan field-field sebagai berikut:

nik ,nama,karyawan masing-masing field dengan type text.

OK. Kita langsung saja. Buat project baru (Standard Project) lalu klik Project - Refrence - Lalu pilih Microsoft DAO 2.6 Object Library.
Lihat gambar di bawah ini:

setelah itu anda buat form seperti gambar di bawah ini:

Selanjutnya kita ketik kode seperti di bawah ini:


Private oDB As Database
Private oRs As Recordset


Private Sub Form_Load()
  Set oDB = OpenDatabase(App.Path & "\dataku.mdb")
  Set oRs = oDB.OpenRecordset("select * from karyawan", dbOpenDynaset)

  BacaData
End Sub


Private Sub KosongForm()
  txtNIK.Text = ""
  txtNama.Text = ""
  txtAlamat = ""
End Sub


Private Sub BacaData()
  txtNIK.Text = oRs.Fields("NIK")
  txtNama.Text = oRs.Fields("Nama")
  txtAlamat = oRs.Fields("Alamat")
End Sub


Private Sub cmdBaru_Click()
  KosongForm
End Sub


Private Sub cmdCari_Click()
  Dim sNIK As String
  sNIK = InputBox("Isi NIK:")
  Dim sSQL As String
  sSQL = "select * from karyawan where nik='" & sNIK & "'"

  If sNIK <> "" Then
    Set oRs = oDB.OpenRecordset(sSQL, dbOpenDynaset)

      If oRs.RecordCount > 0 Then
        BacaData
      Else
        MsgBox "Tidak ada data dengan NIK '" & sNIK & "'"

      End If
  End If
End Sub


Private Sub cmdHapus_Click()
  Dim respon As Variant
  respon = MsgBox("Yakin mau hapus Record dengan NIK '" & txtNIK.Text & "'", vbYesNo)

  If respon = vbYes Then
    oDB.Execute "delete from karyawan where nik='" & txtNIK.Text & "'"

    KosongForm
  End If
End Sub


Private Sub cmdKeluar_Click()
  End
End Sub


Private Sub cmdSimpan_Click()
  Dim sSQL As String
  sSQL = "DELETE FROM karyawan WHERE NIK='" & txtNIK.Text & "'"

  oDB.Execute sSQL

  sSQL = "INSERT INTO KARYAWAN VALUES('" & txtNIK.Text & "','" & txtNama.Text & "','" & txtAlamat.Text & "')"

  oDB.Execute sSQL
End Sub


Tekan tombol Run atau F5 untuk menjalankan programnya. Lihat gambar di bawah ini:

Download Project di sini :