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 |
