Bekerja Dengan DAO Recordset

AstroDigi.com | Rabu, 25 Jan 2017 | Dalam pemrograman adakalanya user membutuhkan data yang diambil dari sebuah tabel yang bukan merupakan "record source" (sumber data) dari form yang bersangkutan. Data bisa diambil dengan fungsi dalam kelompok "data retrieval" , seperti DLookUp, DMax, DFirst, DLast, dan lain sebagainya.

Cara lain adalah dengan membuka tabel dan meletakkannya dalam sebuah buffer (memori penampung record), dan bekerja dengan semua data yang ada sudah ada didalam buffer tersebut. Cara ini lebih cepat untuk data yang berjumlah besar dan lebih fleksibel dan praktis bila bekerja dengan record yang lebih banyak.

Instruksi VBA untuk memulai Recordset adalah:

'-------------------------------
'pembukaan tabel
'-------------------------------
Dim databaseKu As DAO.Database
Dim recordsetKu As DAO.Recordset
Set databaseKu = CurrentDb()
Set recordsetKu = Db.OpenRecordset("namaTabel", dbOpenDynaset)
'------------------------------

Instruksi VBA untuk mengakhiri Recordset adalah:
'-------------------------------
'penutupan tabel
'-------------------------------
recordsetKu.Close
databaseKu.close
'-------------------------------

Untuk memanggil setiap field yang ada pada tabel cukup dengan sintaks: recordsetKu![namaField]

Untuk lebih jelasnya berikut ini saya berikan sedikit contoh berupa deretan instruksi singkat menggunakan Recordset:
'-------------------------------
'pembukaan tabel
'-------------------------------
Dim databaseKu As DAO.Database
Dim recordsetKu As DAO.Recordset
Set databaseKu = CurrentDb()
Set recordsetKu = Db.OpenRecordset("Mahasiswa", dbOpenDynaset)
'------------------------------
Dim nomorKu as Integer
recordsetKu.MoveFirst    'ambil baris record paling awal
nomorKu = recordsetKu![NIM]
MsgBox "Nomor mahasiswa adalah: " & nomorKu

'-------------------------------
'penutupan tabel
'-------------------------------
recordsetKu.Close
databaseKu.close
'-------------------------------

Bagaimana? Mudah saja bukan? Selamat mencoba .. have a nice day :-)

 www.AstroDigi.com (Nino Guevara Ruwano)

AllBlogToolsFacebook comments for blogger brought to you by AllBlogTools.com , Get Yours?