Mettre à jour UN BD à partir d'une Datatable

Version imprimable

Bonjour

j'ai un datagridview remplit par une DataTable
Code:

1 2 3 4 5 Me.DataGV.DataSource = Me.BindingSource Me.DA = New SqlDataAdapter("Select ... from Table1", Connexion) Dim CommandBuilder As New SqlCommandBuilder(Me.DA) Me.DA.Fill(DataTable) Me.BindingSource.DataSource = DataTable
Et aprés modifications des données dans le DataGridView, j'aimerai remplir ces données dans une autre table de la BD par le code :
Code:

1 2 3 Me.DA = New SqlDataAdapter("Select ... from Table2", Connexion) Dim CommandBuilder As New SqlCommandBuilder(Me.DA) Me.DA.Update(DataTable)
mais ca ne marche pas

essaye ça !!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Using con = New SqlConnection(ConsoleApplication1.Properties.Settings.[Default].masterConnectionString)
	Using adapter = New SqlDataAdapter("SELECT * FROM Dogs2", con)
		Using New SqlCommandBuilder(adapter)
			'
			' Fill the DataAdapter with the values in the DataTable.
			'
			adapter.Fill(table)
			'
			' Open the connection to the SQL database.
			'
			con.Open()
			'
			' Update the SQL database table with the values.
			'
			adapter.Update(table)
		End Using
	End Using
End Using

07/02/2013, 09h02
abd75web
Merci azstar

mais c'est pas ça se que je cherchais

j'ai une datatable qui contient les données et j'aimerai l'improrter dans une autre table de la base de données

j'essaye d'utiliser ce code mais ........... ca ne marche pas
Code:

1 2 3 Me.DA = New SqlDataAdapter("Select ... from Table2", Connexion) Dim CommandBuilder As New SqlCommandBuilder(Me.DA) Me.DA.Update(DataTable)
07/02/2013, 10h03
azstar
tu peux copier les données depuis ton table sourceTable to destinationTable en utilisant ImportRow
Code:

1 2 3 4 For Each dr As DataRow In sourceTable.Rows destinationTable.ImportRow(dr) Next

Merci
ça bien fonctionner ImportRow

Code:

1
2
3
4
5
6
7
8
9
Dim da As SqlDataAdapter = New SqlDataAdapter("Select .. from destinationTable", Connexion)
Dim CommandBuilder As New SqlCommandBuilder(da)
 
Dim table As New DataTable
da.Fill(table)
 
For Each dr As DataRow In TableItem.Rows
 table.ImportRow(dr)
Next

mais la mise à jour vers la base ne fonctionne pas

Code:

da.Update(table)

Pour le moment j'utilise datagridview :

Code:

1
2
3
4
For i As Integer = 0 To DataGView1.Rows.Count - 1
Dim Cmd As New SqlCommand("insert into destinationTable (...) values ('" DataGView1.Rows(i).Cells(0).Value & "','" & DataGView1.Rows(i).Cells(1).Value & "',....", Connexion)
Cmd.ExecuteNonQuery()
Next

mais j'aurai aimé une simple méthode.