Pagination d'un datagrid

Version imprimable

06/06/2007, 20h19
alicia26

Pagination d'un datagrid

:salut:
j'obtiens mon datagrid à partir d'un dropdownlist connecté à ma BDD.
Le problème: les autres pages de mon datagrid ne m'affiche rien et
en insérant

Code:

EnableViewState="True"

le datagrid m'affiche les mêmes données dans toutes les pages .

Merci pour votre aide
07/06/2007, 00h59
Ensiaste2006

si tu veux réaliser la pagination dans ta DataGrid, dans l' évenement PageIndexChanged fait :

Datagrid1.CurrentPageIndex = e.NewPageIndex
Datagrid1.databind()

bonjour
et merci pour ta réponse
en effet en ajoutant ce bout de code

Code:

1
2
3
4
5
Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
 
MyDataGrid.CurrentPageIndex = e.NewPageIndex
MyDataGrid.DataBind()
End Sub

et dans mon datagrid

Code:

OnPageIndexChanged="MyDataGrid_Page"

les autres pages s'affichent,mais le hic maintenant est que comme les données s'affichent en fonction de la valeur de mon dropdownlist,il faut toujours cliquer avant d'afficher les données de mon datagrid sur les autres pages.

Voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 Dim MyConnection As SqlConnection
 
 
    Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
        MyConnection = New SqlConnection("Server=(local); Initial Catalog='mission';" _
                    & " Trusted_Connection=True;")
 
        If Not (IsPostBack) Then
 
            Dim DS As DataSet
            Dim MyCommand As SqlDataAdapter
 
            MyCommand = New SqlDataAdapter("select distinct structure from agent", MyConnection)
            DS = New DataSet()
            MyCommand.Fill(DS, "structure")
 
            MySelect.DataSource = DS.Tables("structure").DefaultView
            MySelect.DataBind()
 
 
        End If
    End Sub
 
    Sub GetAgent_Click(ByVal Sender As Object, ByVal E As EventArgs)
 
        Dim SelectCmd As String = "select idagent,matricule,noms,prenoms,email,structure,qualite,objetmission,pays,ville from agent where structure = @structure"
 
        Dim DS As DataSet
        Dim MyCommand As SqlDataAdapter
 
        MyCommand = New SqlDataAdapter(SelectCmd, MyConnection)
 
        MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@structure", SqlDbType.VarChar, 50))
        MyCommand.SelectCommand.Parameters("@structure").Value = MySelect.Value
 
        DS = New DataSet()
        MyCommand.Fill(DS, "structure")
 
        MyDataGrid.DataSource = DS.Tables("structure").DefaultView
        MyDataGrid.DataBind()
    End Sub
 
    Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
 
 
        MyDataGrid.CurrentPageIndex = e.NewPageIndex
 
        MyDataGrid.DataBind()
 
    End Sub

Comment y rémedier??!!:?

07/06/2007, 20h45
alicia26
salut
il se produit quelque chose que je comprend pas.
Quand je mets dans mon code
Code:

1 2 3 4 5 Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs) MyDataGrid.CurrentPageIndex = e.NewPageIndex MyDataGrid.DataBind() End Sub
la pagination est correct.Mais dès que je suis par exemple à la page N°5 et que je désire changer la valeur de mon dropdownlist en cliquant sur ma liste déroulante,j'ai cette erreur

Code:

Valeur CurrentPageIndex non valide. Elle doit être >= 0 et < PageCount.

Je retourne dans mon code et je mets

Code:

MyDataGrid.CurrentPageIndex = 0

impossible de paginer:(

une aide,svp????
08/06/2007, 02h03
Ensiaste2006
Code:

MyDataGrid.CurrentPageIndex = 0

tu l'as met ou au juste?
tu a essayé de le mettre avant le bloc
Code:

1 2 MyDataGrid.DataSource = DS.Tables("structure").DefaultView MyDataGrid.DataBind()
??

bonjour
en faite je l'ai mise dans une méthode MyDataGrid_Page que j'appelle dans mon datagrid OnPageIndexChanged="MyDataGrid_Page"

voici mon code behind

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim MyConnection As SqlConnection
     Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
        MyConnection = New SqlConnection("Server=(local); Initial Catalog='mission';" _
                    & " Trusted_Connection=True;")
 
        If Not (IsPostBack) Then
 
            Dim DS As DataSet
            Dim MyCommand As SqlDataAdapter
 
            MyCommand = New SqlDataAdapter("select distinct structure from agent", MyConnection)
            DS = New DataSet()
            MyCommand.Fill(DS, "structure")
            MySelect.DataSource = DS.Tables("structure").DefaultView
            MySelect.DataBind()
        End If
 
    End Sub

Code:

1
2
3
4
5
Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
             MyDataGrid.CurrentPageIndex = 0
                   MyDataGrid.DataBind()
 
    End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
    Sub GetAgent_Click(ByVal Sender As Object, ByVal E As EventArgs)
 
        Dim SelectCmd As String = "select idagent,matricule,noms,prenoms,email,structure,qualite from agent where structure = @structure"
 
        Dim DS As DataSet
        Dim MyCommand As SqlDataAdapter
 
        MyCommand = New SqlDataAdapter(SelectCmd, MyConnection)
 
        MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@structure", SqlDbType.VarChar, 50))
        MyCommand.SelectCommand.Parameters("@structure").Value = MySelect.Value
 
        DS = New DataSet()
        MyCommand.Fill(DS, "structure")
 
        MyDataGrid.DataSource = DS.Tables("structure").DefaultView
        MyDataGrid.DataBind()
    End Sub

si tu fait comme ça, y aura plus de pagination..car ça va boucler sur la premiere page..

j'ai simulé ton problème dans une application et j'ai reçu la même exception,
je crois avoir compris le problème.

lorsque tu choisit une structure avec un nombre d'agent de 10 par exemple, et si la page et 2 items, tu aura 5 pages dans MyDatagrid. mais lorsque tu va choisir une 2éme structure avec 6 agents, MyDatgrid1 se rappel tjrs du plus grand nombre de page, à savoir 10 et non pas 3 !!. si tu a déjà séléctionné la page 8 dans la 1ére structure une exception du type

Code:

Valeur CurrentPageIndex non valide. Elle doit être >= 0 et < PageCount.

saute!!!!!
du fait que l'index 7 et hors limite qui est 6 !!!!

la solution est : (QUEEEELLLE JOLI MOT SOLUTION:mrgreen: )
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub GetAgent_Click(ByVal Sender As Object, ByVal E As EventArgs) Dim SelectCmd As String = "select idagent,matricule,noms,prenoms,email,structure,qualite from agent where structure = @structure" Dim DS As DataSet Dim MyCommand As SqlDataAdapter MyCommand = New SqlDataAdapter(SelectCmd, MyConnection) MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@structure", SqlDbType.VarChar, 50)) MyCommand.SelectCommand.Parameters("@structure").Value = MySelect.Value DS = New DataSet() MyCommand.Fill(DS, "structure") MyDataGrid.DataSource = DS.Tables("structure").DefaultView Try MyDataGrid.DataBind() Catch ex As Exception MyDataGrid.CurrentPageIndex = 0 MyDataGrid.DataBind() End TryCATCH ex AS EXCEPTTION End Sub
il suffit de catcher l'exception, réinitialiser la page à 0, et binder par la suite!!!

09/06/2007, 01h21
Ensiaste2006

Oooops !!
y a un CATCH ex AS EXCEPTTION
... qui s'est glissé par erreur...
Excuz :oops:
11/06/2007, 12h25
alicia26

salut
décidement :(
plus de pagination du tout??

voici mon code behind

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Dim MyConnection As SqlConnection
      Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
        MyConnection = New SqlConnection("Server=(local); Initial Catalog='mission';" _
                    & " Trusted_Connection=True;")
       
        If Not (IsPostBack) Then

            Dim DS As DataSet
            Dim MyCommand As SqlDataAdapter

            MyCommand = New SqlDataAdapter("select distinct structure from agent", MyConnection)
            DS = New DataSet()
            MyCommand.Fill(DS, "structure")
            MySelect.DataSource = DS.Tables("structure").DefaultView
            MySelect.DataBind()
                      End If
        
    End Sub
    
    Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)   
     MyDataGrid.CurrentPageIndex = e.NewPageIndex
        
        '   MyDataGrid.DataBind()
        Try
            MyDataGrid.DataBind()
        Catch ex As Exception
            MyDataGrid.CurrentPageIndex = 0
            MyDataGrid.DataBind()
        End Try
    End Sub

    Sub GetAgent_Click(ByVal Sender As Object, ByVal E As EventArgs)

        Dim SelectCmd As String = "select idagent,matricule,noms,prenoms,email,structure,qualite from agent where structure = @structure"

        Dim DS As DataSet
        Dim MyCommand As SqlDataAdapter

        MyCommand = New SqlDataAdapter(SelectCmd, MyConnection)

        MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@structure", SqlDbType.VarChar, 50))
        MyCommand.SelectCommand.Parameters("@structure").Value = MySelect.Value

        DS = New DataSet()
        MyCommand.Fill(DS, "structure")
      
        MyDataGrid.DataSource = DS.Tables("structure").DefaultView
        MyDataGrid.DataBind()
         
    End Sub

je remarque qu'il est possible de paginer correctement avec la même valeur de MySelect et de paginer avec des valeurs différentes de MySelect si MySelect1 et MySelect3 ont une pagination allant jusqu'au n°2.

Si par hasard MySelect1 a une page n°4 et je désire aller directement à MySelect5 qui n'a que 3 pages

Code:

Valeur CurrentPageIndex non valide. Elle doit être >= 0 et < PageCount.

Tout de même,je pense remplacer ma dropdownlist par un textbox,j'ose espérer que ce sera idem.......

11/06/2007, 16h00
Ensiaste2006

le bloc Try
Catch
End TRy
doit être dans l'évement click sur le bouton GetAgent, si j'ai bien compris, tu as une liste MySelect, dont tu choisi une option, et l'affichage du DataGrid se fait par Click sur le bouton GetAgent??

ok,çà marche correct
ma fonction MyDatagrid_Page se réduit alors à:
Code:

1 2 3 Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs) MyDataGrid.CurrentPageIndex = e.NewPageIndex End Sub
Merci pour tout 8-)
a++

12/06/2007, 00h39
Ensiaste2006

Cool !!