Avatar billede kongsteddk Nybegynder
24. september 2002 - 16:50 Der er 5 kommentarer og
1 løsning

rs.AbsolutePage

Hej!

Håber at der er nogen der kan hjælpe mig. Jeg får følgende fejl:
ADODB.Recordset error '800a0cb3'

Object or provider is not capable of performing requested operation.

/pics1.asp, line 12

Min Kode ser ud som følger:
<!--#include file="dbconn.asp"-->
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

sql = "SELECT * FROM pic"
SET rs = conn.Execute(sql)
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs("LinkURL") & "<br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=paging.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

Min db-conn ser ud som følger:
Set conn = Server.CreateObject("ADODB.Connection")
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\.....sti.....\db.mdb;"
conn.open connString

Jeg får fejl i linien med rs.AbsolutePage.

Hvad er der galt??

MVH
Kongsted
Avatar billede eagleeye Praktikant
24. september 2002 - 18:23 #1
Der er den måde du åbner recordet set som ikke understøtter paging:

SET rs = conn.Execute(sql)

Prøv at rette linien til denne:

rs.Open sql, conn, 1
Avatar billede eagleeye Praktikant
24. september 2002 - 18:23 #2
Og så husk at tilføje denne linie i toppen eller bare før rs.Open

Ser rs = Server.CreateObject("ADODB.Recordset")
Avatar billede psylenz Nybegynder
24. september 2002 - 18:48 #3
må jeg lige se dbconn.asp
Avatar billede kongsteddk Nybegynder
24. september 2002 - 22:17 #4
psylenz> Kan du ikke bruge den der står nedest i min beskrivelse???
Avatar billede psylenz Nybegynder
24. september 2002 - 22:22 #5
havde ikke set den
Avatar billede kongsteddk Nybegynder
24. september 2002 - 22:29 #6
eagleeye> Tak for hjælpen!!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester