EsbArchiveEnd

Restores the server to "read-write" mode after archiving is complete.

Syntax

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

Notes

After calling EsbArchiveBegin(), a call to EsbArchiveEnd() is required to restore read-write mode.

Return Value

None.

Access

The caller must have at least read access (ESB_PRIV_READ) to the database, and must select it as the active database using EsbSetActive().

Example

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

See Also

• EsbArchiveBegin
• EsbRestore