EsbCreateDrillThruURL

Creates a drill-through URL, with the given link and the name, within the active database outline.

Syntax

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

Parameter	Description
hCtx	Visual Basic API context handle
symRegions()	Array containing the symmetric region specification
pUrl	URL definition

Return Value

If successful, creates a drill-through URL in the active database outline.
If unsuccessful, returns an error code.

Access

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

Example

Sub ESB_CreateGLDrillThru()
   Dim sts                       As Long
   Dim url                       As ESB_DURLINFO_T
   Dim cppDrillRegions(0 To 1)   As String

   '***************************************************************
   ' Need to create a local context, if files are not on the server
   '***************************************************************
   url.bIsLevel0 = 0

   cppDrillRegions(0) = "sales"
   cppDrillRegions(1) = "cogs"
   url.cpURLXML = "Testing"
   url.cpURLName = "VB URL7"
   url.iURLXMLSize = 8

   sts = EsbCreateDrillThruURL(hCtx, cppDrillRegions, url)

   Debug.Print "EsbCreateDrillThruURL sts: " & sts
End Sub

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