FAIRE UN PAGING COMME SUR ASPFR.COM ET VBFRANCE.COM
rico21
-
27 mai 2001 à 18:57
abmnono
Messages postés1Date d'inscriptionlundi 15 mars 2004StatutMembreDernière intervention21 octobre 2008
-
21 oct. 2008 à 11:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
abmnono
Messages postés1Date d'inscriptionlundi 15 mars 2004StatutMembreDernière intervention21 octobre 2008 21 oct. 2008 à 11:55
(l 26) : CompteurDebut = NumPageEnCours - 9 et non CompteurDebut = PageEnCours - 9
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 8 févr. 2002 à 23:16
monRecordset.PageSize = Le nombre de pages qu'on veux
monRecordset.CacheSize = Le nombre de pages qu'on veux
monRecordSet.PageCount retourne le nombre de pages qu'il ya / à monRecordSet.pagesize.
exemple :
NbEnrPages = 12
monRecordset.pagesize = nbEnrPages
monRecordset.Cachesize = nbEnrPages
'---------------------------------------------
S'il ya 40 enregistrements -->
Dim TotalPages
TotalPages = MonRecordset.pageCount
TotalPages sera = 4...
'---------------------------------------------
'Pour connaitre le numéro de page sur lequel on est :
Dim ActualPage.
If ActualPage "" then ActualPage 1
on peut dire :
'----------------------
If ActualPage > TotalPages Then ActualPage = TotalPages
If ActualPage < 1 Then ActualPage = 1
If TotalPages = 0 Then
Response.Write "<center>Il n'y as pas de réponse à votre requette</center>"
Else
monRecordset.AbsolutePage = ActualPage
'Le code qui affiche la page...
End If
'----------------------
If ActualPage > 1 Then
%>
[mapage.asp?page=<%= ActualPage - 1 %>&MesAutresParametres... [<< Précédent]]
<%
End If
Dim I
For I = 1 To TotalPages
If I = ActualPage Then
Response.Write I
Else
%>
[mapage.asp?page=<%= I %>&MesAutresParametres... <%= I %>]
<%
End If
Next 'I
If ActualPage < TotalPages Then
%>
[mapage.asp?page=<%= ActualPage + 1 %>&MesAutresParametres... [Suivant >>]]
<%
End If
'----------------------
ronando
Messages postés141Date d'inscriptionlundi 24 décembre 2001StatutMembreDernière intervention 5 juillet 2007 29 janv. 2002 à 20:40
j'utilise le paging de Vbfrance et aspfr
j'ai un probleme : voici le message d'erreur :
"L'opération demandée par l'application n'est pas prise en charge par le fournisseur. "
La ligne ou ca bug est en rouge..
de koi ca peut venir ? merci !
voici mon script :
<%@ LANGUAGE="VBSCRIPT"%>
<html>
<head>
</head>
<!--#include file="adovbs.inc"-->
<%
Dim NumPageEnCours
Dim TaillePage
Dim MaxPages
Dim MaxEnrgs
Dim CombienDeRecs
Dim MonObjRS
NumPageEnCours = Request("quelpage")
If NumPageEnCours "" Then NumPageEnCours 1
TaillePage = Request("taillepage")
If TaillePage "" Then TaillePage 16
'ouverture d'une connexion avec la base
set baselink=server.createobject("ADODB.connection")
baselink.open "Favorisodbc", "", ""
'creation de l'instruction sql
varsql= "SELECT * FROM adresse WHERE NumDom= " & request.querystring("dom")
varsql=varsql &" ORDER BY DateS DESC"
'creation du jeu d'enregistrement
set MonRecordadr=server.createobject("ADODB.recordset")
MonRecordadr.open varsql, baselink
MonRecordadr.pagesize = TaillePage
MaxPages = CInt(MonRecordadr.pagecount)
MaxEnrgs = CInt(MonRecordadr.pagesize)
[red]If Not MonRecordadr.EOF Then MonRecordadr.absolutepage = NumPageEnCours/red CombienDeRecs = 0
%>
Bon voila le truc :
il faut mettre :
If (NumPageEnCours mod 10) = 0 Then
CompteurDebut = NumPageEnCours - 9
Else
CompteurDebut = NumPageEnCours - (NumPageEnCours mod 10) + 1
End If
Au lieu de
If (NumPageEnCours mod 10) = 0 Then
CompteurDebut = PageEnCours - 9
Else
CompteurDebut = NumPageEnCours - (NumPageEnCours mod 10) + 1
End If
Bon alor spour l erreur j ai moi aussi le probleme mais c est normal .
Lorsque l on ouvre la connection sur la BD (pour moi access) j ai la proprite dPageSize de l objet recordset qui renvoit -1 indiquant que la source founissant les donnees n accepte pas la pagination alors je me suis fait ma pagination manuellement c facile!!
Bon alor spour l erreur j ai moi aussi le probleme mais c est normal .
Lorsque l on ouvre la connection sur la BD (pour moi access) j ai la proprite dPageSize de l objet recordset qui renvoit -1 indiquant que la source founissant les donnees n accepte pas la pagination alors je me suis fait ma pagination manuellement c facile!!
21 oct. 2008 à 11:55
8 févr. 2002 à 23:16
monRecordset.CacheSize = Le nombre de pages qu'on veux
monRecordSet.PageCount retourne le nombre de pages qu'il ya / à monRecordSet.pagesize.
exemple :
NbEnrPages = 12
monRecordset.pagesize = nbEnrPages
monRecordset.Cachesize = nbEnrPages
'---------------------------------------------
S'il ya 40 enregistrements -->
Dim TotalPages
TotalPages = MonRecordset.pageCount
TotalPages sera = 4...
'---------------------------------------------
'Pour connaitre le numéro de page sur lequel on est :
Dim ActualPage.
If ActualPage "" then ActualPage 1
on peut dire :
'----------------------
If ActualPage > TotalPages Then ActualPage = TotalPages
If ActualPage < 1 Then ActualPage = 1
If TotalPages = 0 Then
Response.Write "<center>Il n'y as pas de réponse à votre requette</center>"
Else
monRecordset.AbsolutePage = ActualPage
'Le code qui affiche la page...
End If
'----------------------
If ActualPage > 1 Then
%>
[mapage.asp?page=<%= ActualPage - 1 %>&MesAutresParametres... [<< Précédent]]
<%
End If
Dim I
For I = 1 To TotalPages
If I = ActualPage Then
Response.Write I
Else
%>
[mapage.asp?page=<%= I %>&MesAutresParametres... <%= I %>]
<%
End If
Next 'I
If ActualPage < TotalPages Then
%>
[mapage.asp?page=<%= ActualPage + 1 %>&MesAutresParametres... [Suivant >>]]
<%
End If
'----------------------
29 janv. 2002 à 20:40
j'ai un probleme : voici le message d'erreur :
"L'opération demandée par l'application n'est pas prise en charge par le fournisseur. "
La ligne ou ca bug est en rouge..
de koi ca peut venir ? merci !
voici mon script :
<%@ LANGUAGE="VBSCRIPT"%>
<html>
<head>
</head>
<!--#include file="adovbs.inc"-->
<%
Dim NumPageEnCours
Dim TaillePage
Dim MaxPages
Dim MaxEnrgs
Dim CombienDeRecs
Dim MonObjRS
NumPageEnCours = Request("quelpage")
If NumPageEnCours "" Then NumPageEnCours 1
TaillePage = Request("taillepage")
If TaillePage "" Then TaillePage 16
'ouverture d'une connexion avec la base
set baselink=server.createobject("ADODB.connection")
baselink.open "Favorisodbc", "", ""
'creation de l'instruction sql
varsql= "SELECT * FROM adresse WHERE NumDom= " & request.querystring("dom")
varsql=varsql &" ORDER BY DateS DESC"
'creation du jeu d'enregistrement
set MonRecordadr=server.createobject("ADODB.recordset")
MonRecordadr.open varsql, baselink
MonRecordadr.pagesize = TaillePage
MaxPages = CInt(MonRecordadr.pagecount)
MaxEnrgs = CInt(MonRecordadr.pagesize)
[red]If Not MonRecordadr.EOF Then MonRecordadr.absolutepage = NumPageEnCours/red
CombienDeRecs = 0
%>
suite du scipt....[...]
7 déc. 2001 à 14:48
il faut mettre :
If (NumPageEnCours mod 10) = 0 Then
CompteurDebut = NumPageEnCours - 9
Else
CompteurDebut = NumPageEnCours - (NumPageEnCours mod 10) + 1
End If
Au lieu de
If (NumPageEnCours mod 10) = 0 Then
CompteurDebut = PageEnCours - 9
Else
CompteurDebut = NumPageEnCours - (NumPageEnCours mod 10) + 1
End If
7 déc. 2001 à 14:33
Quelqu'un aurait trouvé une solution ?
Merci d'avance
7 sept. 2001 à 17:20
Lorsque l on ouvre la connection sur la BD (pour moi access) j ai la proprite dPageSize de l objet recordset qui renvoit -1 indiquant que la source founissant les donnees n accepte pas la pagination alors je me suis fait ma pagination manuellement c facile!!
7 sept. 2001 à 17:16
Lorsque l on ouvre la connection sur la BD (pour moi access) j ai la proprite dPageSize de l objet recordset qui renvoit -1 indiquant que la source founissant les donnees n accepte pas la pagination alors je me suis fait ma pagination manuellement c facile!!
17 août 2001 à 22:25
ADODB.Recordset erreur '800a0bb9'
L'application utilise des paramètres d'un type incorrect, en dehors des limites autorisées ou en conflit avec d'autres paramètres.
/dansehiphop/gallerie.asp, ligne 320
19 juin 2001 à 14:12
Dans certain cas j'obtiens l'erreur suivante :
Erreur d'exécution Microsoft VBScript error '800a000d'
Type incompatible: 'PageEnCours'
/pagesimple.asp, line 66
Dans mon code ca correspond à la ligne suiavnte :
CompteurDebut = PageEnCours - 9
J'obtiens cette erreur dans le cas extreme suivant :
en cliquant sur le lien
- 10 pages Précédente
Pouriez vous m'aider car sinon ce code est splendide ?
D'avance merci
27 mai 2001 à 18:57
mais je ne peux recuperer ma variable issue d'un formulaire
quand je change de page