Execution Patterns - SQL Server Integration Services Design Patterns - page 97

' connect to the server indicated in the
txtServer textbox
' hook into the SSISDB catalog
' build out the SSISDB node by iterating the
objects stored therein
' load the node and display it

With frmISTree
Dim oServer As New Server(.txtServer.Text)
Dim oIS As New IntegrationServices(oServer)
Dim cat As Catalog = oIS.Catalogs("SSISDB")
Dim L1Node As New TreeNode("SSISDB")
L1Node.ImageIndex = 0
Dim L2Node As TreeNode
Dim L3Node As TreeNode
Dim L4Node As TreeNode

For Each f As CatalogFolder In cat.Folders
L2Node = New TreeNode(f.Name)
L2Node.ImageIndex = 1
L1Node.Nodes.Add(L2Node)
'.tvCatalog.Nodes.Add(L2Node)
For Each pr As ProjectInfo In f.Projects
L3Node = New TreeNode(pr.Name)
L3Node.ImageIndex = 2
L2Node.Nodes.Add(L3Node)
'.tvCatalog.Nodes.Add(L3Node)
For Each pkg As PackageInfo In

pr.Packages

L4Node = New TreeNode(pkg.Name)
L4Node.ImageIndex = 3
L3Node.Nodes.Add(L4Node)
'.tvCatalog.Nodes.Add(L4Node)

Next

Next

Next

.tvCatalog.Nodes.Add(L1Node)