Discussion :

[devman2011]

Salut

Je voudrais savoir comment enregistrer plusieurs lignes saisies d'un DataGrdiView d'un seul coup c'est-à-dire saisir la ligne d'indice 0 puis d'indice 1 et ainsi de suite jusqu'à par exemple la ligne d'indice 9 donc on aura saisi 10 lignes en tout puis d'un click sur le bouton "Save" par exemple on enregistre ces 10 lignes , on suppose qu'on a 5 colonnes.

J'ai essayé avec une boucle sur les lignes mais ça ne marche pas , peut-etre que je n'ai pas bien utilisé le bon code :

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
Private Sub btnSaveAll_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
       cn.ConnectionString = strcon
 
        Dim cmdAdd As New SqlCommand
        cmdAdd.Connection = cn
 
        For i As Integer = 0 To dgv.Rows.Count - 1
 
            cmdAdd.Parameters.Clear()
 
            Dim pr_id As New SqlParameter("@id", SqlDbType.Int)
            pr_id.Value = dgv.Rows(i).Cells(0).Value
            cmdAdd.Parameters.Add(pr_id)
 
            Dim pr_nom As New SqlParameter("@nom", SqlDbType.VarChar)
            pr_nom.Value = dgv.Rows(i).Cells(1).Value
            cmdAdd.Parameters.Add(pr_nom)
 
            Dim pr_prenom As New SqlParameter("@prenom", SqlDbType.VarChar)
            pr_prenom.Value = dgv.Rows(i).Cells(2).Value
            cmdAdd.Parameters.Add(pr_prenom)
 
 
 
           cmdAdd.CommandText = " insert into MaTable (id,nom,prenom)  
           values(@id,@nom,@prenom)"
 
        Next
 
        If cn.State Then cn.Close()
 
        cn.Open()
        cmdAdd.ExecuteNonQuery()
        cn.Close()
 
        MsgBox("Enregistrement Réussi !", MsgBoxStyle.Information")
 
End Sub

End Sub

Voilà , Merci pour tout

[Sankasssss]

Bonsoir,

Ce n'est pas vraiment la bonne méthode mais voici le code corrigé pour que ca fonctionne de cette manière :

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
Private Sub btnSaveAll_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
       cn.ConnectionString = strcon
 
        ' Création de la commande et de ces paramètre en dehors de la boucle
        ' Cela permet de gagné du temps en ne reconstruisant pas les paramètre à chaque itération (travail inutile d'effacer et de recréé quelque chose qui existe)
        Dim cmdAdd As New SqlCommand
        cmdAdd.Connection = cn
        cmdAdd.CommandText = " insert into MaTable (id, nom, prenom) values(@id, @nom, @prenom)" 
        cmdAdd.Parameters.Clear()
        cmdAdd.Parameters.add("@id", SqlDbType.Int)
        cmdAdd.Parameters.add("@nom", SqlDbType.VarChar)
        cmdAdd.Parameters.add("@prenom", SqlDbType.VarChar)
 
        ' Ouverture de la connexion avant traitement, de cette manière elle reste ouverte pendant les insertions.
        cn.Open()
 
        For i As Integer = 0 To dgv.Rows.Count - 1
            ' Remplissage de la valeur des paramètres de la commande.
            cmdAdd.Parameters("@id").Value = dgv.Rows(i).Cells(0).Value            
            cmdAdd.Parameters("@nom").Value = dgv.Rows(i).Cells(1).Value
            cmdAdd.Parameters("@prenom").Value = dgv.Rows(i).Cells(2).Value
            ' l’exécution de l'insert doit être dans la boucle pour être exécuté sur chaque enregistrement.           
            cmdAdd.ExecuteNonQuery()
        Next
 
        cn.Close()
 
        MsgBox("Enregistrement Réussi !", MsgBoxStyle.Information")
 
End Sub

La bonne méthode aurait été de lier le datagridView à une table contenant les colonnes chargées de la BD lors du chargement de la form.
Et lors du clique sur le bouton save, d’appeler la méthode update d'un adapter auquel on aurait mi les commande update, insert et delete.

Voir adapter.update sur MSDN ainsi que Comment : mettre à jour les enregistrements dans une base de données

[devman2011]

Salut

Merci beaucoup vous m'avez éclairer sur plusieurs points obscurs que je n'ai jamais songé les connaitre , ça marche super !!