Visual Basic Script - Synaptica srl

VBS – Access to DTS object in Sql-Server 2000

'**********************************************************************

1	'**********************************************************************

'  Visual Basic ActiveX Script

1	' Visual Basic ActiveX Script

'************************************************************************

1	'************************************************************************

Function Main()

1	Function Main()

             Dim oPkg, oStep

1	Dim oPkg, oStep

             <strong>'ACCEDI AL MAIN OBJ DEL PACKAGE IN CUI è COMPRESO LO SCRIPT</strong>

1	<strong>'ACCEDI AL MAIN OBJ DEL PACKAGE IN CUI è COMPRESO LO SCRIPT</strong>

             Set oPkg = <strong>DTSGlobalVariables.Parent </strong>

1	Set oPkg = <strong>DTSGlobalVariables.Parent </strong>

<strong> </strong>

1	<strong> </strong>

<strong>             'ACCEDI ALL'ELENCO DEGLI STEPS DTS</strong>

1	<strong> 'ACCEDI ALL'ELENCO DEGLI STEPS DTS</strong>

             set oStep = <strong>oPkg.Steps("DTSStep_DTSActiveScriptTask_3") </strong>

1	set oStep = <strong>oPkg.Steps("DTSStep_DTSActiveScriptTask_3") </strong>

            ' oStep.ExecutionResult =   DTSTaskExecResult_Success

1	' oStep.ExecutionResult = DTSTaskExecResult_Success

             msgbox(oStep.ExecutionResult)

1	msgbox(oStep.ExecutionResult)

             oStep.ExecutionResult = 0

1	oStep.ExecutionResult = 0

        Main = DTSTaskExecResult_Success

1	Main = DTSTaskExecResult_Success

End Function

1	End Function