Oracle Objects for OLE
Release 9.2

Part Number A95895-01
Go To Documentation Library
Home
Go To Product List
Book List
Go To Table Of Contents
Contents

Master Index

Feedback

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


 
Oracle
Copyright © 1994, 2002 Oracle Corporation.

All Rights Reserved.
Go To Documentation Library
Home
Go To Product List
Book List
Go To Table Of Contents
Contents

Master Index

Feedback