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
| Dim Conn As SqlConnection
'connexion base de données
Conn = New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=test;Integrated Security=True;MultipleActiveResultSets=True;")
Dim Data As DataSet
Dim LotAda As New SqlDataAdapter("SELECT nom_lot,Num_lot FROM [lot]", Conn)
Dim ChapAda As New SqlDataAdapter("SELECT nom_chap,chapitre.Num_lot FROM [chapitre],[lot] WHERE lot.Num_lot = chapitre.Num_lot", Conn)
Dim ArtAda As New SqlDataAdapter("SELECT (chapitre.Num_chap),(article.Num_chap),(nom_art) FROM [chapitre],[article] WHERE chapitre.Num_chap = article.Num_chap", Conn)
Data = New DataSet()
Conn.Open()
LotAda.Fill(Data, "lot")
ChapAda.Fill(Data, "chapitre")
ArtAda.Fill(Data, "article")
Conn.Close()
** Celle si passe bien mon treeViex construit le niv 1 et 2 ********
Data.Relations.Add("LotToChap", Data.Tables("lot").Columns("Num_lot"), Data.Tables("chapitre").Columns("Num_lot"))
**** le problème est avec celle ci -> voir erreur plus bas ****
Data.Relations.Add("ChapToArt",Data.Tables("chapitre").Columns("Num_chap"), Data.Tables("article").Columns("Num_chap")) |
Partager