Update 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 as OLE Objects.

Dim OraSession As Object

Dim OraDatabase As Object

Dim OraDynaset As Object

'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

End Sub