EsbListLocks

特定のアプリケーションおよびデータベースに接続されているユーザーをすべてリストします。その際、現在ロックされているデータ・ブロックのアイテムも一緒にリストします。

構文

            EsbListLocks
             (
            hCtx, AppName, DbName, pItems
            )
ByVal 
            hCtx
                As Long
ByVal 
            AppName
             As String
ByVal 
            DbName
              As String
      
            pItems
              As Integer
         

備考

この関数は、この関数が呼び出されたときにサーバーに接続していたユーザーのみがリストされる場合に「スナップショット」になります。

戻り値

正常終了の場合は、接続されているユーザー数のアイテムがpItemsに戻され、EsbGetNextItem()を介してアクセス可能なユーザー・ロック構造体のリストが生成されます。

アクセス

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

例

         Declare Function EsbListLocks Lib "ESBAPIN" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, Items As Integer) As Long

Sub ESB_ListLocks ()
   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)   For n = 1 To Items     '*****************************
     ' Get next user lock structure 
     ' from the list
     '*****************************
     sts = EsbGetNextItem (hCtx, 
           ESB_LOCKINFO_TYPE, LockInfo)
   Next
End Sub
      

関連トピック

• EsbListConnections
• EsbListUsers
• EsbRemoveLocks
• EsbGetNextItem