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

With frmMain
.Cursor = Cursors.WaitCursor
.txtStatus.Text = "Loading " &
sFullSSISPkgPath
.Refresh()
Dim oServer As New
Server(.txtSSISCatalogServer.Text)
Dim oIS As New IntegrationServices(oServer)
Dim cat As Catalog
= oIS.Catalogs(.txtCatalog.Text)
Dim fldr As CatalogFolder
= cat.Folders(.txtFolder.Text)
Dim prj As ProjectInfo
= fldr.Projects(.txtCatalogProject.Text)
Dim pkg As PackageInfo
= prj.Packages(.txtCatalogPackage.Text)
.txtStatus.Text = sFullSSISPkgPath & "
loaded. Starting validation..."
.Refresh()
pkg.Validate(False,
PackageInfo.ReferenceUsage.UseAllReferences, Nothing)
.txtStatus.Text = sFullSSISPkgPath & "
validated. Starting execution..."
.Refresh()
pkg.Execute(False, Nothing)
.txtStatus.Text = sFullSSISPkgPath & "
execution started."
.Cursor = Cursors.Default
End With
End Sub
End Module
Let's walk through the portion of this code that executes an SSIS package in the file
system. In Figure 2-9 , we are looking at the functionality represented in the upper
group box.