---

Trim(OraCollection)メソッド

適用対象

OraCollectionオブジェクト

説明

コレクションの最後から指定した数の要素を切り捨てます。

使用方法

OraCollection.Trim size

引数

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

引数	説明
[in] size	切り捨てる要素の数を指定する整数。

備考

コレクションの最後から要素を削除します。現在のコレクションのサイズを超えるサイズを指定すると、エラーになります。

例

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

例: OraCollectionオブジェクトに対するTrimメソッド

Dim OraSession as OraSession
Dim OraDatabase as OraDatabase
Dim OraDynaset as OraDynaset
Dim EnameList 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 department
set OraDynaset = OraDatabase.CreateDynaset("select * from department", 0&)
 
'retrieve a Enames column from Department. 
'Here Value property of OraField object returns EnameList OraCollection
set EnameList = OraDynaset.Fields("Enames").Value
 
'display the size of the collection
msgbox  EnameList.Size
 
'Trim the EnameList collection by one. Before that row level
 'lock should be obtained
 
OraDynaset.Edit
EnameList.Trim 1
OraDynaset.Update
 
'display the new size of the collection
msgbox EnameList.Size