Example of an Excel VBA application using the mooallstat function:
Public Sub mooSetAWWaitTime()
'Sets the AWWaitTime Option in Oracle OLAP
'If 0 is passed then the default 20 is applied
Dim boo As Boolean
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
If boo = True Then
boo = o.mooSetAWWaitTime("0") ' seconds passed here
boo = o.wrap_runNonQ("show AWWaitTime"): Debug.Print (o.mooGetDML)
Else
'Something went wrong print any error information
Debug.Print "Unable to Connect"
Debug.Print o.getlastmooerr
End If
End Sub
Sets the Oracle OLAP AWWAITIME option
Syntax
moosetawwaittime(“ [integer value] ”)
Where the [integer value] is the number of seconds required.
If zero is entered the value will be set to the default of 20.
Microsoft®, WINDOWS®, Microsoft Excel®, Microsoft Office® are registered trademarks of Microsoft Corporation.
ORACLE® is a registered trademark of ORACLE Corporation.
® SDMC Consulting Limited 2010
