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
|
Private Sub button1_click(ByVal sender As System.Object, _
ByVal e As RoutedEventArgs) Handles Button1.Click
BindData()
End Sub
Private Sub BindData()
Me.ArboTypePdt.DataContext = GetRelationalData()
End Sub
Function GetRelationalData() As DataSet
Dim dataSet As New DataSet()
Dim TypeArtAdapter As New OleDbDataAdapter()
TypeArtAdapter.SelectCommand = New OleDbCommand("SELECT IDTypeProduit FROM TypeProduits", conn)
TypeArtAdapter.Fill(dataSet, "TypeProduits")
Dim ArtAdapter As New OleDbDataAdapter()
ArtAdapter.SelectCommand = New OleDbCommand("SELECT IDTypeProduit FROM Type", conn)
ArtAdapter.Fill(dataSet, "Produits")
Dim table1Column As DataColumn
Dim table2Column As DataColumn
table1Column = dataSet.Tables("TypeProduits").Columns("IDTypeProduit")
table2Column = dataSet.Tables("Produits").Columns("IDTypeProduit")
Dim CategoryRelation As New DataRelation("IDTypeProduit", table1Column, table2Column)
CategoryRelation.Nested = True
dataSet.Relations.Add(CategoryRelation)
Return dataSet
End Function |
Partager