EsbCreateObject

サーバーまたはクライアントのオブジェクト・システムで、オブジェクトを新規作成します。

構文

            EsbCreateObject
             (
            hCtx, ObjType, AppName, DbName, ObjName
            )
ByVal 
            hCtx
                As Long
ByVal 
            ObjType
             As Long
ByVal 
            AppName
             As String
ByVal 
            DbName
              As String
ByVal 
            ObjName
             As String

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。EsbCreateLocalContext()によって戻されるローカル・コンテキスト・ハンドルの場合もあります。
ObjType	オブジェクト・タイプ(単一のタイプのみ)。使用可能な値のリストは、表 15を参照してください。
AppName	アプリケーション名。
DbName	データベース名。空の文字列の場合は、アプリケーションのサブディレクトリが使用されます。
ObjName	作成するオブジェクトの名前。オブジェクト名の制限を参照してください。

備考

作成するオブジェクトが存在していないことが必要です。
サーバー上で新規作成されたオブジェクトにはデータが含まれておらず、単なるプレースホルダとして機能し、他のユーザーによるオブジェクトの作成を防止します。作成されたオブジェクトを更新する場合は、EsbLockObject()を使用してロックし、EsbPutObject()を使用して保存する必要があります。

戻り値

なし。

アクセス

この関数を使用するには、呼出し元は、指定したアプリケーションまたはオブジェクトの保存先データベースに対して、アプリケーション・デザイン権限またはデータベース・デザイン権限(ESB_PRIV_APPDESIGNまたはESB_PRIV_DBDESIGN)を持っている必要があります。

例

         Declare Function EsbCreateObject Lib "ESBAPIN" (ByVal hCtx As Long, ByVal ObjType As Integer, ByVal AppName As String, ByVal DbName As String, ByVal ObjName As String) As Long

Sub ESB_CreateObject ()
   Dim sts As Long
   Dim AppName As String
   Dim DbName As String
   Dim ObjName As String
   Dim ObjType As Integer   AppName = "Sample"
   DbName = "Basic"
   ObjName = "Basic"
   ObjType = ESB_OBJTYPE_RULES   '********************
   ' Create Rules Object 
   '********************
   sts = EsbCreateObject (hCtx, ObjType, AppName, DbName, ObjName) 
End Sub