The following example illustrates the Delete method. Before running the sample
code, make sure that you have the necessary datatypes and tables in the
database. See Schema Description used in examples of 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