Discussion :

[abd75web]

Bonjour

j'ai un datagridview remplit par une DataTable

Code :

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

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 :

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

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

[azstar]

essaye ça !!

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

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

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

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

[azstar]

tu peux copier les données depuis ton table sourceTable to destinationTable en utilisant ImportRow

Code :

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

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

[abd75web]

Merci
ça bien fonctionner ImportRow

Code :

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

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 :

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

da.Update(table)

[abd75web]

Pour le moment j'utilise datagridview :

Code :

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

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.