![]() | |
![]() |
| | Thread Tools | Display Modes |
#1
| |||
| |||
|
#2
| |||
| |||
|
|
I keep getting the following error message when trying to run a package that contains only two steps... An ActiveX Task that is declaring properties |
|
Error Source: Microsoft Data Transformation Services (DTS) Package Error Description: General Error -2147220501 (800403EB). and that's it... I have .NET installed on my machine, when I debug the script... I'm being advised that the Bulk Export Task does not exist but it's there on the |
|
Here is the code that I'm using: Option Explicit Function Main() Dim FF Dim oPkg Dim uFileDate, uFileName Set oPkg = DTSGlobalVariables.Parent uFileDate = Replace(FormatDateTime((Now() -1), vbShortDate), "/", "") uFileDate = Replace(uFileDate, Year(Now()), Right(Year(Now()), 2)) uFilename = "\\server_leadpool\e$\Servitel\Update_" & uFileDate & ".txt" Set FF = oPkg.Tasks("DTSStep_DTSBulkExport.ExportData_1").C ustomTask FF.Properties("ServerName") = "Server_Leads" FF.Properties("Flags") = 256 FF.Properties("ObejctName") = "vSel_FLUpdateFile" FF.Properties("ObjectType") = 1 FF.Properties("ExportFile") = uFileName Main = DTSTaskExecResult_Success End Function Thanks in advance |
#3
| |||
| |||
|
|
I keep getting the following error message when trying to run a package that contains only two steps... An ActiveX Task that is declaring properties |
|
Error Source: Microsoft Data Transformation Services (DTS) Package Error Description: General Error -2147220501 (800403EB). and that's it... I have .NET installed on my machine, when I debug the script... I'm being advised that the Bulk Export Task does not exist but it's there on the |
|
Here is the code that I'm using: Option Explicit Function Main() Dim FF Dim oPkg Dim uFileDate, uFileName Set oPkg = DTSGlobalVariables.Parent uFileDate = Replace(FormatDateTime((Now() -1), vbShortDate), "/", "") uFileDate = Replace(uFileDate, Year(Now()), Right(Year(Now()), 2)) uFilename = "\\server_leadpool\e$\Servitel\Update_" & uFileDate & ".txt" Set FF = oPkg.Tasks("DTSStep_DTSBulkExport.ExportData_1").C ustomTask FF.Properties("ServerName") = "Server_Leads" FF.Properties("Flags") = 256 FF.Properties("ObejctName") = "vSel_FLUpdateFile" FF.Properties("ObjectType") = 1 FF.Properties("ExportFile") = uFileName Main = DTSTaskExecResult_Success End Function Thanks in advance |
![]() |
| Thread Tools | |
| Display Modes | |
| |