Pagination contrôle repeater asp.net avec un dataset

Description

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 :-)

Codes Sources

A voir également

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.