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

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

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 !