Copier DataGridViewRow a une DataTable

Version imprimable

Bonjour, Utilisant le VB Net (2005, l'Access (2003) sous des formulaires de Windows, j'ai l'utilisé le magicien de Visual Studio il a ainsi créé le DataSet1, tblProductsBindingSource et le tblProductsTableAdapter , j'ai l'effacé le tblBindingNavigator, également mon DataSet se compose de 2 Data Tables qui sont tblProducts et tblChosenProducts, actuellement le tblChosenProducts est vide mais a tout même le Table Style de tblProducts. Ainsi à Form Load du projet chaque choses fonctionne très bien, ce que je voudrais faire est quand je clique dans une cellule de dgProducts (le DataGridView sur mon formulaire) ca doit peupler mon deuxième Data Table (tblChosenProducts) et mettre à jour à la base de données (Invent_ le 14 avril), svp me montrer comment au codé ceci. Voir la partie de mon programme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Public Sub DgProduct_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgProduct.CellClick ' Declare une variable noamé chosenProductRow de type ProductRow.ownerRow Dim chosenProductRow As ProductDataSet.tblProductRow ' Récupérer l'object ProductRow de la ligne du DataGridView row; ' assigner a la variable l' object ChosenProductRow ChosenProductRow = CType(CType(Me.tblProductBindingSource.Current, DataRowView).Row, ProductDataSet.tblProductRow) ' Utilise le data de la ligne clicked row. Dim dr As DataRow = ChosenProductRow Dim o As Object For Each o In dr.ItemArray Next End Sub
Merci à l’avance..

17/04/2009, 10h16
peregna2007

Bonjour,

Donc si j'ai bien compris, tu veux un bout de code qui te permettra de mettre le contenu de ton GridView dans une table access ?
17/04/2009, 15h21
andy38

Suivi

T'as tout a fait raison

Bonjour,

Voici ce que je te propose:

Code:

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
    Private Sub InsertData()
        Dim i As Integer
 
        Dim TableObject(4, 2) As Object
 
        TableObject(0, 0) = "@Data1"
        TableObject(0, 1) = OleDbType.Double
        TableObject(1, 0) = "@Data2"
        TableObject(1, 1) = OleDbType.Boolean
        TableObject(2, 0) = "@Data3"
        TableObject(2, 1) = OleDbType.Integer
        TableObject(3, 0) = "@Data4"
        TableObject(3, 1) = OleDbType.VarChar
        TableObject(4, 0) = "@Data5"
        TableObject(4, 1) = OleDbType.Date
 
        For i = 0 To DataGridView.RowCount - 1
 
            TableObject(0, 2) = DataGridView.Item(0, i).Value
            TableObject(1, 2) = DataGridView.Item(1, i).Value
            TableObject(2, 2) = DataGridView.Item(2, i).Value
            TableObject(3, 2) = DataGridView.Item(3, i).Value
            TableObject(4, 2) = DataGridView.Item(4, i).Value
 
 
            AccessSub("INSERT INTO Table (Data1, Data2, Data3, Data4, Data5) VALUE (?, ?, ?, ?, ?)", "Table", TableObject)
        Next
    End Sub

à utiliser avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Public Sub AccessSub(ByVal RequeteSQL As String, ByVal Table As String, ByRef TableObject(,) As Object)
        Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter(RequeteSQL, MyConnection)
        Dim i As Integer
 
        For i = 0 To TableObject.GetUpperBound(0)
            MyAdapter.SelectCommand.Parameters.Add(TableObject(i, 0), TableObject(i, 1)).Value = TableObject(i, 2)
        Next
 
        Try
            MyDataSetTemp.Clear()
            MyAdapter.Fill(MyDataSetTemp, Table)
            'A ce niveau les données résultantes de la requete se trouvent dans => MyDataSet.Tables(0)
        Catch ex As Exception
            MessageBox.Show("Failed to connect to database! " & ex.Message)
        End Try
 
    End Sub

J'espère que ça t'aidera.

À+

18/04/2009, 02h36
andy38

Suivi
Suite à cela, tu me proposes un autre DataSet et un DataAdapter pourquoi? J'ai déjà un DataSet1 fortement typé et un tblChosenProduitsTableAdapter, je me demande pourquoi que lors du remplissage de dgItems on ne pourrait pas aussi remplir la ligne(row) de la datatable tblChosenProduits en même temps et après faire la mise a jour de la table, du DataSet1, et finalement la Bdd avec Ex:
Code:

1 2 3 Me.Validate() Me.tblChosenProduitsBindingSource.EndEdit() Me.tblChosenProduitsTableAdapter.Update(Me.ProduitsDatasSet.tblChosenProduits)
Je me pose aussi la question pourquoi utiliser des technologies de Vb net(2003) alors que j'utilise le Vb Net (2005). Suis je dans le champs? J'inclus un zip de mon exemple. :salut: Merci encore