データベース内の特定のデータ・セルのデータにリンクされたすべてのオブジェクトを削除します。セルにリンクされた特定のオブジェクトを削除するには、EsbLRODeleteObjectを使用します。
構文
EsbLRODeleteCellObjects
(
hCtx, memCount, memComb, PulCount
)
ByVal
hCtx
As Long
ByVal
memCount
As Long
ByVal
memComb
As String
PulCount
As Long
| パラメータ | 説明 |
|---|---|
hCtx |
APIコンテキスト・ハンドル。 |
memCount |
MemCombに指定されているメンバー数。 |
MemComb |
メンバー名の文字列(EOL、CRで区切られる)。 |
PulCount |
削除されたLROカタログ・エントリ数。 |
備考
この関数では、指定されたセルにリンクされているすべてのオブジェクトがそれらのカタログ・エントリと一緒に削除されます。
オブジェクトがサーバーに保管されていない場合は、セル・リンクのみ破棄されます。
EsbLRODeleteCellObjects()では、削除するオブジェクトのリストが生成されます。この関数の呼出し後、EsbGetNextItemを使用して、削除した各オブジェクトの情報を取得します。コード例でこの方法を示します。
戻り値
正常終了の場合は、ESB_STS_NOERRが戻されます。それ以外の場合、エラー・コードが戻されます。
アクセス
この関数を呼び出すには、データ・セルまたはアクティブなデータベースに対して書込み権限(ESB_PRIV_WRITE)を持っている必要があります。
例
Declare Function EsbLRODeleteCellObjects Lib "esbapin" _
(ByVal hCtx As Long, ByVal memCount As Long, _
ByVal memComb As String, PulCount As Long) As Long
Public Sub ESB_LRODeleteCellObjects() Dim Desc As ESB_LRODESC_API_T
Dim Items As Long
Dim memCount As Long
Dim memComb As String
Dim i As Integer
memCount = 5
memComb = "Jan" & vbCrLf & "Sales" & _
"Cola" & vbCrLf & "Utah" & _
"Actual"
sts = EsbLRODeleteCellObjects(hCtx, memCount, _
memComb, Items)
If sts = 0 Then
For i = 1 To Items
'*******************************
'* Get the next LRO description
'* item from the list
'******************************* sts = EsbGetNextItem(hCtx, ESB_LRO_TYPE, Desc) Next i
End IfEnd Sub
関連トピック