--VB .Net
Imports System
Imports System.Math
Imports System.Collections.Generic
Imports System.Text
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server
Public Class ScriptMain
Public Sub Main()
Dim jobname As String
jobname = CStr(Dts.Variables("System::PackageName").Value)
Dim ssisApplication As Application
Dim pkgCollection As RunningPackages
Dim Running As Integer
Running = 0
Try
ssisApplication = New Application
pkgCollection = ssisApplication.GetRunningPackages("localhost")
For Each package As RunningPackage In pkgCollection
If package.PackageName = jobname Then
Running = Running + 1
If Running > 1 Then Exit For
End If
Next
Catch ex As Exception
Running = 10
End Try
Dts.Variables("IsRunning").Value = Running
Dts.TaskResult = Dts.Results.Success
End Sub
End Class
包的运行状态变量为IsRunning,可在随后的SSIS中添加判断条件。