Example of an Excel VBA application using the olapQDR function:
Public Sub olapQDR()
'Return a QDR from Oracle OLAP
If Not oregistered Then: boo = regQ:
'Check Im connected if not connect
If Not o.connected Then
boo = o.connect
boo = o.connected
Else
boo = True
End If
'Connected so execute the qdr
If boo = True Then
boo = o.mooAwAttach("EXPRESS", "FIRST")
'INTL.MLANGMAP is a variable within the Express AW
'You can pass any valid OLAP qdr to olapqdr
Debug.Print (o.olapQDR("INTL.MLANGMAP(INTL.MLANG 'ENB')"))
End If
End Sub
An end user orientated function that can be used to return a value from an Oracle OLAP array by fully qualifying the coordinates within the array.
olapqdr(“ [valid QDR statement] “)
where QDR statements in the the form cube(dim1 dimval1 dim2 dimval2 ....dimx dimvalx)
The QDR must be fully referenced for the stated cube otherwise an error will be returned.
Syntax
Microsoft®, WINDOWS®, Microsoft Excel®, Microsoft Office® are registered trademarks of Microsoft Corporation.
ORACLE® is a registered trademark of ORACLE Corporation.
® SDMC Consulting Limited 2010
