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 SubEsbGetFilterRow()