EsbExport

データベースをASCIIファイルにエクスポートします

構文

            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	VB APIコンテキスト・ハンドル。
AppName	アーカイブするアプリケーション名。
DbName	アーカイブするデータベース名。
FilePath	アーカイブ情報を含むサーバー・ファイルのフル・パス名。
Level	エクスポートするデータのレベルを制御します。次のいずれかになります: ESB_DATA_ALL - すべてのレベルのデータをエクスポート ESB_DATA_LEVEL0 - レベル・ゼロのブロックのデータのみをすべてエクスポート ESB_DATA_INPUT - 入力レベルのブロックのデータのみをエクスポート
isColumns	列フォーマットのデータ・ブロックの出力を制御します。

備考

この関数が正しく実行されると、この呼出しから戻った後も、サーバー上で非同期プロセスとして続行します。呼出し元はESB_STATE_DONEが戻されるまでEsbGetProcessState()を呼び出して、プロセスが完了したことを定期的に確認する必要があります。

戻り値

なし。

アクセス

この関数を使用するには、呼出し元がデータベースに対するアクセス権を持っており、EsbSetActive()を使用してこれをアクティブなデータベースとして選択している必要があります。

例

         Declare Function EsbExport Lib "ESBAPIN" (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