VBS – Access to DTS object in Sql-Server 2000
|
1 |
'********************************************************************** |
|
1 |
' Visual Basic ActiveX Script |
|
1 |
'************************************************************************ |
|
1 |
|
1 |
Function Main() |
|
1 |
Dim oPkg, oStep |
|
1 |
|
1 |
<strong>'ACCEDI AL MAIN OBJ DEL PACKAGE IN CUI è COMPRESO LO SCRIPT</strong> |
|
1 |
Set oPkg = <strong>DTSGlobalVariables.Parent </strong> |
|
1 |
<strong> </strong> |
|
1 |
<strong> 'ACCEDI ALL'ELENCO DEGLI STEPS DTS</strong> |
|
1 |
set oStep = <strong>oPkg.Steps("DTSStep_DTSActiveScriptTask_3") </strong> |
|
1 |
' oStep.ExecutionResult = DTSTaskExecResult_Success |
|
1 |
msgbox(oStep.ExecutionResult) |
|
1 |
oStep.ExecutionResult = 0 |
|
1 |
Main = DTSTaskExecResult_Success |
|
1 |
End Function |
