EsbArchiveEnd

アーカイブが完了した後、サーバーが読取り書込みモードに戻されます。

構文

            EsbArchiveEnd
             (
            hCtx, AppName, DbName
            )
ByVal 
            hCtx
                As Long
ByVal 
            AppName
             As String
ByVal 
            DbName
              As String

パラメータ	説明
hCtx	APIコンテキスト・ハンドル。
AppName	アーカイブされたアプリケーション名。
DbName	アーカイブされたデータベースの名前。

備考

EsbArchiveBegin()を呼び出した場合、後でEsbArchiveEnd()を呼び出して読取り/書込みモードへ戻す必要があります。

戻り値

なし。

アクセス

呼出し元は、データベースに対して、少なくとも読取りアクセス権(ESB_PRIV_READ)を持っている必要があります。また、EsbSetActive()を使用して、そのデータベースをアクティブなデータベースとして選択している必要があります。

例

         Declare Function EsbArchiveEnd Lib "ESBAPIN" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String) As Long

Sub ESB_ArchiveEnd() 
   Dim sts As Long
   Dim AppName As String
   Dim DbName As String
   AppName = "Sample"
   DbName = "Basic"
   '**** Archive End ***
   sts = EsbArchiveEnd (hCtx, AppName, DbName)
End Sub