by Darryn Frost (7 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(6 Votes)
The program Creates a VB Class Module from a DTS Package on a SQL Server, with all events, and its own events(Progress, currentTask, etc)
It creates a very compact script, so you can very large packages in a single routine.
The Class Module "ClassDTSScript" is what is created when you get a package from the server and script it. Simply remove the example, and add one you have done to test it. The example execution asks you to navigate to the source and destination Access Databases, and uses the filepath to pass in an ADO style connection string for the source and destination connections. The parsing routine in the class module will work for SQL Server or ACCESS. I have not handled more complicated transformations such as Many to one column mappings and such, but Execute SQL and DATAPUMP Tasks work quite well. The Example "ClassDTSScript" module included was created from a package in SQL Server 7, and includes a couple of queries, two transformations, and running a stored procedure with a parameter, as well as demonstrating using the events that are called by the DTS Package object. Read the comments in the code carefully to better understand the uses.
Download DTS Class Module and Events (217 KB)
VBcoders