EsbUpdateDrillThruURL

アクティブなデータベース・アウトライン内で、指定された名前のドリルスルーURLを更新します。

構文

            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

パラメータ	説明
hCtx	Visual Basic APIのコンテキスト・ハンドル
symRegions()	対称領域の指定を含む配列
pUrl	URL定義
bMerge	TRUEの場合、pUrl内のドリルスルー領域定義を、指定されたURL定義内にある既存のドリルスルー領域のリストに追加します FALSEの場合、既存のドリルスルー領域定義のリストを、pUrl内のリストで置き換えます

戻り値

正常に処理されると、URL XMLの置換と、pUrl内の対応するフィールドによるドリルスルー領域のリストの更新または置換によって、アクティブなデータベース内の指定されたドリルスルーURLが更新されます。
指定された名前のURLが存在しない場合は、エラー・コードが戻されます。

アクセス

呼出し側は、指定したデータベースに対してデータベース設計権限(ESB_PRIV_DBDESIGN)を持っている必要があります。
呼出し側はEsbSetActive()を使用して、指定したデータベースを呼出し側のアクティブなデータベースとして選択しておく必要があります。

例

         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 = "<?xml version="1.0" encoding="UTF-8"?>
<foldercontents path="/">
  <resource name="Assets Drill through GL" description="" type="application/x-hyperion-applicationbuilder-report">
    <name xml:lang="fr">Rapport de ventes</name>
    <name xml:lang="es">Informe de ventas</name>
    <action name="Display HTML" description="Launch HTML display of Content" shortdesc="HTML">
      <url>/fusionapp/Assetsdrill.jsp?$SSO_TOKEN$&$CONTEXT$&$ATTR(ds,pos,gen,level.edge)$
      </url>
    </action>
  </resource>
</foldercontents>"
   url.cpURLName = "VB URL7"
   url.iURLXMLSize = 512

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

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

ドリルスルーVisual Basic APIの例に記載されている拡張の例も参照してください。