mooUser()


Returns the name of the user currently connected to Oracle OLAP.


Syntax


               mooUser()


Return Value


               STRING


Example


Public Sub mooUser()

'Shows the current database user


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

     Debug.Print o.mooUser()

    Else

   'Something went wrong print any error information

   Debug.Print "Unable to Connect"

   Debug.Print o.getlastmooerr

End If

End Sub