Avatar billede k-asp-er Nybegynder
01. marts 2002 - 00:47 Der er 6 kommentarer og
1 løsning

paging

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.

rs.AbsolutePage = intPage

Hvordan omgår man denne fejl, når man har en access-db i paging (pagecount)

Mvh.
K-asp-er


Avatar billede grunken Nybegynder
01. marts 2002 - 00:52 #1
øhm måske ville det hjælpe hvis nogen så koden.....er din intPage variabel ordentligt sat ???
Avatar billede k-asp-er Nybegynder
01. marts 2002 - 00:57 #2
Ja den virker fint, hvis jeg lader udtrækket gælde hele tabellen,
strSQL = "SELECT * FROM table"
men når jeg sætter parametre på vælter skidtet.
strSQL = "SELECT * FROM table where (chbox <> FALSE ) AND (chbox2 <> FALSE)
Avatar billede k-asp-er Nybegynder
01. marts 2002 - 01:01 #3
den viser det rigtige antal records men navigationen side.asp?page=1 , 2 , 3 osv. genererer ovenstående fejl.
Det gør den også, hvis jeg bruger session.object
e.g. (altså med ODBC og global.asa)
set rs = session("db").execute("select * from news"
Avatar billede k-asp-er Nybegynder
01. marts 2002 - 01:02 #4
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")

strSQL = "SELECT * FROM pic where chbox=1 Order by id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/db.mdb")

rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 1
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
%>

<div align="center">
<center>
<table width="580" border="0" cellpadding="0" cellspacing="0">
    <tr>       
        <td valign="top">
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td style="border-style: solid; border-width: 1; border-color: 0F6C7B">
                        <table width="100%" border="0" cellpadding="5" cellspacing="0">
                            <tr>
                                <td height="20" bgcolor="#00B2BD">
                                    <b>Side <%=intPage%> af <%=intPageCount%> i Galleriet</b>
</td>
<td height="20" align="right" bgcolor="#00B2BD">
<% For intNum = 1 To intPageCount%>
<a href="pics.asp?page=<%=intNum%>"><b><%=intNum %></b></a>   
<%
Next

If Clng(intPage) > 1 Then
%>
&nbsp;&nbsp;&nbsp;&nbsp;<a href="pics.asp?page=<%=intPage - 1%>"><img src="images/nav_left.gif" border="0"></a>
<% Else %>
&nbsp;&nbsp;&nbsp;&nbsp;<img src="images/nav_leftno.gif" border="0">
<% End If %>

<% If Clng(intPage) < Clng(intPageCount) Then %>
<a href="pics.asp?page=<%=intPage + 1%>"><img src="images/nav_right.gif" border="0"></a>
<% Else %>
<img src="images/nav_rightno.gif" border="0">
<%
End If
%>                                </b></td>
                            </tr>

<%

  Do While Not rs.EOF And intRecCount > 0
%>
<tr><td colspan="2" bgcolor="#ffffff" align="center">
               
<img SRC="<%=session("webpath")%><%=rs("billede1")%>" width="559" vspace="4" hspace="4">
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#ffffff" align="left"><%=trim(rs("memo1"))%><br>

<%  intRecCount = intRecCount - 1
  rs.MoveNext
%>
</td>
</tr>
<%
  Loop
rs.Close
Set rs = Nothing
end if
%>
Avatar billede k-asp-er Nybegynder
01. marts 2002 - 01:04 #5
ovenstående kode virker
Avatar billede coltau Juniormester
01. marts 2002 - 09:36 #6
Fejlen tyder på at du skal åbne filen med andre parametre - Jeg har bl.a. anvendt denne måde:
rs.Open strSQL, strDSN, , , &H0001 ' adCmdText

og så bør denne linie nok ændres:
intPage = Request("page")
til:
intPage = Request.QueryString("page")
Avatar billede k-asp-er Nybegynder
01. marts 2002 - 10:50 #7
Havde i min uendelige visdom givet filen et andet navn, end det der står i referencerne - filen hed test.asp, men jeg glemte at rette pics.asp til test.asp i hrefs. Underlige fejl man sidder og bager på midt om natten - tak for jeres svar alligevel - selv om i ikke har haft mulighed for at finde fejlen...
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