EsbUpdateDrillThruURL

Updates a drill-through URL, with the given name, within the active database outline.

Syntax

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

Parameter	Description
hCtx	Visual Basic API context handle
symRegions()	Array containing the symmetric region specification
pUrl	URL definition
bMerge	If True, add drill-through region definitions in pUrl to the existing list of drill-through regions in the named URL definition If False, replace the existing list of drill-through region definitions with the list in pUrl

Return Value

If successful, updates the named drill-through URL in the active database by replacing the URL XML and either updating or replacing the drill-through region list with the corresponding fields in pUrl.
If there is no URL with the given name, 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_UpdateGLDrillThru()
   Dim sts                       As Long
   Dim url                       As ESB_DURLINFO_T
   Dim cppDrillRegions(0 To 1)   As String
   Dim bMerge                    As Integer

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

   cppDrillRegions(0) = "qtr1"
   url.cpURLXML = "Testing"
   url.cpURLName = "VB URL7"
   url.iURLXMLSize = 8

   sts = EsbUpdateDrillThruURL(hCtx, cppDrillRegions, url, bMerge)

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

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