التعليمة البرمجية التالية هي حزمة DTS في خدمة التكامل لـ SQLServer2005 والتي يتم استدعاؤها في VB.NET (Framework 2.0).
1 إذا كنت تريد الاتصال بـ DTS في WebService، فيجب عليك استخدام لغة VB.NET. لأنه إذا قمت بكتابة WebService في C#، فلن تتمكن من الرجوع إلى مكون Microsoft.SqlServer.ManagedDTS.
2. قم بإضافة حساب NETWORK SERVICE إلى مجموعة المسؤولين، وإلا فلن يتم تنفيذ DTS. (سيجلب ثغرات أمنية)
1 يستورد Microsoft.SqlServer.Dts.Runtime
2
3 'رمز خدمة الويب
4 <WebMethod()> _
5. الوظيفة العامة ExecutePackage() كعدد صحيح
6 Dim pkg As String = "D:DevelopmentProgramePackageDevPackageMG-TSJF-PKG.dtsx"
7
8 التطبيق الخافت كتطبيق = تطبيق جديد ()
9 Dim p As Package = app.LoadPackage(pkg, Nothing)
10 'p.InteractiveMode = صحيح
11
12 ديم فير كمتغيرات = p.Variables
13 فير("User::PackageID").القيمة = 4
14
15 إذا p.Execute(لا شيء، vir، لا شيء، لا شيء، لا شيء) = DTSExecResult.Success ثم
16 العودة 0
17 آخر
18 العودة 1
19 نهاية إذا
20 وظيفة النهاية
http://www.cnblogs.com/liguancong/archive/2006/08/29/489681.html