Konversi DAO ke ADO

Bagi Anda yang sudah terbiasa dengan DAO, lalu ingin berpindah ke ADO maka akan lebih mudah mempelajari teori ADO ini. Anda dapat mempelajari dahulu table konversi DAO ke ADO seperti yang ditampilkan pada table dibawah ini.

DAO

ADO(ADODB)

Keterangan

DBEngine Tidak ada  
Workspace Tidak ada  
Database Connection  
Recordset Recordset  
Dynaset-Type Keyset Mengambil pointer pada suatu record dari suatu recordset.
Snapshot-Type Static Snapshot-Type mengambil semua record tetapi tidak dapat diedit, sedangkan Static recordset masih dapat diupdate.
Table-Type Keyset dengan option adCmdTableDirect  
Field Field Digunakan untuk menunjuk kedalam suatu recordset

DAO

ADO

Open a Recordset:
Dim db as Database

Dim rs as DAO.Recordset

Set db = CurrentDB()

Set rs = db.OpenRecordset(“Employees”)

Dim rs as New ADODB.Recordset

rs.Open “Employees”, CurrentProject.Connection, adOpenKeySet, adLockOptimistic

Edit a Recordset:
rs.Edit

rs(“TextFieldName”) = “NewValue”

rs.Update

rs(“TextFieldName”) = “NewValue”

rs.Update

Catatan: Memindahkan
focus dari current record menggunakan metode MoveNext, MoveLast, MoveFirst, MovePrevious tanpa diawali dengan metode CancelUpdate maka secara otomatis akan menjalankan metode Update.

Leave a Reply

%d bloggers like this: