EsbSetDatabaseState

データベースの状態構造体を使用して、ユーザーが構成可能なデータベースのパラメータを設定します。

構文

            EsbSetDatabaseState
             (
            hCtx, AppName, DbName, pDbState
            )
ByVal 
            hCtx
                 As Long
ByVal 
            AppName
              As String
ByVal 
            DbName
               As String
ByVal 
            pDbState
             As ESB_PDBSTATE_T

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
AppName	アプリケーション名。
DbName	データベース名。
pDbState	データベース状態構造体へのポインタ。

備考

EsbGetDatabaseState()を呼び出して、ESB_DBSTATE_T構造体を初期化した後、EsbSetDatabaseState()を呼び出す必要があります。
この関数は、ユーザーが構成可能なサーバー・データベースのパラメータのみ設定できます。

戻り値

なし。

アクセス

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

例

         Declare Function EsbSetDatabaseState Lib "ESBAPIN" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, DbState As ESB_DBSTATE_T) As Long 

Sub ESB_SetDatabaseState ()
   Dim sts As Long
   Dim AppName As String 
   Dim DbName As String
   Dim DbState As ESB_DBSTATE_T   AppName = "Sample"
   DbName = "Basic"
   ************************************
   ' Initialize DbState structure fields
   '************************************
          
   '
          DbState.Description = "This is Sample/Basic" 
   DbState.Loadable = "1"
   '*****************************
   ' Set Database state structure
   '*****************************
   sts = EsbSetDatabaseState (hCtx, AppName,
         DbName, DbState) 
End Sub