DTS Active X script - SQL Server Forums

Please start any new threads on our new site at https://forums.sqlteam.com. We've got lots of great SQL Server experts to answer whatever question you can come up with.

All Forums

SQL Server 2000 Forums

SQL Server Development (2000)

DTS Active X script

Author

Topic

KnooKie
Aged Yak Warrior

623 Posts

Posted - 2001-02-06 : 10:17:04

I have written the follwing to move data from a SQL7 DB to a SQK2K DB within the Active X part of a Transform Data Task:

It essentially moves records only if they meet one of three conditions.

Function Main()

Dim booJustDoIt

booJustDoIt = False

If DTSSource("Upload_Status_Code") = "I" And DTSSource("FMG_Address_Status") = 2 And DTSSource("Active") = True Then
booJustDoIt = True
End If

If DTSSource("Upload_Status_Code") = "U" And DTSSource("FMG_Address_Status") = 2 And DTSSource("Active") = True Then
booJustDoIt = True
End If

If DTSSource("Upload_Status_Code") = "U" And DTSSource("FMG_Address_Status") = 2 And DTSSource("Active") = False Then
booJustDoIt = True
End If

If booJustDoIt = True Then
DTSDestination("FMG_Address_Code") = DTSSource("FMG_Address_Code")
DTSDestination("Proteus_FMG_Code") = DTSSource("Proteus_FMG_Code")
DTSDestination("HeadOffice") = DTSSource("HeadOffice")
DTSDestination("Telephone_Number") = DTSSource("Telephone_Number")
DTSDestination("Fax_Number") = DTSSource("Fax_Number")
DTSDestination("Website") = DTSSource("Website")
DTSDestination("Floor/Building") = DTSSource("Floor/Building")
DTSDestination("Street") = DTSSource("Street")
DTSDestination("City") = DTSSource("City")
DTSDestination("State/Province") = DTSSource("State/Province")
DTSDestination("Country") = DTSSource("Country")
DTSDestination("Postal_Code") = DTSSource("Postal_Code")
DTSDestination("FMG_Address_Status") = DTSSource("FMG_Address_Status")
DTSDestination("Last_Modified_By") = DTSSource("Last_Modified_By")
DTSDestination("Last_Modified_Date") = DTSSource("Last_Modified_Date")
DTSDestination("Upload_Status_Code") = DTSSource("Upload_Status_Code")
DTSDestination("Active") = DTSSource("Active")
Main = DTSTransformStat_OK
Else
Main = DTSTransformStat_SkipRow
End If
End Function

The problem is when i try and execute the package i get the following informative error message which i don't understand:

ActiveX scripting Transform 'DTS Transformation_1' was not able to initialize the script execution engine.

How do i initialize the engine ??

anagha
Starting Member

4 Posts

Posted - 2006-03-03 : 05:42:28

Plz update us with the way you solved the problem..:)

Subscribe to SQLTeam.com

SQLTeam.com Articles via RSS

SQLTeam.com Weblog via RSS

- Advertisement -

Resources