EsbCreateDrillThruURL

アクティブなデータベース・アウトライン内に、指定されたリンクと名前を使用してドリルスルーURLを作成します。

構文

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

パラメータ	説明
hCtx	Visual Basic APIのコンテキスト・ハンドル
symRegions()	対称領域の指定を含む配列
pUrl	URL定義

戻り値

正常に処理されると、アクティブなデータベース・アウトライン内にドリルスルーURLが作成されます。
処理に失敗すると、エラー・コードが戻されます。

アクセス

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

例

         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 = "<?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 = EsbCreateDrillThruURL(hCtx, cppDrillRegions, url)

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

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