EsbSetCalcList

ユーザーがアクセス可能な計算スクリプト・オブジェクトのリストを設定します。

構文

            EsbSetCalcList
             (
            hCtx, User, AppName, DbName, isAllCalcs, CalcList, Items
            )
ByVal 
            hCtx
                   As Long
ByVal 
            User
                   As String
ByVal 
            AppName
                As String
ByVal 
            DbName
                 As String
ByVal 
            isAllCalcs
             As Integer
ByVal 
            CalcList
               As String
ByVal 
            Items
                  As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
User	ユーザー名。
AppName	アプリケーション名。
DbName	データベース名。空の文字列の場合は、アプリケーションのサブディレクトリが使用されます
isAllCalcs	すべての計算を許可するフラグ。TRUEの場合、ユーザーはすべての計算スクリプトにアクセスできます。それ以外の場合は、CalcList引数で指定されている計算スクリプトにのみアクセスできます。
CalcList	計算スクリプト・オブジェクト名の文字列(CR、EOLで区切られる)。長さは、64KB未満である必要があります
Items	CalcList文字列内のアクセス可能な計算スクリプト・オブジェクト数のアイテム。

備考

AllCalcsフラグがTRUEに設定されている場合、ItemsおよびpCalcList引数は無視されます。
計算スクリプト・オブジェクトにアクセスするには、ユーザーは少なくとも該当のデータベースに対して計算アクセス権限を持っている必要があります。

戻り値

なし。

アクセス

この関数を使用するには、指定したデータベースに対して、呼出し元がデータベース・デザイン権限(ESB_PRIV_DBDESIGN)を持っている必要があります。

例

         Declare Function EsbSetCalcList Lib "ESBAPIN" (ByVal hCtx As Long, ByVal User As String, ByVal AppName As String, ByVal DbName As String, ByVal isAllCalcs As Integer, ByVal CalcList As String, ByVal Items As Integer) As Long

Sub EsbSetCalcList ()
   Dim sts As Long
   Dim Items As Integer 
   Dim User As String
   Dim AppName As String 
   Dim DbName As String
   Dim AllCalcs As Integer
   Dim CalcList As String   User = "Joseph"
   AppName = "Sample"
   DbName = "Basic"
   AllCalcs = ESB_NO   '******************************
   ' Initialize CalcList and Items
   '******************************
. 
.    '**************
   ' Set Calc list
   '**************
   sts = EsbSetCalcList (hCtx, User, AppName, DbName, AllCalcs, CalcList,
         Items)
End Sub