Need to execute Local Packages 1

[Ralph8]

I have gotten myself very confused, this should be simple I am sure.

I have two local packages SEM_DB_Export, and SEM_DB_Import that are working fine when executed in EM.

I need to execute them from VB 6 code; eg. XXX_Click

Will some one point me to a good example of a simple execution of a local package that has NO bells and whistles to worry about? I have been playing with them until I have a head full of cotton (Hope that is not becoming the norm).



TIA

Ralph D. Meredith

http://www.merecosoftware.com

 

[DrJavaJoe]

Set a reference to Microsoft DTSPackage Object Library.

Dim Pkg As DTS.Package2
Set Pkg = New DTS.Package2
Pkg.LoadFromSQLServer "ServerName", , , _
DTSSQLStgFlag_UseTrustedConnection, , , , _
"PackageName"
Pkg.FailOnError = True
Pkg.Execute

"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."