The script displayed below is being used to display some information
about the package and log to some messageboxes (presently). The
EnumPackageRecords works fine and returns all the data it should.
EnumPackageInfos and EnumStepLogRecords do not return any data or
display their messagebox. No error is given. I am having difficulty in
determining why this is occurring. All three operate very similarly as I
understand it. I am interested in comments and suggestions on this
problem.


'Init Variables for EnumPackageRecords Data
dim strName
dim strDescription
dim strPackageID
dim strLineageFullID
dim strLineageShortID
dim strComputer
dim strOperator
dim strLogDate
dim strExecutionTime
dim strStartTime
dim strFinishTime
dim strErrorCode
dim strErrorDescription

'Init Variables for EnumPackageInfos Data
dim colPackageInfo
dim objPackageInfo

'Init Variables for EnumStepLogRecords Data
dim colStepLogRecords
dim objStepLogRecords

'Init Variables for Misc
dim app
dim coll
dim pkg
dim pss
dim opi


set pkg = DTSGlobalVariables.parent

set app = CREATEOBJECT("DTS.Application")

set pss = app.GetPackageSQLServer( "SERVER", "", "",
DTSSQLStgFlag_UseTrustedConnection)

set coll = pss.EnumPackageLogRecords(pkg.name, True, "", pkg.VersionID,
"")
set colPackageInfo = pss.EnumPackageInfos(pkg.name, True,
pkg.VersionID)

set opi = coll.Next
set objPackageInfo = colPackageInfo.Next

do until coll.EOF
msgbox ( "Name: " & opi.Name & _
vbCrLf & "Description: " & opi.Description & _
vbCrLf & "PackageID: " & opi.PackageID & _
vbCrLf & "LineageFullID: " & opi.LineageFullID & _
vbCrLf & "LineageShortID: " & opi.LineageShortID & _
vbCrLf & "Computer: " & opi.Computer & _
vbCrLf & "Operator: " & opi.Operator & _
vbCrLf & "LogDate: " & opi.LogDate & _
vbCrLf & "ExecutionTime: " & opi.ExecutionTime & _
vbCrLf & "StartTime: " & opi.StartTime & _
vbCrLf & "FinishTime: " & opi.FinishTime & _
vbCrLf & "ErrorCode: " & opi.ErrorCode & _
vbCrLf & "ErrorDescription: " & opi.ErrorDescription )
strName = opi.Name
strDescription = opi.Description
strPackageID = opi.PackageID
strLineageFullID = opi.LineageFullID
strLineageShortID = opi.LineageShortID
strComputer = opi.Computer
strOperator = opi.Operator
strLogDate = opi.LogDate
strExecutionTime = opi.ExecutionTime
strStartTime = opi.StartTime
strFinishTime = opi.FinishTime
strErrorCode = opi.ErrorCode
strErrorDescription = opi.ErrorDescription

set opi = coll.Next
Loop
'EnumPackageInfos
do until colPackageInfo.EOF
msgbox ("CreationDate: " & objPackageInfo.CreationDate & _
vbCrLf & "Description: " & objPackageInfo.Description & _
vbCrLf & "IsOwner: " & objPackageInfo.IsOwner & _
vbCrLf & "Name: " & objPackageInfo.Name & _
vbCrLf & "Owner: " & objPackageInfo.Owner & _
vbCrLf & "PackageDataSize: " & objPackageInfo.PackageDataSize & _
vbCrLf & "PackageID: " & objPackageInfo.PackageID & _
vbCrLf & "PackageType" & objPackageInfo.PackageType & _
vbCrLf & "PackageInfo: " & objPackageInfo.VersionID _
)
set objPackageInfo = colPackageInfo.Next
Loop

'EnumStepLogRecords
set colStepLogRecords = pss.EnumStepLogRecords(strLineageFullID, "")
set objStepLogRecords = colStepLogRecords.Next

do until colStepLogRecords.EOF
msgbox ("ErrorCode: " & objStepLogRecords.ErrorCode & _
vbCrLf & "ErrorDescription: " & objStepLogRecords.ErrorDescription &
_
vbCrLf & "ExecutionTime: " & objStepLogRecords.ExecutionTime & _
vbCrLf & "FinishTime: " & objStepLogRecords.FinishTime & _
vbCrLf & "LineageFullID: " & objStepLogRecords.LineageFullID & _
vbCrLf & "Name: " & objStepLogRecords.Name & _
vbCrLf & "ProgressCount: " & objStepLogRecords.ProgressCount & _
vbCrLf & "StartTime: " & objStepLogRecords.StartTime & _
vbCrLf & "StepExecutionID: " & objStepLogRecords.StepExecutionID & _
vbCrLf & "StepExecutionResult: " &
objStepLogRecords.StepExecutionResult _
)

set objStepLogRecords = colStepLogRecords.Next

Loop



*** Sent via Developersdex http://www.developersdex.com ***

I have figured out the problem with EnumStepLogRecords. I had an empty
string where a NULL needed to be, i.e.

set colStepLogRecords = pss.EnumStepLogRecords(strLineageFullID, "")

set colStepLogRecords = pss.EnumStepLogRecords(strLineageFullID, NULL)

EnumStepLogRecords now works fine, but EnumPackageInfos does not.

*** Sent via Developersdex http://www.developersdex.com ***

With regard to the EnumPackageInfos, for some reason, putting an empty
string for the versionid works, while putting the guid for the versionid
does not. I am unclear on why this is the case, but I am happy that the
results I desire are occurring.

set colPackageInfo = pss.EnumPackageInfos(pkg.name, True, "")

set colPackageInfo = pss.EnumPackageInfos(pkg.name, True, pkg.VersionID)




*** Sent via Developersdex http://www.developersdex.com ***