1. Buat objek Recordset
Redupkan objekMyRst
Setel objMyRst=Server.CreateObject(ADODB.Recordset)
objMyRst.CursorLocation=adUseClientBatch 'Klien dapat memproses secara batch
objMyRst.CursorType=adOpenStatic 'Tipe kursor adalah tipe statis
Catatan: Objek Recordset tidak dapat dibuat menggunakan pernyataan Set objMyRst=Connection.Excute strSQL, karena objek Recordset yang dibuatnya adalah adOpenFowardOnly dan tidak mendukung paging kumpulan rekaman.
2. Buka objek Recordset
Redupkan strSql
strSql=pilih * dari tabel tertentu
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3. Atur properti PageSize dari Recordset
objMyRst.UkuranPage=20
Ukuran Halaman default adalah 10
4. Atur properti AbsolutePage dari Recordset
Redupkan intCurrentPage
intHalaman Saat Ini=1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage adalah 1 dengan nilai PageCount dari objek Recordset
5. menampilkan data
Respon.Tulis(<tabel>)
NamaBidang Cetak(objMyRst)
Untuk i=1 Ke objMyRst.PageSize
PrintFieldValue (objMyRst)
objMyRst.MoveNext
Jika objMyRst.Eof Kemudian Keluar Untuk
Berikutnya
Respon.Tulis(</tabel>)
menjelaskan:
1. adOpenStatic, adUseCilentBatch, adCmdText adalah konstanta yang ditentukan oleh adovbs.inc. Untuk menggunakannya, salin adovbs.inc ke direktori saat ini dan sertakan dalam program.
<! --#Sertakan File=adovbs.inc-->
2. Kode fungsi PrintFielName,PrintFieldValue adalah sebagai berikut:
<%
Fungsi PrintFieldName (objMyRst)
'Parameter objMyRst adalah objek Recordset
'Tentukan nomor
Redupkan objekFld
Respon.Tulis <tr bgcolor='#CCCCCC'>
Untuk Setiap objFld Di objMyRst.Fields
Respon.Tulis <td> & objFld.Name & </td>
Berikutnya
Respon.Tulis(</tr>)
Fungsi Akhir
Fungsi PrintFieldValue (objMyRst)
'Parameter objMyRst adalah objek Recordset
'Tentukan nomor
Redupkan objekFld
Respon.Tulis(<tr>)
Untuk Setiap objFld Di objMyRst.Fields
'Respon.Tulis <td> & objMyRst.Fields(intLoop).value & </td>
Respon.Tulis <td> & objFld.value & </td>
Berikutnya
Respon.Tulis(<tr>)
Fungsi Akhir