挑战高手！怎么在程序里面调用sql server的DTS?

Question

我也有同感,请高手指教!
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 1

moPackage.LoadFromSQLServer('servername','sa','',DTSReposFlag_Default,'','','
','packagename');

Answer 2

先引入DTS对象，然后向怎么做都可以！！

Answer 3

先引入DTS对象，然后向怎么做都可以！??????怎么引进？？？？？？？？？？？？？

Answer 4

try:var oDTS: OleVariant;  oDTS := CreateOleObject('DTS.Task')

Answer 5

from msdn(vb example)The following code example shows a DTS package using an ExecutePackageTask, through the Execute and UnInitialize methods:Private WithEvents mobjPkgEvents As DTS.Package
. . .
Private Sub RunPackage()
'Run the package stored in file C:\DTS_UE\TestPkg\VarPubsFields.dts.
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 = True'Create the step and task. Specify the package to be run, and link the step to the task.
Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")
Set objExecPkg = objTask.CustomTask
With objExecPkg
    .PackagePassword = "user"
    .FileName = "C:\DTS_UE\TestPkg\VarPubsFields.dts"
    .Name = "ExecPkgTask"
End With
With objStep
    .TaskName = objExecPkg.Name
    .Name = "ExecPkgStep"
    .ExecuteInMainThread = True
End With
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask'Run the package and release references.
objPackage.ExecuteSet objExecPkg = Nothing
Set objTask = Nothing
Set objStep = Nothing
Set mobjPkgEvents = NothingobjPackage.UnInitialize
End Sub

Answer 6

The following vb code example shows a DTS package using an ExecutePackageTask, through the Execute and UnInitialize methods:Private WithEvents mobjPkgEvents As DTS.Package
. . .
Private Sub RunPackage()
'Run the package stored in file C:\DTS_UE\TestPkg\VarPubsFields.dts.
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 = True'Create the step and task. Specify the package to be run, and link the step to the task.
Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")
Set objExecPkg = objTask.CustomTask
With objExecPkg
    .PackagePassword = "user"
    .FileName = "C:\DTS_UE\TestPkg\VarPubsFields.dts"
    .Name = "ExecPkgTask"
End With
With objStep
    .TaskName = objExecPkg.Name
    .Name = "ExecPkgStep"
    .ExecuteInMainThread = True
End With
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask'Run the package and release references.
objPackage.ExecuteSet objExecPkg = Nothing
Set objTask = Nothing
Set objStep = Nothing
Set mobjPkgEvents = NothingobjPackage.UnInitialize
End Sub

Answer 7

delphi里面有没有这样的对象？存储过程可以通过控件引入，但是sql server 的对象比如job，DTS通过什么对象类型可以引入呢？

Answer 8

可以用Variant类型，就是gmc007(江西的佬表) 举的第一个例子

Answer 9

dtqyhq(鸿浪) :你好，能不能写两行给兄弟看看？谢了先。分数可以再加，^_^

Answer 10

高手们帮我看看这个问题，我7天了都没解决。 一个人学真不容易。
http://www.csdn.net/expert/topic/909/909516.xml?temp=.7200891