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

**Massigne** · 26/06/2019, 14h43

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 :

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
  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:
Nom : PROBLEMEINSERT.PNG
Affichages : 548
Taille : 16,2 Ko

et je ne comprend pas ce qui

**Phil Rob** · 26/06/2019, 15h39

Bonjour,

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

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

**Massigne** · 26/06/2019, 17h06

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 :

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

Nom : Capture.PNG
Affichages : 728
Taille : 9,7 Ko

**Phil Rob** · 26/06/2019, 17h27

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 :

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

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

**StringBuilder** · 26/06/2019, 18h02

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

**Massigne** · 26/06/2019, 20h27

Bonsoir StringBuilder
j'ai déclarer les variables

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
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:
Nom : Captures.PNG
Affichages : 485
Taille : 9,4 Ko

Nom : Captures.PNG
Affichages : 485
Taille : 9,4 Ko

**Phil Rob** · 26/06/2019, 23h14

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 :

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

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,

**StringBuilder** · 27/06/2019, 09h39

Envoyé par Phil Rob

Je reste à ta disposition pour écrire les

Code :

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

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.

**Massigne** · 27/06/2019, 11h55

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 :

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

**StringBuilder** · 27/06/2019, 12h22

Regarde en debug si tu vas pas dans ton catch par hasard.

**Massigne** · 27/06/2019, 12h39

je ne comprend pas bien se que vous me demander de faire pouvez vous être plus précis?

**Phil Rob** · 29/06/2019, 09h49

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

**StringBuilder** · 01/07/2019, 13h47

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.

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

VB.NET

Vue hybride

Discussions similaires

Partager

Partager