Pagination d'un datagrid

**alicia26** · 06/06/2007, 20h19

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

EnableViewState="True"

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

Merci pour votre aide

**Ensiaste2006** · 07/06/2007, 00h59

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

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

**alicia26** · 07/06/2007, 11h04

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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??!!

**alicia26** · 07/06/2007, 20h45

salut
il se produit quelque chose que je comprend pas.
Quand je mets dans mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je retourne dans mon code et je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyDataGrid.CurrentPageIndex = 0

impossible de paginer

une aide,svp????

**Ensiaste2006** · 08/06/2007, 02h03

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyDataGrid.CurrentPageIndex = 0

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

??

**alicia26** · 08/06/2007, 10h06

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Ensiaste2006** · 09/06/2007, 01h15

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!!

**Ensiaste2006** · 09/06/2007, 01h21

Oooops !!
y a un CATCH ex AS EXCEPTTION
... qui s'est glissé par erreur...
Excuz

**alicia26** · 11/06/2007, 12h25

salut
décidement

plus de pagination du tout??

**alicia26** · 11/06/2007, 13h31

voici mon code behind

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.......

**Ensiaste2006** · 11/06/2007, 16h00

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??

**alicia26** · 11/06/2007, 16h53

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci pour tout

a++

**Ensiaste2006** · 12/06/2007, 00h39

Cool !!

Pagination d'un datagrid

ASP.NET

Discussions similaires

Partager

Partager