Soyez le premier à donner votre avis sur cette source.
Vue 16 917 fois - Téléchargée 750 fois
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
'Impossible d'effectuer un calcul pour une source de données qui n'implémente pas Icollection'
sur objPds.PageCount
sachant que j'utilise un SqlDataReader pour lire les données.
Quelqu'un pourrait m'aider pour résoudre ce problème ?
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.