Ajout de données dans une table à partir d'un datagridview

Version imprimable

1 pièce(s) jointe(s)

Salut le forum je voudrais à partir d'un datagridview enregistrer les éléments de salaire des employés dans la table salaire
pour cela j'ai écrit le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  For index As Integer = 0 To dgvElementSalaire.RowCount - 1
            cmd.CommandText = "INSERT INTO [SALAIRE] ([EM_ID],[SA_ID],[IDCLIENT],[Date_Debut],[Date_Fin],[MONTANT],[IDNATURE])
values (@EM_ID,@SA_ID,@IDCLIENT,@Date_Debut,@Date_Fin,@MONTANT,@IDNATURE)"
            cmd.Parameters.AddWithValue("@EM_ID", dgvElementSalaire.Rows(index).Cells(5).Value)
            cmd.Parameters.AddWithValue("@SA_ID", dgvElementSalaire.Rows(index).Cells(7).Value)
            cmd.Parameters.AddWithValue("@IDCLIENT", dgvElementSalaire.Rows(index).Cells(6).Value)
            cmd.Parameters.AddWithValue("@Date_Debut", dtpDateDebut.Value)
            cmd.Parameters.AddWithValue("@Date_Fin", dtpDateFin.Value)
            cmd.Parameters.AddWithValue("@MONTANT", dgvElementSalaire.Rows(index).Cells(4).Value)
            cmd.Parameters.AddWithValue("@IDNATURE", dgvElementSalaire.Rows(index).Cells(8).Value)
 
            Call Connecter()
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            Call deconnecter()
        Next

mais lors du test je reçois toujours l'erreur suivant:
Pièce jointe 486702
et je ne comprend pas ce qui

Bonjour,

Je n'ai pas la même syntaxe que toi pour les paramètres. Peux-tu essayer ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
' ...
            Dim Param As OleDbParameter   ' MySqlParameter ou SqlParameter ou ... selon ton SGBD
' ...
Param = New OleDBParameter("@EM_ID", dgvElementSalaire.Rows(index).Cells(5).Value)
cmd.Parameters.Add(Param)
Param = New OleDBParameter("@SA_ID", dgvElementSalaire.Rows(index).Cells(7).Value)
cmd.Parameters.Add(Param)
Param = New OleDBParameter("@IDCLIENT", dgvElementSalaire.Rows(index).Cells(6).Value)
cmd.Parameters.Add(Param)
Param = New OleDBParameter("@Date_Debut", dtpDateDebut.Value)
cmd.Parameters.Add(Param)
Param = New OleDBParameter("@Date_Fin", dtpDateFin.Value)
cmd.Parameters.Add(Param)
Param = New OleDBParameter("@MONTANT", dgvElementSalaire.Rows(index).Cells(4).Value)
cmd.Parameters.Add(Param)
Param = New OleDBParameter("@IDNATURE", dgvElementSalaire.Rows(index).Cells(8).Value)
cmd.Parameters.Add(Param)
' ...

1 pièce(s) jointe(s)

Bonsoir Phil Rob
même avec cette commande j'ai la même erreur
je précise que je suis sous sql server 2014

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
 
        For index As Integer = 0 To dgvElementSalaire.RowCount - 1
            cmd.CommandText = "INSERT INTO [SALAIRE] ([EM_ID],[SA_ID],[IDCLIENT],[Date_Debut],[Date_Fin],[MONTANT],[IDNATURE])
values (@EM_ID,@SA_ID,@IDCLIENT,@Date_Debut,@Date_Fin,@MONTANT,@IDNATURE)"
 
            Dim Param As SqlParameter   ' MySqlParameter ou SqlParameter ou ... selon ton SGBD
        ' ...
        Param = New SqlParameter("@EM_ID", dgvElementSalaire.Rows(Index).Cells(5).Value)
        cmd.Parameters.Add(Param)
        Param = New SqlParameter("@SA_ID", dgvElementSalaire.Rows(Index).Cells(7).Value)
        cmd.Parameters.Add(Param)
        Param = New SqlParameter("@IDCLIENT", dgvElementSalaire.Rows(Index).Cells(6).Value)
        cmd.Parameters.Add(Param)
        Param = New SqlParameter("@Date_Debut", dtpDateDebut.Value)
        cmd.Parameters.Add(Param)
        Param = New SqlParameter("@Date_Fin", dtpDateFin.Value)
        cmd.Parameters.Add(Param)
        Param = New SqlParameter("@MONTANT", dgvElementSalaire.Rows(Index).Cells(4).Value)
        cmd.Parameters.Add(Param)
        Param = New SqlParameter("@IDNATURE", dgvElementSalaire.Rows(Index).Cells(8).Value)
        cmd.Parameters.Add(Param)
 
            Call Connecter()
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            Call deconnecter()
        Next
 
        Call RemplirGrid(dgvSalaire, "VVSALAIRE")
        dgvSalaire.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)

Pièce jointe 486762 Pièce jointe 486762

Ok ma réponse n'était pas adaptée ..., je m'en suis rendu compte trop tard :(

Pour ce qui est du SGBD, si tu utilises SQL server, tu utilises donc les librairies Sql ... et non les OleDb ... (SqlConnection, SQLCommand, SqlAdapter, ...). Mais ton erreur n'est due au SGBD.

En relisant ton code, je pense qu'il te faut sortir la ligne SQl de la boucle, si on pourquoi utiliser des paramètres ... vu que dans la boucle, tu peux passer directement les valeurs à la requête, pour chaque exécution, une à la fois.

Si cela ne fonctionne pas avec le code suivant, nous essayerons sans paramètres (si cela peut te convenir).
Code:

1 2 3 4 5 6 7 8 cmd.CommandText = "INSERT INTO [SALAIRE] ([EM_ID],[SA_ID],[IDCLIENT],[Date_Debut],[Date_Fin],[MONTANT],[IDNATURE]) values (@EM_ID,@SA_ID,@IDCLIENT,@Date_Debut,@Date_Fin,@MONTANT,@IDNATURE)" For index As Integer = 0 To dgvElementSalaire.RowCount - 1 ' ici peut venir ton code des paramètres, ou bien le mien si le tien ne marche pas ' ...

26/06/2019, 18h02
StringBuilder

Deux solutions :

1/ La solution pourrie : ajoute un cmd.Parameters.Clear() au début de ton FOR

2/ La solution plus performante : déclare ta requête et tes paramètres avant le FOR, puis change simplement les .Value de tes paramètres à l'intérieur du FOR

1 pièce(s) jointe(s)

Bonsoir StringBuilder
j'ai déclarer les variables

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
Dim command As New Data.SqlClient.SqlCommand
        con.ConnectionString = "Data Source=.\SQLEXPRESS;Initial Catalog=GESTIONPETROLE;Integrated Security=True"
        command.CommandText = "INSERT INTO [SALAIRE] ([EM_ID],[SA_ID],[IDCLIENT],[Date_Debut],[Date_Fin],[MONTANT],[IDNATURE])
values (@EM_ID,@SA_ID,@IDCLIENT,@Date_Debut,@Date_Fin,@MONTANT,@IDNATURE)"
 
        command.Parameters.Add("@EM_ID", SqlDbType.Int)
        command.Parameters.Add("@SA_ID", SqlDbType.Int)
        command.Parameters.Add("@IDCLIENT", SqlDbType.Int)
        command.Parameters.Add("@Date_Debut", SqlDbType.DateTime)
        command.Parameters.Add("@Date_Fin", SqlDbType.DateTime)
        command.Parameters.Add("@MONTANT", SqlDbType.Decimal)
        command.Parameters.Add("@IDNATURE", SqlDbType.Int)
        con.Open()
        command.Connection = con
        command.Parameters.Clear()
 
        For i As Integer = 0 To dgvElementSalaire.Rows.Count - 1
            command.Parameters(0).Value = dgvElementSalaire.Rows(i).Cells(5).Value
            command.Parameters(1).Value = dgvElementSalaire.Rows(i).Cells(7).Value
            command.Parameters(2).Value = dgvElementSalaire.Rows(i).Cells(6).Value
            command.Parameters(3).Value = dtpDateDebut.Value
            command.Parameters(4).Value = dtpDateFin.Value
            command.Parameters(5).Value = dgvElementSalaire.Rows(i).Cells(4).Value
            command.Parameters(6).Value = dgvElementSalaire.Rows(i).Cells(8).Value
 
            command.ExecuteNonQuery()
        Next

lors du test les premières valeurs son bien ajouter mais au second chargement, j'obtiens l'erreur suivant:
Pièce jointe 486809

26/06/2019, 23h14
Phil Rob
La formule est plaisante. Mais command.Parameters.Clear() vide la collection des paramètres que tu viens de créer. Je pense que cette ligne devrait se trouver avant les "Parameters.Add ... ".

Je reste à ta disposition pour écrire les
Code:

1 2 "INSERT INTO [SALAIRE] ([EM_ID],[SA_ID],[IDCLIENT],[Date_Debut],[Date_Fin],[MONTANT],[IDNATURE]) values (@EM_ID,@SA_ID,@IDCLIENT,@Date_Debut,@Date_Fin,@MONTANT,@IDNATURE)"
sans utiliser les paramètres.

A bientôt,
27/06/2019, 09h39
StringBuilder
Citation:
Envoyé par Phil Rob

Je reste à ta disposition pour écrire les

Code:

1 2 "INSERT INTO [SALAIRE] ([EM_ID],[SA_ID],[IDCLIENT],[Date_Debut],[Date_Fin],[MONTANT],[IDNATURE]) values (@EM_ID,@SA_ID,@IDCLIENT,@Date_Debut,@Date_Fin,@MONTANT,@IDNATURE)"

sans utiliser les paramètres.
J'ai pas compris ce que ça voulais dire ça ?

Il ne faut jamais utiliser de requête non paramétrée : c'est contre performant et la porte ouverte aux injections SQL.

Bonjour Phil Rob, bonjour StringBuilder
effectivement il fallait mettre cmd.parameters.clear avant la création de mes paramètres donc sa marche.
Mai j'ai une autre question
j'aurais bien voulut qu'après un enregistrement que ce message s'affiche 'MsgBox("Ajout effectué avec succés")'
il est bien dans mon code il mais il ne s'affiche pas après insertion

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
        Try
 
            Call Connecter()
            cmd.Connection = con
            If cmbNom.Text = "" Then
                MsgBox("Champ Nom obligatoire", MsgBoxStyle.Critical, "Attention")
                cmbNom.Focus()
                Exit Sub
            End If
            cmd.CommandText = "INSERT INTO [SALAIRE] ([EM_ID],[SA_ID],[IDCLIENT],[Date_Debut],[Date_Fin],[MONTANT],[IDNATURE])
values (@EM_ID,@SA_ID,@IDCLIENT,@Date_Debut,@Date_Fin,@MONTANT,@IDNATURE)"
            cmd.Parameters.Clear()
            dgvElementSalaire.Refresh()
            cmd.Parameters.Add("@EM_ID", SqlDbType.Int)
            cmd.Parameters.Add("@SA_ID", SqlDbType.Int)
            cmd.Parameters.Add("@IDCLIENT", SqlDbType.Int)
            cmd.Parameters.Add("@Date_Debut", SqlDbType.DateTime)
            cmd.Parameters.Add("@Date_Fin", SqlDbType.DateTime)
            cmd.Parameters.Add("@MONTANT", SqlDbType.Decimal)
            cmd.Parameters.Add("@IDNATURE", SqlDbType.Int)
            For i As Integer = 0 To dgvElementSalaire.Rows.Count - 1
                cmd.Parameters(0).Value = dgvElementSalaire.Rows(i).Cells(5).Value
                cmd.Parameters(1).Value = dgvElementSalaire.Rows(i).Cells(7).Value
                cmd.Parameters(2).Value = dgvElementSalaire.Rows(i).Cells(6).Value
                cmd.Parameters(3).Value = dtpDateDebut.Value
                cmd.Parameters(4).Value = dtpDateFin.Value
                cmd.Parameters(5).Value = dgvElementSalaire.Rows(i).Cells(4).Value
                cmd.Parameters(6).Value = dgvElementSalaire.Rows(i).Cells(8).Value
 
                cmd.ExecuteNonQuery()
 
            Next
            Call deconnecter()
            MsgBox("Ajout effectué avec succés")
 
        Catch ex As Exception
 
        End Try

je ne comprend pas pourquoi le message n'affiche pas?

27/06/2019, 12h22
StringBuilder

Regarde en debug si tu vas pas dans ton catch par hasard.
27/06/2019, 12h39
Massigne

je ne comprend pas bien se que vous me demander de faire pouvez vous être plus précis?
27/06/2019, 13h16
StringBuilder
Ton programme doit entrer dans ce bloc :
Code:

1 2 3 4 Catch ex As Exception End Try
Car il doit y avoir une exception.
Au hasard, soit un INSERT qui plante, soir le "deconnecte()" qui ne fonctionne pas.

Vérifie que tu entre dans ton Catch pour être sûr...
Et en examinant l'exception tu auras probablement des informations pertinentes sur l'origine du problème.
27/06/2019, 14h21
Massigne

J'ai compris, la clé primaire est auto incrémentée dans la table, je ne l'ai pas mis dans la requête insert et je pense que c'est ca qui pose problème.

Est t-il possible de faire en sorte que la colonne clé primaire de la table salaire s'auto incrémente à chaque enregistrement de chaque ligne du datagriview car un employer peut avoir plusieurs éléments de salaire. Je veut dire est ce que c'est possible de le faire par code ?
27/06/2019, 15h25
StringBuilder

Dans SQL Server, généralement on indique les clés primaires monocolonnes avecle flag "identity" qui permet de gérer un autoincrément.

Il faut donc supprimer de toutes les clauses INSERT cette colonne, sous peine d'avoir une erreur.
On peut alors forcer la valeur de cette colonne en ajoutant avant la requete "set identity_insert latable on;"
28/06/2019, 16h09
Massigne

Salut StringBuilder
on peut ajouter ce ci "set identity_insert latable on;" dans sql ou dans le code vb.net?
28/06/2019, 16h29
StringBuilder

juste avant le INSERT, dans la même chaîne de caractères.

2 pièce(s) jointe(s)

Lorsque j'utilise la méthode insert sans paramètre,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Dim connetionString As String
        Dim connection As SqlConnection
        Dim adapter As New SqlDataAdapter
        Dim sql As String
        connetionString = "Data Source=.\SQLEXPRESS;Initial Catalog=GESTIONPETROLE;Integrated Security=True"
        connection = New SqlConnection(connetionString)
        Try
            connection.Open()
            For i As Integer = 0 To Me.dgvElementSalaire.Rows.Count - 1
                sql = "INSERT INTO [SALAIRE] ([EM_ID],[SA_ID],[IDCLIENT],[Date_Debut],[Date_Fin],[MONTANT],[IDNATURE])
values ('" & Me.dgvElementSalaire.Rows(i).Cells(5).Value & "','" & Me.dgvElementSalaire.Rows(i).Cells(7).Value & "','" & Me.dgvElementSalaire.Rows(i).Cells(6).Value & "',(SELECT CONVERT(DATE,'" & dtpDateDebut.Value & "',103)),(SELECT CONVERT(DATE,'" & dtpDateFin.Value & "',103)), '" & Replace(Me.dgvElementSalaire.Rows(i).Cells(4).Value, ",", ".") & "','" & Me.dgvElementSalaire.Rows(i).Cells(8).Value & "')"
                Try
                    adapter.InsertCommand = New SqlCommand(sql, connection)
                    adapter.InsertCommand.ExecuteNonQuery()
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
            Next
            MsgBox("Ajout effectué avec succés")
        Catch ex As Exception
 
        End Try
        Try

j'obtient le message suivant:
Pièce jointe 487349
et lorsque je clic sur ok
les données sont bien insérer
Pièce jointe 487353
je me dit que en comprennent le pourquoi de se message je pourrai résoudre le problème de la méthode avec paramètre!!

29/06/2019, 09h49
Phil Rob

Bonjour,

En ne regardant que la première phase du message d'erreur, je pense que tu as un ou plusieurs champs numériques dans la DB et que ces données passées sous forme de chaines ne sont pas dans le bon format.
Par exemple, une virgule au lieu d'un point comme séparateur décimal, un ou plusieurs espaces dans la chaine (passer les chaines "numériques" par Trim() pour enlever les espaces en début et en fin de chaine), format numérique non conforme à celui de la DB (Int32 <==> Int64, par exemple).

A voir ...
01/07/2019, 13h47
StringBuilder

C'est une des raisons pour lesquelles il ne faut jamais utiliser des requêtes "ad hoc", mais toujours des requêtes paramétrées.

Pourquoi as-tu enlevé la gestion des paramètres ?

Ils sont là pour justement contrôler que tu passes le bon type de données aux différentes colonnes.