I'm trying to update all connections in all packages on the server if the specified value is found in the connection data source. The code seems to work fine as in there are no unexpected errors or halts except that the change doesn't actually occur. After the script runs (with no unexpected errors) I open a package to confirm the change but the connection still has the old data source! Any thoughts???

'Connect to server and get a list of all package
Set oDTSApp = New DTS.Applicatio
Set oGetPkg = oDTSApp.GetPackageSQLServer(svr, uid, pwd, auth
Set cPkgs = oGetPkg.EnumPackageInfos("", True, "") 'EnumPackageInfos(PackageName,ReturnLatest,Package ID
Set oGetPkg = Nothin

'Load each package and carry out the required change
For Each oPkg In cPkg
On Error GoTo ErrorHandle
pkgname = oPkg.Nam
myPkg.LoadFromSQLServer svr, uid, pwd, auth, , , , pkgnam

'Update connection datasourc
Set cConns = myPkg.Connection
For Each oConn In cConn
If oConn.ConnectionProperties("Data Source") = "WNCHASQ02" The
oConn.ConnectionProperties("Data Source") = "(local)
Debug.Print myPkg.Name & ": " & oConn.Nam
End I
Nex
'Need to reset the package to be empty before the next one begin
myPkg.UnInitializ
Set myPkg = Nothin
Next oPkg

There's a remarkably similar question posted shortly after this, try that
for my answer.

--
Darren Green
http://www.sqldts.com

"Kristen" <khodgesN (AT) SPAMcsr (DOT) com.au> wrote

work fine as in there are no unexpected errors or halts except that the
change doesn't actually occur. After the script runs (with no unexpected
errors) I open a package to confirm the change but the connection still has
the old data source! Any thoughts????

Yeah! I thought I had killed the first one accidentally
so I reposted!