hi,
I have a cube and wanna create partitions by time dimension ( by year+
month)
Have any ideas to fastly create these partitions ?

TIA.

Simple use dso - copying one partition from another.

See in vbs below, i copied from my dts. Steps to implement:

1. connect to server, db and cube
2. get the template partition, from wich you'll make a copy
3. set the slice and the source table filter

Ramunas Balukonis


Function Main()

Const DSO_ServerStates_stateConnected = 1
Const DSO_SubClassTypes_sbclsRegular = 0
'Const DSO_CloneOptions_cloneObjectProperties = 0
Const DSO_CloneOptions_cloneMinorChildren = 1
Const DSO_OlapStorageModes_olapmodeMolapIndex = 0
Const maxpercent = 100

Const TemplatePartitionName = "Sales_Stock"
Const DateDimensionName = "Date.Date"

Dim DSOServer
Dim DSODatabase
Dim DSOCube
Dim DSOPartition
Dim DSODimension
Dim DSOLevel
Dim DSOAgg

Dim strServerName
Dim strDBName
Dim strCubeName
Dim strLastPartitionName

Set DSOServer = CreateObject ("DSO.Server")
Set DSODatabase = CreateObject ("DSO.Database")
Set DSOCube = CreateObject ("DSO.Cube")
Set DSOPartition = CreateObject ("DSO.Partition")
Set DSOTemplatePartition = CreateObject ("DSO.Partition")

strLastPartitionName = DTSGlobalVariables("TableName")
strServerName = DTSGlobalVariables("ServAddress")
strDBName = DTSGlobalVariables("DBName")
strCubeName = DTSGlobalVariables("CubeName")

DSOServer.Connect strServerName

If DSOServer.State <> DSO_ServerStates_stateConnected Then
Main = DTSTaskExecResult_Failure
Exit Function
End if

If Not DSOServer.MDStores.Find (strDBName) Then
Main = DTSTaskExecResult_Failure
Exit Function
End if
Set DSODatabase = DSOServer.MDStores.Item (strDBName)

If Not DSODatabase.Cubes.Find (strCubeName) Then
Main = DTSTaskExecResult_Failure
Exit Function
End if
Set DSOCube = DSODatabase.Cubes.Item(strCubeName)

If DSOCube Is Nothing Then
Main = DTSTaskExecResult_Failure
Exit Function
End If

If Not DSOCube.partitions.Find (strLastPartitionName) Then
Set DSOPartition = DSOCube.MDStores.AddNew (strLastPartitionName, 0)
If Not DSOCube.MDStores.Find(strLastPartitionName) Then
Main = DTSTaskExecResult_Failure
Exit Function
End If

Set DSOTemplatePartition = DSOCube.MDStores.Item(TemplatePartitionName)
DSOTemplatePartition.Clone DSOCube.MDStores.Item(strLastPartitionName),
DSO_CloneOptions_cloneMinorChildren

'Set DSOPartition = DSOCube.MDStores.Item(strLastPartitionName)


DSOPartition.AggregationPrefix = strLastPartitionName & "_"



If Not DSOPartition.Dimensions.Find(DateDimensionName) Then
Main = DTSTaskExecResult_Failure
Exit Function
End if

Set DSODimension = DSOPartition.Dimensions.Item(DateDimensionName)

Set DSOLevel = DSODimension.Levels.Item("(All)")
DSOLevel.SliceValue = "All dates"
Set DSOLevel = DSODimension.Levels.Item(1)
DSOLevel.SliceValue = CLng( Left(Right(strLastPartitionName, 6), 4) )
Set DSOLevel = DSODimension.Levels.Item(2)
DSOLevel.SliceValue = CLng(Right(strLastPartitionName, 2))

dimkey = CLng(Right(strLastPartitionName, 6)) - 200000

DSOPartition.SourceTableFilter = """dbo"".""Sales_Stock"".""slst_date_id""

DSOPartition.Update

End if



DSOServer.CloseServer
Set DSOServer = Nothing
Set DSODatabase = Nothing
Set DSOCube = Nothing
Set DSOPartition = Nothing

Main = DTSTaskExecResult_Success
End Function



"Steffi" <steffibev (AT) hotmail (DOT) com> wrote