---

Append(OraCollection)メソッド

適用対象

OraCollectionオブジェクト

説明

コレクションのサイズを1つ拡張し、コレクションの最後にVariant型の値を追加します。

使用方法

OraCollection.Append element

引数

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

引数	説明
[in] element	追加する値を表すVariant。

備考

OraCollectionがObject型またはREF型のコレクションの場合、要素を示す引数は有効なOraObjectまたはOraRefを表します。

例

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

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

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
 
'Append an "Eric" to the collection. 
'Before that row level lock should be obtained
OraDynaset.Edit
EnameList.Append "Eric"
OraDynaset.Update