EsbGetFilter

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

構文

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

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル
AppName	アプリケーション名
DbName	データベース名
FltName	フィルタ名
pItems	ユーザー・アプリケーション構造体のアイテムを受け取る変数のアドレス。

備考

この呼出しの後に続いてEsbGetFilterRow()を呼び出し、フィルタ行をフェッチする必要があります。

戻り値

正常終了の場合、フィルタのアクティブ・フラグがpActiveに、そしてデフォルトのフィルタ・アクセス・レベルがpAccessに戻されます。

アクセス

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

例

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

Sub ESB_GetFilter ()
   Dim sts As Long
   Dim AppName As String
   Dim DbName As String
   Dim FilterName As String
   Dim Active As Integer
   Dim pAccess As Integer
   Const szRow = 512
   Dim Row As String * szRow   AppName = "Sample"
   DbName = "Basic"
   FilterName = "Filter"   '***********
   ' Get Filter
   '***********
   sts = EsbGetFilter (hCtx, AppName, DbName, FilterName, Active, 
    pAccess)    '****************
   ' Get Filter Rows
   '****************
   sts = EsbGetFilterRow (hCtx, Row, szRow, pAccess) 
     Do While Mid$(Row,1,1) <> chr$(0)
       sts = EsbGetFilterRow (hCtx, Row, szRow, pAccess)
   Loop
End Sub