EsbSetFilter

フィルタのコンテンツの設定を開始します。

構文

            EsbSetFilter
             (
            hCtx, AppName, DbName, FltName, isActive, pAccess
            )
ByVal 
            hCtx
                 As Long
ByVal 
            AppName
              As String
ByVal 
            DbName
               As String
ByVal 
            FltName
              As String
ByVal 
            isActive
             As Integer
ByVal 
            pAccess
              As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
AppName	アプリケーション名。
DbName	データベース名。
FltName	フィルタ名。フィルタ名の制限を参照してください。
isActive	フィルタのアクティブ・フラグ。TRUEの場合はフィルタがアクティブに設定され、TRUEでない場合は非アクティブに設定されます。
pAccess	デフォルトのフィルタ・アクセス・レベル。

備考

フィルタが存在しない場合は、この呼出しによって最初にそのフィルタが作成されます。
この呼出しの後にEsbSetFilterRow()を続けて呼び出して、フィルタのすべての行を設定する必要があります。

戻り値

なし。

アクセス

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

例

         Declare Function EsbSetFilter Lib "ESBAPIN" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, ByVal FltName As String, ByVal is Active As Integer, ByVal pAccess As Integer) As Long

Sub ESB_SetFilter() 
   Dim sts As Long
   Dim AppName As String
   Dim DbName As String
   Dim FilterName As String
   Dim Active As Integer
   Dim pAccess As Integer
   Dim Row As String AppName = "Demo"
   DbName = "Basic"
   FilterName = "Filter"
   Active = ESB_YES
   pAccess = ESB_ACCESS_DBCREATE '***********
   ' Set Filter
   '***********
   sts = EsbSetFilter(hCtx, AppName, DbName,
   FilterName, Active, pAccess)
   pAccess = ESB_ACCESS_READ
   Row = "@IDESCENDANTS(Scenario)"
   sts = EsbSetFilterRow(hCtx, Row, pAccess)
   pAccess = ESB_ACCESS_WRITE
   Row = "@IDESCENDANTS(Scenario), East"
   sts = EsbSetFilterRow(hCtx, Row, pAccess)
   sts = EsbSetFilterRow(hCtx, ByVal 0&, pAccess)
End Sub