![]() | |
![]() |
| | Thread Tools | Display Modes |
#1
| |||
| |||
|
#2
| |||
| |||
|
#3
| |||
| |||
|
|
Hi Stan, Try PKG.Steps("DTSStep_DTSDataPumpTask_1").ExecutionSt atus = DTSStepExecStat_Waiting HTH ----- Stan Sainte-Rose wrote: ----- Hi, I m near to end my package.. I have a problem with the Loop I add my script at the end. It exports the first file but ignore the others rows. It seems after the first export process, it doesn't go back to the oRS.MoveNext Line. Any idea ? Stan Function Main() dim pkg dim conTextFile set pkg = DTSGlobalVariables.Parent Dim oRS Set oRS = DTSGlobalVariables("Table").Value DTSGlobalVariables("SOCID").Value = oRS.Fields(0).Value DTSGlobalVariables("FILENAME").Value = "e:\AOV2\UPLOAD\" & oRS.Fields(1).Value & "\PROD\client.csv" set conTextFile = pkg.Connections("File2Export") conTextFile.DataSource = DTSGlobalVariables("FILENAME").Value oRS.MoveNext Set oRS = Nothing Main = DTSTaskExecResult_Success End Function |
#4
| |||
| |||
|
|
Hi, I m near to end my package.. I have a problem with the Loop I add my script at the end. It exports the first file but ignore the others rows. It seems after the first export process, it doesn't go back to the oRS.MoveNext Line. Any idea ? Stan Function Main() dim pkg dim conTextFile set pkg = DTSGlobalVariables.Parent Dim oRS Set oRS = DTSGlobalVariables("Table").Value DTSGlobalVariables("SOCID").Value = oRS.Fields(0).Value DTSGlobalVariables("FILENAME").Value = "e:\AOV2\UPLOAD\" & oRS.Fields(1).Value & "\PROD\client.csv" set conTextFile = pkg.Connections("File2Export") conTextFile.DataSource = DTSGlobalVariables("FILENAME").Value oRS.MoveNext Set oRS = Nothing Main = DTSTaskExecResult_Success End Function |
![]() |
| Thread Tools | |
| Display Modes | |
| |