EsbGetFilter() starts getting the contents of a filter.
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 | Essbase VB API context handle |
| AppName | Application name |
| DbName | Database name |
| FltName | Filter name |
| pItems | Address of variable to receive Items of user application structures. |
Declare Function EsbGetFilter Lib "ESBAPIW" (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
EsbGetFilterRow()