如何在程序中调用DTS

Question

我是调用dts 生成的vb 包
用vb直接调就可以了。
你用什么语言？

Answer 1

可以生成几种不同的包
SQL 标准包较通用
可以查看联机丛书

Answer 2

举个例子看！
Dim objPackage      As DTS.Package2
Dim objStep         As DTS.Step
Dim objTask         As DTS.Task
Dim objExecPkg      As DTS.ExecutePackageTaskOn Error GoTo PackageError
Set objPackage = New DTS.Package
Set mobjPkgEvents = objPackage
objPackage.FailOnError = TrueSet objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")
Set objExecPkg = objTask.CustomTask
With objExecPkg
    .ServerName = "服务器名称"
    .ServerUserName = "用户"
    .ServerPassword = "密码"
    .Name = "包名称"
    .PackagePassword = "包密码"
End With
With objStep
    .TaskName = objExecPkg.Name
    .Name = "ExecPkgStep"
    .ExecuteInMainThread = True
End With
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTaskobjPackage.ExecuteSet objExecPkg = Nothing
Set objTask = Nothing
Set objStep = Nothing
Set mobjPkgEvents = NothingobjPackage.UnInitialize