VB中怎么才能运行已经保存在SQL Server中的DTS?

Question

Set objPackage = New DTS.Package
objPackage.LoadFromSQLServer ...... '自己查参数
objPackage.execute
大概就是这样了

Answer 1

如果是Sql Server2000的话，有功能可以将DTS包转存为bas文件，很方便的！

Answer 2

感谢您使用微软产品。您可以用类似于以下的代码，具体的用法请参考SQL Server帮助中的\Building SQL Server Applications\DTS Programming.    Dim iStatus As Boolean
    Dim i As Integer
    Dim oPackage As DTS.Package
    Set oPackage = New DTS.Package
    oPackage.LoadFromSQLServer "servername", "sa", "sa", DTSSQLStgFlag_Default, , , , "NewPackage1"
    oPackage.Execute
    '******************************************************************
    '  Check for Errors
    '******************************************************************
    iStatus = True
    For i = 1 To oPackage.Steps.Count
      If oPackage.Steps(i).ExecutionResult = DTSStepExecResult_Failure Then
          iStatus = False
          MsgBox oPackage.Steps(i).Name + " in the " + oPackage.Description + " failed."
      End If
    Next i
    If iStatus = True Then
      MsgBox oPackage.Description + " Successful"
    End If
    Set oPackage = Nothing- 微软全球技术中心 VB技术支持本贴子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风险。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

Answer 3

谢谢各位!
特别是hydnoahark(诺亚方舟),帮了我N次,还有acptvb(微软全球技术中心 VB技术支持),如果真的是微软全球技术中心 VB技术支持,我真是受宠若惊.

Answer 4

Microsoft DTSPackage Object Library