Posted on 2002-07-23
I am trying to access this from VB
VB6, sql server 7
and the code
dim objPck as DTS.PackageSQLServer
dim objPckInfs as DTS.PackageInfos
dim objPckInf as DTS.PackageIno
dim objDTSApp as new DTS.Application
set objPck = objDTSApp.GetPackageSQLServer("local)","sa","pwd",DTSSQLStgFlag_def
set objPckInfs = obkPck.EnumPackageInfos("", false, "")
for each objPckInf in objPckInfs
set objPckInf = objPckInfs.next
both give the error Column does not exist when trying to set objPckInf.
objPckInfs.EOF is false
I can execute objPckInfs.next and get the column error until EOF = true (and it is iterating through the packages) in which case it will succeed - so it is probably something wrong with the cration of the PackageIno object.
Anyone else tried this?