Публикации
Последние новости:
 
Высокие технологии
Technology
Компьютерное железо
Программное обеспечение
Компьютерная безопасность
Операционные системы
Компьютерный справочник
БД
Интернет сегодня
AudioТехника
Средства связи
Весь спектр цифровой техники
Мир авто
Бизнес-финансы
Всё о культуре
ПроСпорт
Всё о компьютерах
Детское чтение
Мировые телекоммуникации
Пресс-релизы
 
Статьи
Мир культуры
Интересно о спорте
Покупаем:
ТурТранс
Для прекрасных дам
Усадьба, дом
 

Платный хостинг от провайдера HostSpace.com.ua - хостинг, регистрация доменов. Поддержка PHP, MySQL, почта - в каждом тарифном плане.





Настройка характеристик показа данных


Листинг 1: Запрос и извлечение свойств ячеек









 Private Sub Form_Load()
 Открыть соединение с OLAP Services на локальном компьютере
 Dim gConnection As Connection
 Set gConnection = New Connection
 gConnection.Open "Data Source=LocalHost;Provider=MSOLAP"
 
 Убедиться в том, что работаем с базой данных FoodMart 
 If gConnection.DefaultDatabase <> "FoodMart" Then
 gConnection.DefaultDatabase = "FoodMart 2000"
 End If
 
 Объявить переменные (набор ячеек) для хранения результатов запроса
 Dim oCellSet As Cellset
 
 Запустить простой одномерный запрос MDX
 Set oCellSet = New Cellset
 oCellSet.Open "WITH CELL CALCULATION Fred FOR 
	({[Product].[Product Family].&[Food]}) " & _
 "AS CalculationPassValue(Product.CurrentMember, 0 ), " & _
 "CONDITION = CalculationPassValue(Product.CurrentMember, 0 ) 
	> 12000, " & _
 "FORE_COLOR = 255 * 256 " & _
 "SELECT [Product].[Product Family].Members on COLUMNS " & _
 "FROM Sales " & _
 "CELL PROPERTIES VALUE, FORMATTED_VALUE, 
		FORE_COLOR, BACK_COLOR", _
 gConnection
 
 Объявить переменные, необходимые для показа результатов
 Dim oAxis As Axis
 Dim nDim As Integer
 Dim oMember As Member
 Dim nCell As Integer
 Dim oCell As Cell
 Dim oProperty As Property
 Dim oPosition As Position
 
 Организовать цикл просмотра ячеек по столбцам результатов,
 выступающим в роли осей
 For nCell = 0 To oCellSet.Axes(0).Positions.Count - 1
 Получить ссылку на ячейку
 Set oCell = oCellSet(nCell)
 Получить ссылку на объект, позиционирующий ось
 Set oPosition = oCellSet.Axes(0).Positions(nCell)
 
 Вывести порядковый номер ячейки, имя члена и 
		число свойств для этой позиции
 Debug.Print "Cell(" & oCell.Ordinal & ") " & 
		oPosition.Members(0).Name & "=" & oCell.FormattedValue
 & " has " & oCell.Properties.Count & " Properties"
 
 Вывести в цикле свойства ячейки для этой позиции и их значения
 For Each oProperty In oCell.Properties
 Debug.Print "Property " & oProperty.Name & " = " & oProperty.Value
 Next
 Next nCell
 
 Set oCellSet = Nothing
 Set gConnection = Nothing
 End Sub


www.sdteam.com

БД 08-09-2006

Microsoft создает крупное дополнение для SQL Server 2008 07-10-2008 БД
Корпорация Microsoft начала работу над новым и самым крупным из всех существующих аддонов для СУБД SQL Server 2008, пока разработка фигурирует под кодовым названием Kilimanjaro. В Microsoft говорят, что Kilimanjaro призвана существенно повысить масштабируемость SQL Server 2008 и позволит ему работать с чрезвычайно крупными хранилищами данных.В основе аддона лежат разработки и технологии компании DATAllegro, купленной Microsoft около двух месяцев ...


SAP покупает компанию Visiprise 07-07-2008 БД
Европейский производитель корпоративного программного обеспечения SAP планирует купить компанию Visiprise, занимающуюся созданием софта для корпоративного и производственного планирования. Сделка, финансовые условия которой не разглашаются, будет закрыта в июле этого года.После завершения покупки, все разработки Visiprise будут интегрированы в программное обеспечение SAP для автоматизации бизнес-процессов и комплексной интеграции производственных...


SAP занялась продажей индивидуальных лицензий 08-10-2007 БД
SAP представила новый тип лицензии на программное обеспечение NetWeaver, используемое для автоматизации деятельности компаний. Новая лицензия представляет собой годовую подписку и ориентирована она на индивидуальных разработчиков.В компании говорят, что ранее SAP занималась лишь продажей лицензий компаниям, теперь индивидуальные пользователи смогут купить годовую лицензию. Для этого им необходимо будет присоединиться к сети SAP developer network ...


Oracle купила компанию Netsure Telecom 05-09-2007 БД
Oracle сегодня сообщила о покупке компании Netsure Telecom Limited, производителя средств для обеспечения безопасности сетей, исследования данных в сетях и общего анализа корпоративных сетей.Основная задача программного обеспечения Netsure Teleocm - это комплексная диагностика критически важных крупных сетей. Среди клиентов купленной компании есть и крупнейшие операторы связи - Vodafone, Cable&Wireless, Eircom и ряд других.Компания Netsure являет...

Москву посетил Президент Oracle Чарльз Филлипс 19-08-2007 БД
Сегодня в рамках московской пресс-конференции Президента Oracle Чарльза Филлипса было объявлено об итогах 30-летнего развития корпорации и ее продуктов, а также представлена глобальная стратегия Oracle.В программе четырехдневного визита руководителя Oracle в Москву и Санкт-Петербург - встречи с ключевыми клиентами и партнерами, эффективно использующими технологии и бизнес-приложения Oracle в России.По итогам 2007 финансового года, годовой доход O...

Вооруженные силы Грузии внедрили систему управления ресурсами SAP 13-07-2007 БД
Специалисты украинского НИИ автоматизированных компьютерных систем «Экотех» (НИИ АКС «Экотех») совместно со специалистами главного исполнителя проекта – грузинской компании «UGT», при участии «SAP Украина», завершили этап создания Концептуального проекта по внедрению интегрированной системы управления ресурсами предприятия SAP ERP в Вооруженных Силах (ВС) Грузии.По словам министра обороны  Грузии Давида Кезерашвили, прое...
 
При любом использовании материалов сайта ссылка на сайт www.archive.com.ua обязательна.
Rambler's Top100 Рейтинг@Mail.ru