Problème d'index négatif

Version imprimable

Bonjour,
Je souhaite modifier les valeurs de ma base locale CE.

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 Private Sub btn_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
        'Gestion des erreurs de saisie
 
 
        Dim ctl As Control
        Dim HasError As Boolean = False
        Dim Nom_champ As String
 
        EP.Clear()
 
        '
 
        'If txt_Nom.Text.Length = 0 Then
 
        '    EP.SetError(txt_Nom, "Le champ ""Nom"" ne peut être vide !")
 
        '    HasError = True
 
        'End If
 
        '
        For Each ctl In Me.Pnltex2.Controls
            If ctl.Text.Length = 0 Then
 
                Nom_champ = ctl.Name
                EP.SetError(ctl, "Le champ " & Nom_champ & " ne peut être vide !")
                HasError = True
 
                'ElseIf ctl.Text.Length <> 0 Then
 
                '    HasError = False
 
            End If
 
        Next
 
        If HasError Then
 
            Exit Sub
 
            'ElseIf HasError = False Then
 
            '    EP.Clear()
 
        End If
 
        '
 
        REM: nous pourrions aller plus loin dans cette gestion des erreur
 
        REM: avec l'ajout d'expressions régilères (RegEx)
 
        REM: pour contrôler les champs tel que l'email ou le code postal,
 
        REM: mais ce n'est pas le but de ce tutoriel.
 
        '
 
        'Récupération de la valeur de la colonne 0 de la première ligne
 
        'sélectionné dans notre DGV.
 
 
 
        Try
 
            '
            Dim ID As Guid = CType(DGlistcand.SelectedRows(0).Cells(0).Value, Guid)
            'Appel de la procédure Update de notre TableAdapter qui tranmettra
 
            'la requête SQL UPDATE.
 
            Dim NbLine As Integer = CandidatTableAdapter.Modifier
 
            REM: Cette procédure retourne un entier indiquant le nombre de lignes modifiés.
 
            '
 
            If NbLine > 0 Then
 
 
 
                MessageBox.Show("Le contact a bien été mis à jour dans la base de données.", "Mise à jour du contact", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                'La modification effectuée nous actualisons les données de notre source
 
                'de données en effectuant une requête
 
                'SELECT de nouveau.
 
                Call RefreshDataSource()
 
            End If
 
            '
 
        Catch ex As Exception
 
            MessageBox.Show("Une erreur est survenue durant l'accès à la base de données." & Environment.NewLine & "Détails de l'erreur: " & ex.Message, "Echec de l'accès aux données.", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
        End Try
 
 
    End Sub

et J'ai une erreur d'index lorsque je click sur le bouton "save", Voici l'erreur :

Citation:

Une erreur est survenue durant l'accès à la base de données
L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection.
Nom du paramètre : index

C'est une erreur bète je pense mais je bloque un regard neuf trouvera l'erreur enfin j'espère merci d'avance !

16/06/2010, 15h16
methylene

Et si tu commençais par nous indiquer sur quelle ligne tu as une erreur ?
16/06/2010, 16h00
kek's

Code:

Dim ID As Guid = CType(DGlistcand.SelectedRows(0).Cells(0).Value, Guid)

C'est sur cette ligne qu'il y a l'erreur désolé ^^
16/06/2010, 16h05
Sehnsucht

Bonjour,

Citation:

Envoyé par kek's

Code:

Dim ID As Guid = CType(DGlistcand.SelectedRows(0).Cells(0).Value, Guid)

C'est sur cette ligne qu'il y a l'erreur désolé ^^

Ce code permet de prendre le contenu de la première (index en base 0) cellule de la première ligne sélectionnée (SelectedRows) de ton DataGrid(View) or s'il n'y a pas de sélection au moment du clic, le "tableau" SelectedRows ne contient rien, d'où plantage de l'index.

Donc il faut sans doute vérifier qu'une sélection est bien présente je pense

Code:

SelectedRows.Count > 0

Cordialement !
16/06/2010, 16h05
methylene

L'erreur vient de là :

Code:

DGlistcand.SelectedRows(0).Cells(0).Value

Comment déclares-tu

Code:

DGlistcand

et comment le remplis-tu (code).

Merci
17/06/2010, 11h00
kek's

Je remplis mon datagrid grâce à une bidingsource qui prend les valeurs de ma base CE et mon datagrid n'est pas déclarer il est sur ma form.
Mais je comprend pas cette histoire d'index négatif comment est-ce que je peut avoir cette erreur ?
17/06/2010, 11h09
methylene

Je dirais que Sehnsucht t'as dit ou le problème était, quoique je ne sais pas si aucune cellule n'est sélectionné si l'erreur est bien un index négatif. Et normalement de base le Datagridview a toujours une ligne de sélectionné.

As-tu bien une ligne de sélectionné dans ton DataGrid quand tu exécutes ce code ?
17/06/2010, 14h07
kek's

Oui j'ai bien une ligne de sélectionnée quand je lance la compilation et l'erreur serai apparement à cause de l'index négatif.
17/06/2010, 14h21
kek's

Salut Sehnsucht, désolé de ne pas t'avoir répondu mais la solution que tu m'a proposé ne convient pas car il y a tjs une ligne qui est sélectionnée donc je vois pas du tout d'où vient le problème mais merci de ta réponse et merci aux autres aussi.
17/06/2010, 15h02
methylene

Question qui peut paraître bête, mais lors de l'éxecution de la ligne en "erreur" est-ce que ton datagridview est bien remplit (je veux dire visuellement).
17/06/2010, 15h40
kek's

Oui oui il est bien rempli c'est juste quand je click sur le bouton pour enregistrer les modifs qui que l'erreur apparait.
18/06/2010, 18h00
kek's

J'ai toujours rien trouvé à propos de mon problème, si quelqu'un a une idée je suis preneur mercii !

Prenons les choses dans l'ordre, tu as:

Code:

Dim ID As Guid = CType(DGlistcand.SelectedRows(0).Cells(0).Value, Guid)

qui te renvoie une erreur d'index hors limites (donc < 0 ou >= au Count)

il n'y a qu'à décomposer ton instruction pour voir à quel moment ça coince:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim selectedRows As DataGridViewSelectedRowCollection = DGlistcand.SelectedRows If selectedRows Is Nothing Then Throw New ArgumentNullException("selectedRows") Dim selectedRow As DataGridViewRow = selectedRows(0) If selectedRow Is Nothing Then Throw New ArgumentNullException("selectedRow") Dim cells As DataGridViewCellCollection = selectedRow.Cells If cells Is Nothing then Throw New ArgumentNullException("cells") Dim cell As DataGridViewCell = cells(0) If cell Is Nothing then Throw New ArgumentNullException("cell") Dim value As Object = cell.Value If value Is Nothing then Throw New ArgumentNullException("value") Dim id As Guid = Nothing If Not TryCast(value, Guid) Then Throw New InvalidCastException("conversion impossible")
Avec ce genre de code, tu devrais pouvoir déterminer plus facilement où se situe le problème ce qui permettra de le résoudre plus facilement.

Question subsidiaire: Peux-tu me dire également quelle est la valeur de la propriété SelectionMode de ton DataGridView ?

22/06/2010, 09h48
kek's

La propriété de selectionMode de mon Datagrid est : RowHeaderSelect

Par contre là je serai pas te dire à quoi cela correspond :?
Merci de ton aide.
22/06/2010, 11h30
kek's

Rebonjour,
J'ai modifié la table en question, j'ai changé le type de valeurs de l'identifiant qui était en Nvarchar, en uniqueidentifier et maintenant j'ai une autre erreur lorsque je veux rentrer des occurrences dans ma base, le problème se pose lors de l'insertion du numdossier et une erreur apparait :

Citation:

La valeur modifiée dans cette cellule n'est pas reconnue valide.
Type de données .Net Framework : Guid
Le Guid doit contenir 32 chiffres et 4 tirets

Comment puis-je éviter cette erreur afin de continuer ?

Merci d'avance

Encore bonjour, j'ai remodifier mon code(qui permet de modifier les informations initiale "UPDATE") :

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
 'Récupération de la valeur de la colonne 0 de la première ligne

        'sélectionné dans notre DGV.


        Dim ID As Integer = CType(DGlistcand.SelectedRows(0).Cells(0).Value, Integer)

        

        Try

            

            'Appel de la procédure Update de notre TableAdapter qui tranmettra

            'la requête SQL UPDATE.

            Dim NbLine As Integer = CandidatTableAdapter.Update(MyDataSet)

            REM: Cette procédure retourne un entier indiquant le nombre de lignes modifiés.

            

            If NbLine > 0 Then

                MessageBox.Show("Le contact a bien été mis à jour dans la base de données.", "Mise à jour du contact", MessageBoxButtons.OK, MessageBoxIcon.Information)

                'La modification effectuée nous actualisons les données de notre source

                'de données en effectuant une requête

                'SELECT de nouveau.

                Call RefreshDataSource()

            End If

            '

        Catch ex As Exception

            '

            MessageBox.Show("Une erreur est survenue durant l'accès à la base de données." & Environment.NewLine & "Détails de l'erreur: " & ex.Message, "Echec de l'accès aux données.", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

            '

        End Try

et j'ai cette erreur qui revient:

Citation:

L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection.
Nom du paramètre : index

J'arrive toujours pas à régler le problème, est-ce quelqu'un a une idée ?
Merci d'avance

24/06/2010, 12h58
Hinault Romaric

Salut,

Fait voir la fonction CandidatTableAdapter()

@++ ;)
24/06/2010, 15h46
kek's

ce n'est pas un fonction c'est l'équivalent d'une table dans une Bdd.
Ici ma base est sous sql serveur Compact Edition et le tableadapter(équivalent de la table de la base) se trouve dans mon dataset.
A ce table adapter tu peux ajouter des requêtes toutes faites que tu appelle dans ton code comme s'est le cas ici.

Va voir ce tuto si tu ne comprend pas :

Voila merci de ton aide !