Weet iemand hoe ik op eenvoudige wijze vanuit een ActiveX script binnen een DTS Package een ander DTS Package aan kan schoppen...
Ik heb al een manier gevonden... maar dan moet je een heel package object aan gaan maken enzo... dat is meer voor een aanroep vanuit een externe applicatie...
Vind ik een beetje omslachtig... ik zoek eerder zoiets:
Ik heb al een manier gevonden... maar dan moet je een heel package object aan gaan maken enzo... dat is meer voor een aanroep vanuit een externe applicatie...
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| 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.ExecutePackageTask On 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.Execute Set objExecPkg = Nothing Set objTask = Nothing Set objStep = Nothing Set mobjPkgEvents = Nothing objPackage.UnInitialize End Sub |
Vind ik een beetje omslachtig... ik zoek eerder zoiets:
code:
1
| DTSRun "ANDER DTS PAKKETJE", Server.Name |