EsbSetDatabaseAccess

データベースへのユーザー・アクセスに関する情報が含まれる、ユーザーのデータベース・アクセス構造体を設定します。

構文

            EsbSetDatabaseAccess
             (
            hCtx, Items, pUserDb
            )
ByVal 
            hCtx
                 As Long
ByVal 
            Items
                As Integer
ByVal 
            pUserDb
              As ESB_USERDB_T

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
Items	今後使用するために予約されています。
pUserDb	ユーザー・データベース構造体へのポインタ。

備考

ユーザー・データベース構造体のAccessフィールドを使用して、ユーザーに付与されたデータベースへのアクセスを設定します。この呼出しではMaxAccessとFilterNameフィールドは無視されます。

戻り値

なし。

アクセス

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

例

         Declare Function EsbSetDatabaseAccess Lib "ESBAPIN" (ByVal hCtx As Long, ByVal Items As Integer, UserDb As ESB_USERDB_T) As Long

Sub EsbSetDatabaseAccess ()
   Dim sts As Long
   Dim hCtx As Long
   Dim Items As Integer 
   Dim UserDb As ESB_USERDB_T   '*****************************
   ' Initialize UserDb structure
   '*****************************
   UserDb.UserName = "Joseph"
   UserDb.AppName = "Sample"
   UserDb.DbName = "Basic"
   UserDb.Access = ESB_ACCESS_SUPER
   UserDb.MaxAccess = ESB_ACCESS_SUPER 
   UserDb.FilterName = ""   '***************************
   ' Set Administrator access level
   '***************************
   sts = EsbSetDatabaseAccess (hCtx, Items, UserDb)
End Sub