Delete(OraCollection)メソッド

適用対象

説明

索引を指定して要素を削除します。このメソッドは、ORATYPE_TABLE型(ネストした表)のOraCollectionでのみ使用できます。

使用方法

OraCollection.Delete index

引数

このメソッドの引数は、次のとおりです。

引数	説明
[`in`] `index`	削除する要素の索引を指定する整数。

備考

Deleteメソッドは、クライアント側のネストした表に穴を作成します。指定した索引の要素がすでに削除されている場合、または指定した索引が所定の表に対して無効な場合、このメソッドはエラーを戻します。

例

次の例では、Deleteメソッドの使用方法を示します。サンプル・コードを実行する前に、必要なデータ型と表がデータベース内にあることを確認してください。「OraCollectionの例で使用されているスキーマ・オブジェクト」を参照してください。

Dim OraSession as OraSession
Dim OraDatabase as OraDatabase
Dim OraDynaset as OraDynaset
Dim CourseList as OraCollection
 
'create the OraSession Object.
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 
'create the OraDatabase Object by opening a connection to Oracle.
Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)
 
'create a dynaset object from division
set OraDynaset = OraDatabase.CreateDynaset("select * from division", 0&)
 
'retrieve a Courses column from Division. 
'Here Value property of OraField object returns CourseList OraCollection
set CourseList = OraDynaset.Fields("Courses").Value
 
'Delete the CourseList  NestedTable at index 2. 
'Before that lock should be obtained
OraDynaset.Edit
CourseList.Delete 2
 
OraDynaset.Update