处理多维数据集的VB6程序

原创 2004年06月23日 08:44:00

'****************************************************************
'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资源文件开发多国语言应用攻略

使用VB6资源文件开发多国语言应用
  • fulcrumtech
  • fulcrumtech
  • 2016年06月17日 12:12
  • 620

VB6与VB.NET的区别

语言   ·声明、初始化、终止 窗体作为一个类出现,所以窗体可以实现继承 由构造函数方法来实现初始化,总是命名为New,相当于VB6中的Class_Initialize 如果New对应VB6...
  • sunqing0316
  • sunqing0316
  • 2013年06月23日 08:01
  • 2190

让 VB6 开发的程序拥有视觉样式( XP 风格),VC++6.0 同样适用

让 VB6 开发的程序拥有视觉样式( XP 风格),VC++6.0 同样适用。     相信用 VB6 或 VC6 开发过程序的朋友都曾郁闷过吧,VB6 或 VC6 做的程序都没有视觉样式(XP...
  • ROVAST
  • ROVAST
  • 2014年05月19日 16:58
  • 2327

在VB6 处理pdf 和jpg文件

最近做的一个项目需用将pdf文件页面输出成jpg图片文件,再对这些输出的jpg页面进行裁剪操作。 因为VB6比较旧了,很多主流的插件没有vb6可用的api或者示例代码,网上找了很久,总结一下VB6可...
  • hyh19962008
  • hyh19962008
  • 2017年02月07日 00:35
  • 11

VB6多线程探秘

VB6稳定多线程,一直是争论很大的的。 比较稳定的多线程,一般使用 set MT=CreateObject("VbMT.MT") 但其他单元线程之间,是无法访问的,只有在创建者中,才可使用该对象...
  • test2002
  • test2002
  • 2016年09月08日 17:33
  • 1241

【转】在网页中运行VB6程序

用VB6做的程序在网页里运行, 需要把程序做成OCX格式,下面简单做一介绍: 首先新建一个工程, 选择ActivX控件:    然后添加控件和代码:     然后F5运行      ...
  • huanzx
  • huanzx
  • 2017年06月15日 18:08
  • 284

VB6与VB7(VB.NET)的异同

刚刚开始VB.NET的学习,就本能的直接上手了视频的学习,但实在是能力有限,不能很好的理解材料中的内容,无奈之下,就看了一些VB的pfd的文件,希望从中受益些许。         如果学过VB6,...
  • wangjinlong_
  • wangjinlong_
  • 2016年02月01日 20:18
  • 1415

VB6转VB.Net学习笔记

OCX控件注册:regsvr32 xxx.ocx,不需要加任何参数。
  • F2004
  • F2004
  • 2013年12月25日 19:20
  • 1008

VB6和VB.NET的区别

Visual Basic.NET是Microsoft Visual Studio.Net套件中主要的组成部分之一。.Net版本的Visual Basic增加了更多特性,而且烟花为完全面向对象的编程语言...
  • wxb141001yxx
  • wxb141001yxx
  • 2017年03月03日 17:46
  • 257

win7(64位)下的某些文件,用VB6开发的程序无法判断是否存在

我用VB6开发的程序,想在WIN7(64位)上运行,其中有个功能是查找WIN7(64位)系统目录下的某个文件是否存在。 结果发现,那个文件确实存在,但程序就是提示找不到文件,同样的程序在XP下运行没...
  • CJHLPLFX
  • CJHLPLFX
  • 2014年01月20日 22:34
  • 2652
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:处理多维数据集的VB6程序
举报原因:
原因补充:

(最多只允许输入30个字)