EsbRemoveLocks

現在ユーザーがロックしているデータベースのデータ・ブロックのロックをすべて解除します。

構文

            EsbRemoveLocks
             (
            hCtx, AppName, DbName, LoginId
            )
ByVal 
            hCtx
                As Long
ByVal 
            AppName
             As String
ByVal 
            DbName
              As String
ByVal 
            LoginId
             As Long

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
AppName	アプリケーション名。
DbName	データベース名。
LoginId	ロックが解除されるユーザー・ログインのID。

備考

必要とされるLoginIdは、EsbListLocks関数によって戻されるユーザー・ロック情報構造体から取得できます。
LoginIdで指定したユーザーが現在ログインしている場合、EssRemoveLocks()はそのユーザーとの接続を終了します。

戻り値

なし。

アクセス

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

例

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

Sub ESB_RemoveLocks ()
   Dim Items As Integer
   Dim AppName As String
   Dim DbName As String
   Dim LockInfo As ESB_LOCKINFO_T
   Dim sts As Long   AppName = "Sample"
   DbName = "Basic"
   '***********
   ' List Locks
   '*********** 
   sts = EsbListLocks (hCtx, AppName, DbName,
         Items)
   '*****************
   ' Remove all locks
   '*****************
   For n = 1 To Items
     '*******************************
     ' Get next user lock structure 
     ' from the list and remove locks
     '*******************************
     sts = EsbGetNextItem (hCtx, 
           ESB_LOCKINFO_TYPE, LockInfo)
     sts = EsbRemoveLocks (hCtx, AppName,
           DbName, LockInfo.LoginId)
   Next
End Sub