日期:2014-05-18  浏览次数:20580 次

求执行DTSX包的vbs或批处理
求执行DTSX包的vbs或批处理

------解决方案--------------------
不懂,绑定
------解决方案--------------------
建议去相应版块问问
------解决方案--------------------
SQL code
若要运行包,可以使用 dtexec 命令提示实用工具 (dtexec.exe),也可以使用 BI Development Studio。

使用 dtexec 实用工具运行包 
打开命令提示符窗口。

使用更改目录命令 cd 将目录更改到包含 dtexec 实用工具的目录。

dtexec 实用工具的默认位置为 <驱动器>:\Program Files\Microsoft SQL Server\100\DTS\Binn。

在命令提示符下,键入以下命令:


dtexec /f "C:\Program Files\Microsoft SQL Server\100\Samples\Integration Services\Package Samples\Change Data Capture Since Last Request Package Sample\Change Data Capture LSN Based Sample\SetupCDCSample.dtsx "

按 Enter。

有关如何使用 dtexec 实用工具运行包的详细信息,请参阅 SQL Server 联机丛书中的“dtexec 实用工具”主题。

------解决方案--------------------
楼主要在程序里调用吗?不管在哪里先要用createobject创建dts包的控件
VBScript code
Const DTSSQLStgFlag_Default = 0
Const DTSStepExecResult_Failure = 1
Const DTSSQLStgFlag_UseTrustedConnection = 256

Set dtsRun = CreateObject("DTS.Package")
dtsRun.LoadFromSQLServer
"MySqlServerMa,e","","",DTSSQLStgFlag_UseTrustedConnection,"","","","MY-DTS-NAME"
dtsRun.Execute()

'some error checking.
DTSresult = True
For Each dtsStage In dtsRun.Steps

If dtsStage.ExecutionResult = DTSStepExecResult_Failure Then
DTSresult = False
Main = DTSTaskExecResult_Failure

if (dtsRun.Tasks(dtsStage.TaskName).Description = "write error
message" OR dtsRun.Tasks(dtsStage.TaskName).Description = "send email") then
DTSResult = True
end if
Else
End If

Next