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

DBEngineTidak ada 
WorkspaceTidak ada 
DatabaseConnection 
RecordsetRecordset 
Dynaset-TypeKeysetMengambil pointer pada suatu record dari suatu recordset.
Snapshot-TypeStaticSnapshot-Type mengambil semua record tetapi tidak dapat diedit, sedangkan Static recordset masih dapat diupdate.
Table-TypeKeyset dengan option adCmdTableDirect 
FieldFieldDigunakan 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.

Beri Nilai Artikel Ini:

Leave a Reply

Do NOT follow this link or you will be banned from the site!
%d bloggers like this: