Dim cn As New SqlConnection()
Dim da As New SqlDataAdapter()
Dim ds As New DataSet()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn.ConnectionString = "user id=sa;password=password;initial catalog=pubs"
cn.Open()
ds.Tables.Add(New DataTable("titles"))
ds.Tables.Add(New DataTable("publishers"))
da.SelectCommand = New SqlCommand("select * from titles", cn)
da.Fill(ds.Tables("titles"))
da.SelectCommand = New SqlCommand("select * from publishers", cn)
da.Fill(ds.Tables("publishers"))
out()
End Sub
Sub out()
Dim r1 As DataRow
Dim i As Integer = 0
For Each r1 In ds.Tables("titles").Rows
TreeView1.Nodes.Add(r1(0).ToString)
TreeView1.Nodes(i).Nodes.Add(r1(1).ToString)
TreeView1.Nodes(i).Nodes.Add(r1(2).ToString)
Dim s As String = r1(3).ToString
TreeView1.Nodes(i).Nodes.Add(s) ' publisher
TreeView1.Nodes(i).Nodes.Add(r1(4).ToString)
TreeView1.Nodes(i).Nodes.Add(r1(5).ToString)
TreeView1.Nodes(i).Nodes.Add(r1(6).ToString)
TreeView1.Nodes(i).Nodes.Add(r1(7).ToString)
TreeView1.Nodes(i).Nodes.Add(r1(8).ToString)
TreeView1.Nodes(i).Nodes.Add(r1(9).ToString)
ds.Tables("publishers").Clear()
da.SelectCommand = New SqlCommand("select * from publishers where pub_id='" & s & "'", cn)
da.Fill(ds.Tables("publishers"))
Dim r2 As DataRow
For Each r2 In ds.Tables("publishers").Rows
TreeView1.Nodes(i).Nodes(2).Nodes.Add(r2(1).ToString)
TreeView1.Nodes(i).Nodes(2).Nodes.Add(r2(2).ToString)
TreeView1.Nodes(i).Nodes(2).Nodes.Add(r2(3).ToString)
TreeView1.Nodes(i).Nodes(2).Nodes.Add(r2(4).ToString)
Next
i += 1
Next
End Sub