处理多维数据集的VB6程序
来源:互联网 发布:梦里花落知多少小说网 编辑:程序博客网 时间:2024/06/11 21:32
'****************************************************************
'Microsoft SQL Server 2000
'Visual Basic file generated for DTS Package
'File Name: C:/Documents and Settings/maintain/桌面/ProcessCube.bas
'Package Name: ProcessCube
'Package Description:
'Generated Date: 2004-6-11
'Generated Time: 9:37:31
'****************************************************************
Option Explicit
Public goPackageOld As New DTS.Package
Public goPackage As DTS.Package2
Private Sub Main()
set goPackage = goPackageOld
goPackage.Name = "ProcessCube"
goPackage.WriteCompletionStatusToNTEventLog = False
goPackage.FailOnError = False
goPackage.PackagePriorityClass = 2
goPackage.MaxConcurrentSteps = 4
goPackage.LineageOptions = 0
goPackage.UseTransaction = True
goPackage.TransactionIsolationLevel = 4096
goPackage.AutoCommitTransaction = True
goPackage.RepositoryMetadataOptions = 0
goPackage.UseOLEDBServiceComponents = True
goPackage.LogToSQLServer = False
goPackage.LogServerFlags = 0
goPackage.FailPackageOnLogFailure = False
goPackage.ExplicitGlobalVariables = False
goPackage.PackageType = 0
'---------------------------------------------------------------------------
' create package steps information
'---------------------------------------------------------------------------
Dim oStep as DTS.Step2
Dim oPrecConstraint as DTS.PrecedenceConstraint
'------------- a new step defined below
Set oStep = goPackage.Steps.New
oStep.Name = "DTSStep_DTSOlapProcess.Task_1"
oStep.Description = "Analysis Services 处理任务: 未定义"
oStep.ExecutionStatus = 1
oStep.TaskName = "DTSOlapProcess"
oStep.CommitSuccess = False
oStep.RollbackFailure = False
oStep.ScriptLanguage = "VBScript"
oStep.AddGlobalVariables = True
oStep.RelativePriority = 3
oStep.CloseConnection = False
oStep.ExecuteInMainThread = True
oStep.IsPackageDSORowset = False
oStep.JoinTransactionIfPresent = False
oStep.DisableStep = False
oStep.FailPackageOnError = False
goPackage.Steps.Add oStep
Set oStep = Nothing
'---------------------------------------------------------------------------
' create package tasks information
'---------------------------------------------------------------------------
'------------- call Task_Sub1 for task DTSOlapProcess (Analysis Services 处理任务: 未定义)
Call Task_Sub1( goPackage )
'---------------------------------------------------------------------------
' Save or execute package
'---------------------------------------------------------------------------
'goPackage.SaveToSQLServer "(local)", "sa", ""
goPackage.Execute
tracePackageError goPackage
goPackage.Uninitialize
'to save a package instead of executing it, comment out the executing package lines above and uncomment the saving package line
set goPackage = Nothing
set goPackageOld = Nothing
End Sub
'-----------------------------------------------------------------------------
' error reporting using step.GetExecutionErrorInfo after execution
'-----------------------------------------------------------------------------
Public Sub tracePackageError(oPackage As DTS.Package)
Dim ErrorCode As Long
Dim ErrorSource As String
Dim ErrorDescription As String
Dim ErrorHelpFile As String
Dim ErrorHelpContext As Long
Dim ErrorIDofInterfaceWithError As String
Dim i As Integer
For i = 1 To oPackage.Steps.Count
If oPackage.Steps(i).ExecutionResult = DTSStepExecResult_Failure Then
oPackage.Steps(i).GetExecutionErrorInfo ErrorCode, ErrorSource, ErrorDescription, _
ErrorHelpFile, ErrorHelpContext, ErrorIDofInterfaceWithError
MsgBox oPackage.Steps(i).Name & " failed" & vbCrLf & ErrorSource & vbCrLf & ErrorDescription
End If
Next i
End Sub
'------------- define Task_Sub1 for task DTSOlapProcess (Analysis Services 处理任务: 未定义)
Public Sub Task_Sub1(ByVal goPackage As Object)
Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup
Dim oCustomTask1 As DTSOlapProcess.Task
Set oTask = goPackage.Tasks.New("DTSOlapProcess.Task")
oTask.Name = "DTSOlapProcess"
Set oCustomTask1 = oTask.CustomTask
oCustomTask1.Name = "DTSOlapProcess"
oCustomTask1.Description = "Analysis Services 处理任务: 未定义"
oCustomTask1.TreeKey = "CPT-EXTDOMAIN/FoodMart 2000/CubeFolder/Sales"
oCustomTask1.ItemType = 4
oCustomTask1.ProcessOption = 0
oCustomTask1.Datasource = "FoodMart"
oCustomTask1.FactTable = """sales_fact_1997"""
oCustomTask1.IncrementallyUpdateDimensions = False
goPackage.Tasks.Add oTask
Set oCustomTask1 = Nothing
Set oTask = Nothing
End Sub
- 处理多维数据集的VB6程序
- BI笔记:增量方式处理多维数据集
- BI笔记之---增量方式处理多维数据集
- 多维数据集(转载的)
- 多维数据的LINQ
- 多维数据集
- 多维数据集简介
- 从基于服务器的多维数据集创建的本地多维数据集
- 处理多维数组的列
- [VB.NET]在VS2005里类拟于VB6的外接程序->可视化数据管理器是哪个?
- OLAP的多维数据分析
- 多维数据库的数据存储
- 基于VS平台的多维数据集的建立
- VB6 中处理 INI 文件的方法
- owc展示多维数据集
- ecshop AJAX-POST 多维JSON 数据给PHP处理的方法
- 多维数据集的主动缓存(Proactive Caching)
- 用VB6.0做的自动更新程序
- JDBC性能技巧
- 游七宝滑雪场
- 第一篇文章,第一个blog,第一.......
- .NET - Diving into System Programming - Part 1[转贴]
- CSDN Blog开张大吉,恭喜,恭喜.
- 处理多维数据集的VB6程序
- monkey7.com
- 第一次
- It's just a test!
- 热烈祝贺 CSDN Blog 开通!!!!
- .NET - Diving into System Programming - Part 2[转贴]
- 加班的端午
- ORACLE学习笔记1(原创)
- 回归网络安全!