Halo..
Kalau membuka recordset dengan jalan Set rs = Connection.Execute(sql),
hasilnya selalu firehose recordset (hanya bisa maju; forward only).
Cachesize tidak mengatur bisa forward-backward, hanya mengatur cachesize
saja.
Kalau mau maju mundur, recordset harus dicreate secara eksplisit, terus
diset parameternya spt ini:
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Connection, adOpenStatic, adLockReadOnly, adCmdText
adOpenStatic (recordset bisa maju mundur, insert/update/delete oleh orang
lain tidak terlihat) bisa diganti: adOpenKeyset (insert/update oleh orang
lain tidak terlihat, row2 yang didelete oleh orang lain tidak bisa diakses
lagi), adOpenDynamic (insert, update, delete oleh orang lain akan terlihat),
asal jangan adOpenForwardOnly (cursor hanya bisa maju, tapi paling cepat
dibanding yang lain). Jangan lupa adovbs.inc diincludekan di page, atau ADO
Typelib dipasang di global.asa.
Indradjit Harbani
http://www.kemangnet.com/
-----Original Message-----
From: T�m� �l-��ghor� [mailto:[EMAIL PROTECTED]]
Sent: Sunday, September 24, 2000 6:09 AM
To: Active Server Pages
Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: [webauthor] Error ASP
Hai rekan - rekan milis,
Saya mau bikin tampilan hanya untuk 3 record terakhir tapi mendapat
pesan error seperti ini. Saya dapat dengan mudah melakukan tampilah untuk 3
record pertama tapi untuk menampilkan 3 record terakhir mendapat pesan error
seperti ini :
Microsoft OLE DB Provider for ODBC Drivers error '80040e24'
The rowset does not support fetching backwards
/tampilkanbreakingnews3.asp, line 17
Saya sudah mencoba menggunakan cachesize yang kata dimanual PWS adalah untuk
mendukung backwards recordset tapi tidak pengaruh. Dimanakah letak
kesalahannya ? Terima kasih.
Berikut source codenya :
10 <%
11
12 sql= "SELECT * from BreakingNews "
13 Set MyRst = Koneksi.Execute(sql)
14
15 a=0
16
17 myrst.movelast
18
19 Do While a<3
20
21 a=a+1
22
23 %>
24
25 <%=myrst("Judul")%><BR>
26 <%=myrst("Tempat")%><BR>
27 <%=myrst("Tgl")%>/<%=myrst("Bln")%>/<%=myrst("Thn")%><BR>
28 <%=myrst("Isi")%><BR>
29 <%=myrst("Peliput")%><BR><BR>
30
31 <% myrst.MovePrevious
32
33 Loop
34
35 %>
--
Berhenti langganan kirim email ke [EMAIL PROTECTED]
Arsip di http://www.mail-archive.com/[email protected]/
--
Berhenti langganan kirim email ke [EMAIL PROTECTED]
Arsip di http://www.mail-archive.com/[email protected]/
