mooServErr()


Returns the text of any error trapped by the Oracle OLAP environment.


Syntax


               mooServErr()


Return Value


               STRING


Example


Public Sub mooServErr()


'Get the last Oracle OLAP error


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.wrap_runNonQ("shw GenerateAnError")

     Debug.Print o.mooServErr()

    Else

   'Something went wrong print any error information

   Debug.Print "Unable to Connect"

   Debug.Print o.getlastmooerr

End If


End Sub