以下代码是在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 ) = DTSExecResult.Success Then
16 Return 0
17 Else
18 Return 1
19 End If
20 End Function
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 ) = DTSExecResult.Success Then
16 Return 0
17 Else
18 Return 1
19 End If
20 End Function
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。