Database Reference
In-Depth Information
System.Windows.Forms.Application.ProductVersion
' display the version and startup status
With frmMain
.Text = sVer
.txtStatus.Text = sVer & ControlChars.CrLf &
"Ready"
End With
End Sub
Public Sub btnStartFileClick()
' configure an SSIS application and execute the
selected SSIS package file
With frmMain
.Cursor = Cursors.WaitCursor
.txtStatus.Text = "Executing " &
.txtSSISPkgPath.Text
.Refresh()
Dim ssisApp As New
Microsoft.SqlServer.Dts.Runtime.Wrapper.Application
Dim ssisPkg As Package
= ssisApp.LoadPackage(.txtSSISPkgPath.Text, _
AcceptRejectRule.None, Nothing)
ssisPkg.Execute()
.Cursor = Cursors.Default
.txtStatus.Text = .txtSSISPkgPath.Text & "
executed."
End With
End Sub
Public Sub btnOpenSSISPkgClick()
' allow the user to navigate to an SSIS package
file
Search WWH ::
Custom Search