EsbUpdateFile

ファイルからアクティブ・データベースに対して更新指定を送信します。更新データはデータベースに保管することも、確認のみ行ってエラーがあれば戻すこともできます。また、この呼出しによって、更新用にロックされていたデータ・ブロックもロック解除できます。

構文

            EsbUpdateFile
             (
            hDestCtx, hSrcCtx, AppName, DbName, FileName, isStore, isUnlock
            )
ByVal 
            hDestCtx
             As Long
ByVal 
            hSrcCtx
              As Long
ByVal 
            AppName
              As String
ByVal 
            DbName
               As String
ByVal 
            FileName
             As String
ByVal 
            isStore
              As Integer
ByVal 
            isUnlock
             As Integer
パラメータ説明

hDestCtx

サーバー上のターゲット・データベースのVB APIコンテキスト・ハンドル。

hSrcCtx

更新ファイルの場所に対するVB APIコンテキスト・ハンドル。レポート・ファイルは、クライアント、またはターゲット・データベースと同一のサーバー上に配置できます。

AppName

更新ファイルの場所のアプリケーション名。

DbName

更新ファイルの場所のデータベース名。

FileName

更新指定ファイル名。

isStore

データの保管を制御します。TRUEの場合は、データがサーバーに保管されます。FALSEの場合はデータは保管されません。

isUnlock

データ・ブロックのロック解除を制御します。TRUEの場合、ロックされているすべての関連ブロックのロックが解除されます(必要に応じてデータの保管後)。FALSEの場合、ブロックのロックは解除されません。

備考

戻り値

なし。

アクセス

この関数を使用するには、アクティブなデータベースに対して、呼出し元が書込み権限(ESB_PRIV_WRITE)を持っている必要があります。

例

         Declare Function EsbUpdateFile Lib "ESBAPIN" (ByVal hDestCtx As Long, ByVal hSrcCtx As Long, ByVal AppName As String, ByVal DbName As String, ByVal FileName As String, ByVal Store As Integer, ByVal Unlock As Integer) As Long

Sub ESB_UpdateFile ()
   Dim sts As Long
   Dim AppName As String
   Dim DbName As String
   Dim FileName As String
   Dim Store As Integer
   Dim pUnlock As Integer
   Dim hSrcCtx As Long   AppName = "Sample"
   DbName = "Basic"   '***************************************
   ' Update file is an object at the server * 
   '*************************************** 
   hSrcCtx = hCtx
   FileName = "update"    Store = ESB_YES
   pUnlock = ESB_NO   '************
   ' Update File
   '************
   sts = EsbUpdateFile (hCtx, hSrcCtx, AppName,
         DbName, FileName, Store, pUnlock) 
End Sub

関連トピック