![]() | |
![]() |
| | Thread Tools | Display Modes |
#1
| |||
| |||
|
|
Hi, I need to run a dts that includes 13 others dts package. I paste the following code, please advice if this is a good way to do it. Also, I am not sure if i need to unintialize the DTS.Package everytime? Thanks Ed const DTSSQLStgFlag_UseTrustedConnection = 256 Dim myNum Dim myPackagename(13) myNum=0 myPackagename(0)="ImportMJERevenueMap" myPackagename(1)="ImportPayerRevenueMap" myPackagename(2)="ImportSoldToRevenueMap" myPackagename(3)="ImportRevenue" myPackagename(4)="ImportExpense" myPackagename(5)="ImportDepreciation" myPackagename(6)="ImportFSO_INST" myPackagename(7)="ImportFSO_MTCE" myPackagename(8)="ImportLeasePayment" myPackagename(9)="ImportNonTelco" myPackagename(10)="ImportOPSMatrics" myPackagename(11)="ImportOutTasking" myPackagename(12)="ImportProfitCenter" myPackagename(13)="ImportTelcoReport" Do While (myNum< 14) MsgBox "Begin process..." +myPackagename(myNum) Set oPKG = CreateObject("DTS.Package") oPKG.LoadFromSQLServer "ServerName","","",DTSSQLStgFlag_UseTrustedConnect ion,"","","",myPackagename |
|
oPKG.Execute 'MsgBox myPackagename(myNum) oPKG.Uninitialize() Set oPKG = Nothing myNum = myNum + 1 Loop Main = DTSTaskExecResult_Success |
![]() |
| Thread Tools | |
| Display Modes | |
| |