Back-end dan Front-end Database Access dengan Recordset DAO

Pengertian Back-end dan Front-end Database Access dengan Recordset DAO di sini adalah menggunakan metode yang telah disediakan oleh Access VBA untuk melakukan penambaham, pengeditan, dan penghapusan record melalui DAO.Recordset (DAO=Data Access Object)

Ada banyak sekali metode yang disediakan oleh Access VBA. Namun demikian, kita hanya membahas empat metode yang digunakan untuk penanganan record. Metode itu adalah:

Recordset.AddNew: metode untuk membuat dan menambah record baru dalam sebuah objek recordset. Metode ini memberi nilai field dalam tabel yang dinyatakan dengan recordset. Nilai field itu diisi sesuai dengan tipe field. Bila field tidak ada nilainya, maka field itu sama dengan Null.
Recordset.Edit: metode untuk mengedit object recordset yang sudah tersimpan dalam tabel. Metode ini mengganti nilai yang sudah ada di field dalam tabel yang dinyatakan dengan recordset.
Recordset.Update: metode untuk menyimpan object recorset yang dibuat baru melalui Recordset.AddNew ke dalam tabel atau diedit melalui Recordset.Edit dan disimpan kembali ke tabel. Tanpa metode ini, kita tidak bisa menyimpan sebuah record ke dalam tabel.
Recordset.Delete: metode untuk menghapus object recordset yang tersimpan dalam tabel. Record yang sudah dihapus dikembalikan seperti semula.

Berikut ini adalah contoh penerapan Back-end dan Front-end Database Access dengan Recordset DAO.

Gunakan file Access Database_be.accdb yang ada di posting Contoh Sederhana Aplikasi Back-End dan Front-End Database di MS Access Dengan Menggunakan DAO. File Database_be.accdb ini berfungsi sebagai back-end database.
Buatlah file database Access dengan nama Database1_fe.accdb. File Database1_fe.accdb ini berfungsi sebagai front-end database.
Karena ingin mengambil properti field yang ada di tabel, maka kita harus membuat link table ke Database_be.accdb agar properti tabel di database itu bisa diaplikasikan di mana pun kita ingin membuat object selain table (misalnya, form dan report). Untuk itu, buatlah link table dari satu tabel, misalnya: tabel tblRekDerivatif1, atau seluruh tabel yang ada di file Database_be.accdb. Ikuti cara membuat link table pada link posting tersebut di atas.
Setelah link table berhasil dibuat, kita akan membuat form kasar dari link table yang tersedia itu. Misalnya pilih tabel tblRekDerivatif1 seperti di atas. Sorotlah tabel tblRekDerivatif1, lalu buatlah sebuah form sederhana dengan menggunakan cara Membuat Form Menggunakan Form Wizard. Namailah form yang baru dibuat itu: frmRekDerivatif1.
Bukalah frmRekDerivatif1 dalam format Design View, seperti telihat di gambar bawah.
Atur properti form Navigation Buttons=No, dan Record Selectors=No
Kosongkanlah properti Record Source dari form frmRekDerivatif1 (unbound record source)
Kosongkanlah Control Source dari form control yang ada di dalam form frmRekDerivatif1 (unbound control source). Hal yang perlu diperhatikan di sini adalah: nama control source harus sama dengan nama field tabel yang ada di tblRekDerivatif1. Ini penting, karena akan digunakan dalam proses retrieving data yang sesuai dengan nama field tabel. Jadi, jangan mengubah nama control source yang menunjukkan nama field tabel.
Tampilan frmRekDerivatif1, dalam format Form View akan seperti gambar di bawah.
Kini, form yang kosong (unbound) dengan sebagian properti yang berasal dari tabel tblRekDerivatif1 sudah terpasang di form frmRekDerivatif1.
Selanjutanya, dengan Design View dari frmRekDerivatif1, sisipkanlah empat buah tombol perintah (command button) dengan properti sbb:
1. Tombol 1: Name=cmdEdit, Caption=&Edit
2. Tombol 2: Name=cmdSimpan, Caption=&Simpan
3. Tombol 3: Name=cmdTambah, Caption=&Tambah
4. Tombol 4: Name=cmdHapus, Caption=&Hapus
Lihat pada gambar di bawah ini untuk posisi masing-masing tombol perintah.
Isikanlah kode VBA pada class module Frm_frmRekDerivatif1 seperti di bawah/tab sebelah kanan, setelah itu simpanlah form frmRekDerivatif1.
Pada Access Navigation Pane, hapuslah semua Linked Table yang ada di Object Tables. Tujuannya, untuk memaksimalkan fungsi database fornt-end. Dengan demikian, file Database1_fe.accdb hanya ada satu buah form frmRekDerivatif1, seperti tampak pada gambar di bawah.
Bila frmRekDerivatif1dibuka dengan Form View, hasilnya seperti gambar di atas.

Kode VBA Yang digunakan

Option Compare Database
Private dbs As DAO.Database
Private Const constNamaTabel As String = "tblRekDerivatif1"
Private strSQL As String, strCriteria As String
Private Enum intPerlakuan
  tampilkanData = 1
  tambahData = 2
  editData = 3
End Enum

Private Function bukaDatabaseBE()
  Dim strFolderName As String
  Dim strDbsName, strFileName As String
  Dim strProvider As String
  Dim strPassword As String
  Dim strConnection As String
  
  Const cnFolderSeparator As String = "\"

On Error GoTo Err_Msg

'Gantilah nilai "D:\SoftwareAkuntansi" yang ada pada variabel strFolderName sesuai dengan lokasi database back-end.
  strFolderName = "D:\SoftwareAkuntansi" & cnFolderSeparator
'Bila nama file database back-end berbeda, gantilah nilai "Database_be.accdb" yang ada pada variabel strFileName
  strFileName = "Database_be.accdb"
  strProvider = "MS ACCESS"
'Isikan password bila file database yang ada di strFileName diproteksi dengan password
  strPassword = ""
  
  If strPassword <> vbNullString Then strPassword = ";PWD=" & strPassword
  
  strConnection = strProvider & strPassword
  strDbsName = strFolderName & strFileName
  Set dbs = OpenDatabase(strDbsName, False, False, strConnection)
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function bukaDatabaseBE, Error # " & Str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function
Private Function tutupDatabaseBE()
On Error GoTo Err_Msg
  dbs.Close
  Set dbs = Nothing
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function tutupDatabaseBE, Error # " & Str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function
Private Function adaKode(strKode As String) As Boolean
  Dim strSqlStat As String
  Dim rs As DAO.Recordset
On Error GoTo Err_Msg
  strSqlStat = "SELECT COUNT(*) FROM " & constNamaTabel & strCriteria ' " WHERE KodeDeriv1='" & strKode & "'"
  Set rs = bukaRecordset(strSqlStat)
  adaKode = False
  If rs.Fields(0).Value > 0 Then adaKode = True
  rs.Close
  Set rs = Nothing
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function adaKode, Error # " & Str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function
Private Function bukaRecordset(strSQL As String, Optional boolForEdit As Boolean) As DAO.Recordset
  Dim rstRecordset As DAO.Recordset
On Error GoTo Err_Msg
  If boolForEdit Then
    Set rstRecordset = dbs.OpenRecordset(strSQL, dbOpenDynaset)
  Else
    Set rstRecordset = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
  End If
  Set bukaRecordset = rstRecordset
  
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function bukaRecordset, Error # " & Str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function
Private Function jalankanExecQuery(strSQL As String) 'OK
On Error GoTo Err_Msg
  dbs.Execute strSQL, dbFailOnError
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function jalankanExecQuery, Error # " & Str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function
Private Function lakukanQuery(intJenisPerlakuan As intPerlakuan)
  Dim rs As DAO.Recordset
  Dim fld As Field
  Dim ctl As Control
  Dim strSqlStat As String
  
On Error GoTo Err_Msg
  strSqlStat = strSQL & strCriteria
  Set rs = bukaRecordset(strSqlStat, True)
  If intJenisPerlakuan = tampilkanData Then
    For Each ctl In Me
      For Each fld In rs.Fields
        If ctl.Name = fld.Name Then Controls(ctl.Name).Value = fld.Value
      Next fld
    Next ctl
  Else
    If intJenisPerlakuan = tambahData Then rs.AddNew
    If intJenisPerlakuan = editData Then
      If Not bisaDiUpdate(strSqlStat) Then Exit Function Else rs.Edit
    End If
    For Each fld In rs.Fields
      For Each ctl In Me
        If fld.Name = ctl.Name Then fld.Value = Controls(ctl.Name).Value
      Next ctl
    Next fld
    rs.Update
  End If
  rs.Close
  Set rs = Nothing
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function lakukanQuery, Error # " & Str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function
Function bisaDiUpdate(strSQL As String) As Boolean

Dim rs As DAO.Recordset
Dim intPosition As Integer

On Error GoTo Err_Msg

   bisaDiUpdate = True

   Set rs = bukaRecordset(strSQL, True)

   If rs.Updatable = False Then
      bisaDiUpdate = False
   Else
      For intPosition = 0 To rs.Fields.Count - 1
         If rs.Fields(intPosition).DataUpdatable = False Then
            bisaDiUpdate = False
            Exit For
         End If
      Next intPosition
   End If

   rs.Close
   Set rs = Nothing
   
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function bisaDiUpdate, Error # " & Str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function

Private Sub cmdEdit_Click()
  strCriteria = " WHERE KodeDeriv1='" & Me.KodeDeriv1 & "'"
  If adaKode(Me.KodeDeriv1) Then
    lakukanQuery tampilkanData
  Else
    Me.NamaDeriv1 = vbNullString
    Me.Catatan = vbNullString
    Me.NamaDeriv1.SetFocus
  End If
End Sub

Private Sub cmdHapus_Click()
  Dim rs As DAO.Recordset
  Dim strSqlStat As String
  If adaKode(Me.KodeDeriv1) Then
    strSqlStat = strSQL & strCriteria
    If MsgBox("Kode rekening " & Me.KodeDeriv1 & " akan dihapus?", vbYesNo) = vbYes Then
      Set rs = bukaRecordset(strSqlStat, True)
      rs.Delete
      cmdTambah_Click
      Me.KodeDeriv1.SetFocus
      rs.Close
      Set rs = Nothing
    Else
      Cancel = True
      Exit Sub
    End If
  Else
    MsgBox "Kode rekening " & Me.KodeDeriv1 & " tidak ada dalam tabel"
  End If
End Sub

Private Sub cmdSimpan_Click()
  Dim strSqlStat As String

  If adaKode(Me.KodeDeriv1) Then
    lakukanQuery editData
  Else
    lakukanQuery tambahData
  End If
End Sub

Private Sub cmdTambah_Click()
  Me.KodeDeriv1 = vbNullString
  Me.NamaDeriv1 = vbNullString
  Me.Catatan = vbNullString
End Sub

Private Sub Form_Open(Cancel As Integer)
  bukaDatabaseBE
  strSQL = "SELECT * FROM " & constNamaTabel
End Sub

Private Sub KodeDeriv1_AfterUpdate()
  cmdEdit_Click
End Sub

Pembaca dapat memperoleh sample file database back-end dan front-end dengan cara sbb:

Ikuti blog Access Terapan di Facebook dengan mem-follow atau me-like FB page di https://www.facebook.com/AccessTerapan atau follow Google Blog Follower. Bagi yang tidak memfollow, permintaan (request) akan diabaikan.
Kirim email ke admin yanto.e.subroto@gmail.com untuk diikutsertakan menjadi anggota grup Access Terapan.
Sebagai tanda bukti keanggotaan, admin grup Access Terapan akan mengirimkan email ke alamat yang dituju.
Selanjutnya, silakan download dua file zip berikut ini:
1. Database_be.zip yang merupakan Access Database back-end (nama file Database_be.accdb), dapat diinstall di server, PC desktop, dsb.
2. Database1_fe.zip yang merupakan Access Database front-end (nama file Database1_be.accdb), dapat diinstall di client, PC desktop, dsb.
Ikuti perintah yang ada dalam kode VBA di atas, pada baris komentar 'Gantilah nilai "D:\SoftwareAkuntansi" yang ada pada variabel strFolderName sesuai dengan lokasi database back-end.
Bukalah form frmRekDerivatif1 dalam format Form View.
Sebagai uji coba isikan salah satu item seperti contoh gambar terakhir di atas, lalu klik tombol Edit.

Access Terapan

Search This Blog

Back-end dan Front-end Database Access dengan Recordset DAO

Labels

Comments

Post a Comment

Posting Terpopuler

Membuat Spin Box Menggunakan ActiveX Control

Mengenal SQL Server 2014 Management Studio (SSMS)

Membuat Table Relationship Untuk Sistem Informasi Kepegawaian