.NET程序调用SSIS中的DTS包

以下代码是在VB.NET（Framework 2.0）中调用SQLServer2005 的Intergration Service中DTS包。
1 如果要在WebService中调用DTS,必须用VB.NET语言。因为如果用C#编写WebService的话，将无法引用Mi***soft.SqlServer.ManagedDTS组件。
2 将NETWORK SERVICE帐户添加到Administrator组中，否则将不能执行DTS。（会带来安全漏洞）

 1 Imports Mi***soft.SqlServer.Dts.Runtime
 2
 3 'WebService代码
 4     _
 5     Public Function ExecutePackage() As Integer
 6         Dim pkg As String = "D:DevelopmentProgramePackageDevPackageMG***JF-PKG.dtsx"
 7
 8         Dim app As Application = New Application()
 9         Dim p As Package = ap***oadPackage(pkg, Nothing)
10         'p.***eractiveMode = True
11
12         Dim vir As Variables = p.***iables
13         vir("用户::PackageID").Value = 4
14
15         If p.***cute(Nothing, vir, Nothing, Nothing, Nothing) = DT***ecResult.Success Then
16             Return 0
17         Else
18             Return 1
19         End If
20     End Function

http://www.cnblogs.com/liguancong/archive/2006/08/29/489681.html