Instaurer facilement un système de pagination sur un contrôle Repeater d'ASP.net grâce à la propriétée PagedDataSource d'un DataSet.
Pour utiliser ce code sur une base de donnée existante, il suffit de modifier la chaîne de connexion se trouvant dans le fichier Web.config :
<connectionStrings>
<add name="ConnectionString" connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\VotreDatabase.mdf;Integrated Security=True;User Instance=True"
providerName="System.Data.SqlClient" />
</connectionStrings>
Tout est dans le .zip.
Source / Exemple :
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim builderLinkPages As System.Text.StringBuilder = New System.Text.StringBuilder(1024)
Dim strRequest As Integer
'Chaîne de connexion à la base de donnée se trouvant sous le nom de ConnectionString dans le fichier Web.config
Dim myConnection As New Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString.ToString())
'Requête à la base de donnée
Dim objCommand As New SqlDataAdapter("SELECT * From Table1", myConnection)
'Définition du DataSet
Dim ds As New DataSet()
objCommand.Fill(ds)
'Déclataion du PagedDataSource
Dim objPds As New PagedDataSource()
objPds.DataSource = ds.Tables(0).DefaultView
'Autoriser l'utilisation de la pagination
objPds.AllowPaging = True
'Définition du nombre de données de la base de donnée à afficher par page
'Ici, retournera 5 éléments par pages
objPds.PageSize = 5
'Variable Page actuelle (contiendra le numéro de la page en cours)
Dim CurPage As Integer
'On vérifie si la variable "Page" du QueryString est bien remplie et si c'est bien un chiffre
Try
If Not Request.QueryString("Page") Is Nothing And Request.QueryString("Page") <= objPds.PageCount Then
strRequest = Convert.ToInt32(Request.QueryString("Page").ToString())
CurPage = strRequest
Else
'Si la variable QueryString Page est vide ou est plus grande que le nombre total de page
'On renvoi la page 1 par défaut
CurPage = 1
strRequest = 1
End If
Catch ex As Exception
'En cas d'erreur, si la variable QueryString Page n'est pas un chiffre valide
'On renvoi la page 1 par défaut
CurPage = 1
strRequest = 1
End Try
'Boucle qui retourne les liens vers toutes les pages de la pagination (Page 1, Page 2, Page 3, ...)
For i As Integer = 1 To objPds.PageCount
If strRequest = i Then
'Si la page courrante est égale au chiffre retourné par la boucle, on définit la page et son numéro sans lien
builderLinkPages.Append("<b>Page " & i & "</b> ")
Else
'Si la page courrante est pas égale au chiffre retourné par la boucle, on définit la page et son numéro avec un lien
builderLinkPages.Append("<a href=""" & Request.CurrentExecutionFilePath & "?Page=" & i & """ title=""Page " & i & """>Page " & i & "</a> ")
End If
Next
'Ajout de toutes les pages et tous les liens dans le contrôle Literal "litNumbersPages"
litNumbersPages.Text = builderLinkPages.ToString
objPds.CurrentPageIndex = CurPage - 1
'Affichage du numéro de la page en cours et du nombre de page total (Ex.: Page 2 sur 5)
lblCurrentPage.Text = "Page: " & CurPage.ToString() & " sur " & objPds.PageCount()
If Not objPds.IsFirstPage Then
'Si la page en cours n'est pas la première page
'On définit l'url du lien "Précédent" et du lien "Première page"
lnkPrev.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(CurPage - 1)
lnkBegin.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=1"
Else
'Si la page en cours est la première page (1)
'Ne pas afficher le lien "Précédent" et "Première page"
lnkPrev.Visible = False
lnkBegin.Visible = False
End If
If Not objPds.IsLastPage Then
'Si la page en cours n'est pas la dernière page
'On définit l'url du lien "Suivant" et du lien "Dernière page"
lnkNext.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(CurPage + 1)
lnkEnd.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & objPds.PageCount
Else
'Si la page en cours est la dernière page
'Ne pas afficher le lien "Suivant" et "Dernière page"
lnkNext.Visible = False
lnkEnd.Visible = False
End If
'Définir que le PagedDataSource "objPds" est la source de donnée du Repeater
Repeater1.DataSource = objPds
'Insertion des données de la base de donnée dans le contrôle Repeater
Repeater1.DataBind()
End Sub
End Class
Conclusion :
Un code que j'utilise énormément sur le contrôle Repeater d'ASP.net. J'espère qu'il pourra autant vous être utile.
Je me suis grandement inspiré d'une autre source en la complétant et en la peaufinant à ma façon pour un Repeater.
Je me doute que l'utilisation du Try pour vérifier si la variable du QueryString "Page" est bien un chiffre n'est pas la meilleur solution, donc n'hésitez pas à apporter vos commentaires et suggestions pour cette source :-)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.