PAGINATION CONTRÔLE REPEATER ASP.NET AVEC UN DATASET

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

Télécharger le zip

09 juin 2008 12:01:55 :

Suppresion du log de la base de donnée