AddNew Method Example

This example demonstrates the use of AddNew and Update to add a new record to a dynaset. Copy this code into the definition section of a form. Then press F5.

Sub Form_Load ()

'Declare variables

Dim OraSession As OraSession

Dim OraDatabase As OraDatabase

Dim OraDynaset As OraDynaset

'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 the OraDynaset Object.

Set OraDynaset = OraDatabase.CreateDynaset("select * from emp",

0&)

'Begin an AddNew.

OraDynaset.AddNew

'Set the field(column) values.

OraDynaset.Fields("EMPNO").Value = "1000"

OraDynaset.Fields("ENAME").Value = "WILSON"

OraDynaset.Fields("JOB").Value = "SALESMAN"

OraDynaset.Fields("MGR").Value = "7698"

OraDynaset.Fields("HIREDATE").Value = "19-SEP-92"

OraDynaset.Fields("SAL").Value = 2000

OraDynaset.Fields("COMM").Value = 500

OraDynaset.Fields("DEPTNO").Value = 30

'End the AddNew and Update the dynaset.

OraDynaset.Update

MsgBox "Added one new employee."

End Sub