vb6 missing microsoft dts package object library

If oPackage.Steps(i).ExecutionResult = DTSStepExecResult_Failure Then Public Sub tracePackageError(oPackage As DTS.Package)ĭim ErrorIDofInterfaceWithError As String ' error reporting using step.GetExecutionErrorInfo after execution 'to save a package instead of executing it, comment out the executing package line above and uncomment the saving package line '- call Task_Sub1 for task Copied data in table (Copied data in table ) OStep.Description = 'Copy Data from Results to Step' OStep.Name = 'Copy Data from Results to Step' OConnection.ConnectionProperties('Blob Col Mask: 0=no, 1=yes, e.g. OConnection.ConnectionProperties('Max characters per delimited column') = 8000 OConnection.ConnectionProperties('Text Qualifier Col Mask: 0=no, 1=yes, e.g. OConnection.ConnectionProperties('Number of Column') = 20 OConnection.ConnectionProperties('Column Names') = 'HQID,LastUpdated,Number,StoreID,ID,Name,Password,FloorLimit,ReturnLimit,CashDrawerNumber,SecurityLevel,Privileges,EmailAddress,FailedLogonAttempts,DBTimeStamp,MaxOverShortAmount,MaxOverShortPercent,OverShortLimitType,AutoID,Telephone'

OConnection.ConnectionProperties('First Row Column Name') = False OConnection.ConnectionProperties('Text Qualifier') = '''' OConnection.ConnectionProperties('Skip Rows') = 0 OConnection.ConnectionProperties('File Type') = 1 OConnection.ConnectionProperties('Column Delimiter') = ',' OConnection.ConnectionProperties('File Format') = 1 OConnection.ConnectionProperties('Row Delimiter') = vbCrLf OConnection.ConnectionProperties('Mode') = 3 OConnection.ConnectionProperties('Data Source') = '' 'If you have a password for this connection, please uncomment and add your password below. OConnection.ConnectionProperties('Application Name') = 'DTS Import/Export Wizard' OConnection.ConnectionProperties('Data Source') = '(local)' OConnection.ConnectionProperties('Initial Catalog') = 'EndofY' OConnection.ConnectionProperties('Persist Security Info') = True OConnection.ConnectionProperties('Integrated Security') = 'SSPI' 'For security purposes, the password is never scripted GoPackage.ExplicitGlobalVariables = False GoPackage.FailPackageOnLogFailure = False GoPackage.UseOLEDBServiceComponents = True GoPackage.TransactionIsolationLevel = 4096 GoPackage.WriteCompletionStatusToNTEventLog = False I used DTS wizard to create my vb code and I am following this page: (SQL.80).aspxĬan someone please guide me in the right direction. I am having issues with 'DTS.OleDBProperties' cannot be indexed because it has no default property at the following line :oConnection.ConnectionProperties This is the first time I am doing this, so it is Brand new to me. I am having issues with the following code.

Vb6 missing microsoft dts package object library