О-О-Очень упрыщенный вариянт, так сксать касцяк...
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
Const olapLockProcess= 4
Const processRefreshData= 2
Const processFull= 1
Dim dsoServer, dsoDB, dsoCube, dsoDBDim, dsoPart --Эта типа переменные серв. бд. куб. измерения и партиции соотв.
Dim OLAPSrvName, OLAPDBName, OLAPCubeName, OLAPDimName, OLAPPartName --А эта типа имена серв. бд. куб. измерения и партиции соотв.
-- Создаем объект
Set dsoServer=CreateObject("DSO.Server")
--Соединяемся с сервером
dsoServer.Connect OLAPSrvName
--Ломимся в БД
Set dsoDB = dsoServer.MDStores(OLAPDBName)
--Определяем измерение
Set dsoDBDim=dsoDB.Dimensions(OLAPDimName)
--Лочим для процесса
dsoDBDim.LockObject olapLockProcess, "Locked for processing."
--Непосредственно процесс
dsoDBDim.Process processRefreshData
--Разлочиваем
dsoDBDim.UnlockObject
--После измерений приступаем к вод... процессу кубов/партиций. Это весь куб целиком
Set dsoCube=dsoDB.MDStores(OLAPCubeName)
--Лочим для процесса
dsoCube.LockObject olapLockProcess, "Locked for processing."
--Непосредственно процесс
dsoCube.Process processRefreshData
--Разлочиваем
dsoCube.UnlockObject
--Если куб партицирован то можно так
Set dsoPart=dsoCube.MDStores(OLAPCubeName)
-- И по накатанной схеме
dsoPart.LockObject olapLockProcess, "Locked for processing."
dsoPart.Process processRefreshData
dsoPart.UnlockObject
Set dsoDBDim=Nothing
Set dsoPart=Nothing
Set dsoCube=Nothing
Set dsoDB = Nothing
dsoServer.CloseServer
Set dsoServer = Nothing
Сразу говорю - за кадром остались: обработка exception, определение имен чего процессить(у кого на что фантазии хватит), отслеживание доступных и добавление необходимых объектов, расчет уровня агрегации....
Значения еще многих констант можно узнать посмотрев библиотеку типов DSO в любом MS продукте с VBA (EXCEL,ACCESS,WORD.... про Studio ваще молчу)
Более подробно в BOL.
Успехов.
