EsbSetDatabaseState() sets user-configurable parameters for the database using the database's state structure.
EsbSetDatabaseState (hCtx, AppName, DbName, pDbState)
ByVal hCtx As Long ByVal AppName As String ByVal DbName As String ByVal pDbState As ESB_PDBSTATE_T
| hCtx | Essbase VB API context handle. |
| AppName | Application name. |
| DbName | Database name. |
| pDbState | Pointer to a database state structure. |
Declare Function EsbSetDatabaseState Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, DbState As ESB_DBSTATE_T) As Long
Sub ESB_SetDatabaseState ()
Dim sts As Long
Dim AppName As String
Dim DbName As String
Dim DbState As ESB_DBSTATE_T
AppName = "Sample"
DbName = "Basic"
************************************
' Initialize DbState structure fields
'************************************
' DbState.Description = "This is Sample/Basic"
DbState.Loadable = "1"
'*****************************
' Set Database state structure
'*****************************
sts = EsbSetDatabaseState (hCtx, AppName,
DbName, DbState)
End Sub
EsbGetDatabaseState()