Discussion :

[devman2011]

Salut tout le monde

J'ai une table T qui contient les champs : id,nom,prénom,age et sur ma form j'ai un datagridview qui affiche les données issues de cette table T , je sais enregistrer une seule ligne saisie du datagridview mais je ne sais pas enregistrer plusieurs lignes à la fois.C'est-à-dire je veux saisir 10 ou 20 lignes puis appuyer sur le bouton "Save"

les champs sont tous de type varchar

Voici mon 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
Imports System.Data.SqlClient
 Public Class Form1
    Dim cn As New SqlConnection
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
 Dim strcon As String = "data source=(local);initial catalog=mydb1;integrated"  security=true"
 
        cn.ConnectionString = strcon
        Dim da As New SqlDataAdapter("select * from T", cn)
        Dim ds As New DataSet
        Dim dt As DataTable
        dt = ds.Tables("T")
        da.Fill(ds, "T")
        dgv.DataSource = ds
        dgv.DataMember = "T"
 
end sub
 
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
 
       Dim cmdAdd As New SqlCommand
        cmdAdd.Connection = cn
 cmdAdd.CommandText = "INSERT INTO T(id,nom,prénom,age) VALUES('" & dgv.CurrentRow.Cells(0).Value.ToString & "','" & dgv.CurrentRow.Cells(1).Value.ToString & "','" & dgv.CurrentRow.Cells(2).Value.ToString & "','" & dgv.CurrentRow.Cells(3).Value.ToString & "')"
 
        Try
            If cn.State Then cn.Close()
            cn.Open()
            cmdAdd.ExecuteNonQuery()
            cn.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub

Merci d'avance.

[Sankasssss]

Bonsoir,

voici un tuto qui dit comment reporter les changements d'un datatable en base de donnée automatiquement : http://msdn.microsoft.com/fr-fr/libr...er.update.aspx

Examinez le, et si vous avez des questions dessus, n'hésitez pas...

[eddyphan]

Je te propose de faire une boucle comme ceci. Il enregistrera toutes lignes de ton datagrid quelques soit leur dimensions :

Code :

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

1
2
3
4
5
6
 
For i = 0 To Me.DataGridView1.Rows.Count - 1
                        Dim row As DataGridViewRow = Me.DataGridView1.Rows(i)
 
                            tran.CommandText = "Insert into transfertdepot(codtrans,depotexpedit,depotdestinat,expeditor,destino,datevir,qtetransfert,codPro,produit,Valor,PA,PVU) values ('" & Me.TextBox1.Text & "','" & dep & "','" & dep1 & "','" & expedit & "','" & destin & "','" & Now.ToShortDateString & "'," & Val(Me.DataGridView1.Rows(i).Cells(7).Value) & ",'" & Me.DataGridView1.Rows(i).Cells(1).Value & "','" & Me.DataGridView1.Rows(i).Cells(2).Value & "'," & Val(Me.DataGridView1.Rows(i).Cells(12).Value) & "," & Val(Me.DataGridView1.Rows(i).Cells(5).Value) & "," & Val(Me.DataGridView1.Rows(i).Cells(6).Value) & ")"
                            tran.ExecuteNonQuery()

[Sankasssss]

Je te propose de faire une boucle comme ceci. Il enregistrera toutes lignes de ton datagrid quelques soit leur dimensions :

Code :

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

1
2
3
4
5
6
 
For i = 0 To Me.DataGridView1.Rows.Count - 1
                        Dim row As DataGridViewRow = Me.DataGridView1.Rows(i)
 
                            tran.CommandText = "Insert into transfertdepot(codtrans,depotexpedit,depotdestinat,expeditor,destino,datevir,qtetransfert,codPro,produit,Valor,PA,PVU) values ('" & Me.TextBox1.Text & "','" & dep & "','" & dep1 & "','" & expedit & "','" & destin & "','" & Now.ToShortDateString & "'," & Val(Me.DataGridView1.Rows(i).Cells(7).Value) & ",'" & Me.DataGridView1.Rows(i).Cells(1).Value & "','" & Me.DataGridView1.Rows(i).Cells(2).Value & "'," & Val(Me.DataGridView1.Rows(i).Cells(12).Value) & "," & Val(Me.DataGridView1.Rows(i).Cells(5).Value) & "," & Val(Me.DataGridView1.Rows(i).Cells(6).Value) & ")"
                            tran.ExecuteNonQuery()

C'est une solution bien plus compliquée que de faire tout sur le dataAdapteur.
En effet dans ce cas, si on appuie plusieurs fois sur le bouton, c'est plusieurs fois que les lignes seront (essayerons d'être car clé) insérées.

La solution du dataAdapteur gère tout tout seul, vous chargez un datatable que vous liez avec le dataGridView et dans le code du bouton il suffit de mettre la méthode update du dataadapteur et il se charge de regarder quelles lignes ont été ajoutées, supprimées ou modifiées et il appel en conséquence les requêtes insert, delete ou update que l'ont a même pas besoin de taper si l'ont utilise un CommandBuilder.

Si votre DataTable est mappé à une table de base de données unique ou est généré par celle-ci, vous pouvez tirer parti de l'objet DbCommandBuilder pour générer automatiquement les objets DeleteCommand, InsertCommand et UpdateCommand du DataAdapter. Pour plus d'informations, voir Génération de commandes à l'aide de CommandBuilders (ADO.NET).

Bref un peu de lecture / test que je recommande à tout le monde.
MSDN : Mise à jour de sources de données à l'aide de DataAdapters (ADO.NET)

[devman2011]

Salut à tout le monde

Merci beaucoup pour votre aide car la solution du DataAdapter et du CommanBuilder est la meilleure Merci le problème est réglé