那位朋友有Delphi调用SQL DTS包的事例，传一份给我呀！(100分)

我在SQL里做好了DTS包，但是想通过Delphi来运行这个包，顺便指定一些变量，好让DTS包
灵活应用，哪位朋友有这方面资料或经验的，谢谢传教一下呀！

DELPHI调用已经创建的DTS包
若要执行保存为 COM 结构化存储文件的 DTS 包，请使用：
dtsrun /Ffilename /Npackage_name /Mpackage_password
若要执行保存在 SQL Server msdb 数据库中的 DTS 包，请使用：
dtsrun /Sserver_name /Uuser_nName /Ppassword /Npackage_name /Mpackage_password
若要执行保存在 Meta Data Services 中的 DTS 包，请使用：
dtsrun /Sserver_name /Uuser_nrame /Ppassword /Npackage_name /Mpackage_password /Rrepository_name

例: 服务器名为:server 用户:sa 密码:test 包名:SaleToAcces 包密码:test(若没有则下面的/M不要)
var str:string;
begin
str:='exec master.dbo.xp_cmdshell ''dtsrun /S server /U sa /P test /N SaleToAcces /M test''';
adoquery1.close;
adoquery1.sql.text:=str;
adoquery1.open;//不要返回值就execquery
end;

楼上的这个朋友可以给以源代码看看吗？

顶