EsbImport

様々なソースからEssbaseサーバーへのデータのインポートを許可します。

構文

            EsbImport
             (
            hCtx, pRules, pData, User, ErrName, isAbortOnError
            )
ByVal 
            hCtx
                       As Long
      
            pRules
                     As ESB_OBJDEF_T
      
            pData
                      As ESB_OBJDEF_T
      
            User
                       As ESB_MBRUSER_T
ByVal 
            ErrName
                    As String
ByVal 
            isAbortOnError
             As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
pRules	ルール・ファイル・オブジェクト定義構造体へのポインタ。
pData	データ・ファイル・オブジェクト定義構造体へのポインタ。
User	SQLユーザー構造体へのポインタ(データ・ソースがSQLデータベースの場合)。SQLユーザー構造体がNULLの場合は、SQL以外のデータ・ソースを示します。
ErrName	ローカルに作成されるエラー出力ファイルの名前。
isAbortOnError	TRUEの場合、最初のエラーでインポートは停止され、それ以外の場合は続行します。

備考

非SQLソースの場合で、pRulesおよびpDataに対するESB_OBJDEF_T構造体のAppNameおよびDbNameフィールドが空の文字列の場合は、hCtxがローカル・コンテキスト・ハンドルで、かつファイルへの完全修飾パスがESB_OBJDEF_TのFileNameフィールドに含まれている必要があります。
ローカル・オブジェクトが使用されている場合、最初にEsbCreateLocalContext()を呼び出す必要があります。

戻り値

なし。

アクセス

この関数を使用するには、指定されたデータベースに対して、呼出し元がデータベース・デザイン権限(ESB_PRIV_DBDESIGN)を持っている必要があります。

例

         Declare Function EsbImport Lib "ESBAPIN" (ByVal hCtx As Long, Rules As ESB_OBJDEF_T, 
                                          Data As ESB_OBJDEF_T, User As ESB_MBRUSER_T, 
                                          ByVal ErrName As String, ByVal AbortOnError As Integer) 
                                          As Long
Sub ESB_Import ()
   Dim sts          As Long
   Dim Rules        As ESB_OBJDEF_T
   Dim Data         As ESB_OBJDEF_T
   Dim User         As ESB_MBRUSER_T
   Dim ErrorName    As String
   Dim AbortOnError As Integer    '*********************************
   ' Rules file resides at the server
   '********************************* 
   Rules.hCtx     = hCtx
   Rules.Type     = ESB_OBJTYPE_RULES    
   Rules.AppName  = "Demo"
   Rules.DbName   = "Basic"   
   Rules.FileName = "Test"           
   
   '********************************
   ' Data file resides at the server
   '******************************** 
   Data.hCtx      = hCtx
   Data.Type      = ESB_OBJTYPE_TEXT      
   Data.AppName   = "Demo"
   Data.DbName    = "Basic"
   Data.FileName  = "Data"               '********************************
   ' Specify file to redirect errors 
   ' to if any 
   '******************************** 
   ErrorName      = "IMPORT.ERR"   '*************************
   ' Abort on the first error 
   '*************************
   AbortOnError   = ESB_YES   '*******
   ' Import
   '*******
   sts            = EsbImport (hCtx, Rules, Data, User, ErrorName, AbortOnError)    '**********************************************************************
   '*                                                                 
   '* When a SQL data source is defined in the rules file, define     
   '* the variables in the ESB_OBJDEF_T Data structure as follows:    
   '*    Data.hCtx     = hCtx                                        
   '*    Data.AppName  = ""                                        
   '*    Data.DbName   = ""                                        
   '*    Data.ObjType  = ESB_OBJTYPE_NONE                            
   '*    Data.FileName = ""                                        
   '*                                                                 
   '* Also, provide strings for the variables in the ESB_MBRUSER_T    
   '* User structure; for example:                                    
   '*    User.User     = "Dbusernm"                                  
   '*    User.Password = "Dbpasswd"                                  
   '*                                                                 
   '* Use a blank string for User and Password, if the SQL source           
   '* does not require user and password information; for example:                                 
   '*    User.User     = ""                                          
   '*    User.Password = ""                                  
   '*                                                                 
   '* Call the function as follows:                                    
   '*    sts           =  EsbImport (hCtx, Rules, Data, User, AbortOnError)                           
   '*                                                                 
   '*********************************************************************** End Sub