.NET程序调用SSIS中的DTS包

核心提示：以下代码是在VB.NET（Framework 2.0）中调用SQLServer2005 的Intergration Service中DTS包，1 如果要在WebService中调用DTS,必须用VB.NET语言，.NET程序调用SSIS中的DTS包，因为如果用C#编写WebService的话，将无法引用Microsof

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

 1 Imports Microsoft.SqlServer.Dts.Runtime
 2
 3 'WebService代码
 4　　 <WebMethod()> _
 5　　 Public Function ExecutePackage() As Integer
 6　　　　 Dim pkg As String = "D:\Development\PRograme\PackageDev\Package\MG-TSJF-PKG.dtsx"
 7
 8　　　　 Dim app As application = New Application()
 9　　　　 Dim p As Package = app.LoadPackage(pkg, Nothing)
10　　　　 'p.InteractiveMode = True
11
12　　　　 Dim vir As Variables = p.Variables
13　　　　 vir("用户::PackageID").Value = 4
14
15　　　　 If p.Execute(Nothing, vir, Nothing, Nothing, Nothing) = DTSExecResult.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