EsbGetDrillThruURL

Gets a list of drill-through URL names within the active database outline.

Syntax

Declare Function EsbGetDrillThruURL Lib "esbapin" (ByVal hCtx As Long, ByVal URLName As String, pUrl As ESB_DURLINFO_T, ByRef symRegions As Variant) As Long

Parameter	Description
hCtx	Visual Basic API context handle
URLName	Drill-through URL name
pUrl	URL definition
symRegions	List of symmetric regions

Return Value

If successful, gets a list of drill-through URLs in the active database outline.
If unsuccessful, returns an error code.

Access

Caller must have database Read privilege (ESB_PRIV_READ) for the specified database.
Caller must have selected the specified database as their active database using EsbSetActive().

Example

Sub ESB_GetGLDrillThru()
   Dim URLName           As String
   Dim url               As ESB_DURLINFO_T
   Dim intX              As Integer
   Dim cppDrillRegions   As Variant

   URLName = "VB URL2"
   sts = EsbGetDrillThruURL(hCtx, URLName, url, cppDrillRegions)

   Debug.Print "EsbGetDrillThruURL sts: " & sts

   If sts = 0 Then
     Debug.Print "URL Name: " & url.cpURLName
     Debug.Print "URL XML: " & url.cpURLXML

     For intX = LBound(cppDrillRegions) To UBound(cppDrillRegions)

     Debug.Print "URL Region: " & cppDrillRegions(intX)

   Next
   End If
End Sub

See also an extended example in Drill-through Visual Basic API Example.