EsbListFilters

データベースのすべてのフィルタをリストします。

構文

            EsbListFilters
             (
            hCtx, AppName, DbName, pItems
            )
ByVal 
            hCtx
                As Long
ByVal 
            AppName
             As String
ByVal 
            DbName
              As String
      
            pItems
              As Integer
         

戻り値

正常終了の場合は、データベース内のフィルタのアイテムがpItemsに戻され、EsbGetNextItem()を介してアクセス可能なフィルタ名の配列が生成されます。

アクセス

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

例

         Declare Function EsbListFilters Lib "ESBAPIN" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, Items As Integer) As Long

Sub ESB_ListFilters ()
   Dim Items As Integer
   Dim AppName As String
   Dim DbName As String 
   Dim FilterName As String * ESB_FTRNAMELEN
   Dim sts As Long   AppName = "Sample"
   DbName = "Basic"   '*************
   ' List Filters
   '************* 
   sts = EsbListFilters (hCtx, AppName, DbName, Items)   For n = 1 To Items
     '****************************
     ' Get next Filter Name String 
     ' from the list
     '****************************
     sts = EsbGetNextItem (hCtx, 
           ESB_FTRNAME_TYPE, ByVal FilterName)
   Next
End Sub
      

関連トピック

• EsbGetFilter
• EsbSetFilter
• EsbGetNextItem