Updatable Property Example

This example demonstrates the use of Updatable. Copy and paste this code into the definition section of a form. Then press F5.

Sub Form_Load ()

'Declare variables as OLE Objects.

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 an updatable dynaset using a simple query.

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

Call IsDynUpdatable(OraDynaset)

'Create a non-updatable dynaset using column aliases.

Set OraDynaset = OraDatabase.CreateDynaset("select ename EmployeeName,

empno EmployeeNumber, sal Salary from emp", 0&)

Call IsDynUpdatable(OraDynaset)

'Create a non-updatable dynaset using a join.

Set OraDynaset = OraDatabase.CreateDynaset("select ename, emp.deptno,

loc from emp, dept where emp.deptno = dept.deptno", 0&)

Call IsDynUpdatable(OraDynaset)

End Sub

Sub IsDynUpdatable (odyn As OraDynaset)

'Check to see if the dynaset is updatable.

If odyn.Updatable = True Then

MsgBox "Created an UPDATABLE dynaset from: '" & odyn.SQL & "'"

Else

MsgBox "Created a READ-ONLY dynaset from: '" & odyn.SQL & "'"

End If

End Sub