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 Sub
EsbImport()