EsbLROGetObject

データベースのデータ・セルにリンクされているオブジェクトを取得します。

構文

            EsbLROGetObject
             (
            hCtx, pLinkId, targetFile, usOption, pLRODesc
            )
ByVal 
            hCtx
                   As Long 
      
            pLinkId
                As ESB_LROHANDLE_API_T
ByVal 
            targetFile
             As String 
ByVal 
            usOption
               As Integer 
      
            pLRODesc
               As ESB_LRODESC_API_T
         

備考

セル・ノートはオブジェクトのカタログ・エントリの一部です。オブジェクトがセル・ノートかどうかを判断するには、ESB_LRODESC_API_TのObjTypeフィールドを確認します。セル・ノートを取得するには、ESB_LRO_CATALOG_APIをusOptionパラメータに使用します。ノートのコンテンツは、ESB_LRODESC_API_Tに含まれています。

戻り値

正常終了の場合は、ESB_STS_NOERRが戻されます。それ以外の場合、エラー・コードが戻されます。

アクセス

この関数を呼び出すには、データ・セルまたはアクティブなデータベースに対して読取り権限(ESB_PRIV_READ)を持っている必要があります。

例

         Declare Function EsbLROGetObject Lib "esbapin" _
(ByVal hCtx As Long, pLinkID As ESB_LROHANDLE_API_T, _
ByVal targetFile As String, ByVal usOption As Integer, _
pLRODesc As ESB_LRODESC_API_T) As Long

Public Sub ESB_LROGetObject()   Dim Desc As ESB_LRODESC_API_T
   Dim LinkID As ESB_LROHANDLE_API_T
   Dim TargetFile As String
   Dim opt As Integer
   Dim InputMsg As String
   
   LinkID.hObject = 1
   LinkID.cellKey.cellOffset = 0
   LinkID.cellKey.blkOffset = 198
   LinkID.cellKey.segment = 0
   
   TargetFile = "c:\docs\myfile.doc"
   
   InputMsg="Danger, Will Robinson"
   opt = InputBox(InputMsg, , ESB_LRO_BOTH_API)
   
   sts = EsbLROGetObject(hCtx, LinkID, TargetFile, _
                         opt, Desc)
End Sub
      

関連トピック

• リンク・オブジェクトに対する定数および構造体の定義
• EsbLROAddObject
• EsbLROGetMemberCombo
• EsbLROUpdateObject
• EsbLRODeleteObject