EsbExport() exports a database to an ASCII file.
EsbExport (hCtx, AppName, DbName, FilePath, Level, isColumns)
ByVal hCtx As Long ByVal AppName As String ByVal DbName As String ByVal FilePath As String ByVal Level As Integer ByVal isColumns As Integer
hCtx | Essbase VB API context handle. |
AppName | Name of application to archive. |
DbName | Name of database to archive. |
FilePath | Full path name of server file to contain archive information. |
Level | Controls level of data to export. Should be one of:
ESB_DATA_ALL - export all levels of data. ESB_DATA_LEVEL0 - only export all data from level zero blocks. ESB_DATA_INPUT - only export data from input level blocks. |
isColumns | Controls output of data blocks in column format. |
Declare Function EsbExport Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, ByVal FilePath As String, ByVal Level As Integer, ByVal Columns As Integer) As Long Sub ESB_Export () Dim sts As Long Dim AppName As String Dim DbName As String Dim PathName As String Dim Level As Integer Dim Columns As Integer Dim ProcState As ESB_PROCSTATE_T AppName = "Sample" DbName = "Basic" PathName = "c:\essbase\main.txt" Level = ESB_DATA_INPUT Columns = ESB_YES '****************************** ' Export input level data only '****************************** sts = EsbExport (hCtx, AppName, DbName, PathName, Level, Columns) '************************************ ' Check process state till it is done '************************************ sts = EsbGetProcessState (hCtx, ProcState) Do Until ProcState.State = ESB_STATE_DONE sts = EsbGetProcessState (hCtx, ProcState) Loop End SubEsbImport()