Discussion :

[Massigne]

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:

et je ne comprend pas ce qui

[Phil Rob]

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]

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)

[Phil Rob]

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]

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]

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:

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

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]

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]

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]

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

[Massigne]

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

[StringBuilder]

Ton programme doit entrer dans ce bloc :

Code :

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

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.

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

[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;"

[Massigne]

Salut StringBuilder
on peut ajouter ce ci "set identity_insert latable on;" dans sql ou dans le code vb.net?

[StringBuilder]

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

[Massigne]

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

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

et lorsque je clic sur ok
les données sont bien insérer

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

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

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