Skip Headers

Oracle® Objects for OLE Developer's Guide
Release 9.2.0.4

Part Number B10952-01
Go To Table Of Contents
Contents

Delete Method Example

This example demonstrates the use of Delete to remove records from a database. 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.

'Only select the employees in Department 10.

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

Do Until OraDynaset.EOF

OraDynaset.Delete

OraDynaset.MoveNext

Loop

MsgBox "All employees from department 10 removed."

End Sub


 
Oracle
Copyright © 1994, 2003 Oracle Corporation.

All Rights Reserved.
Go To Table Of Contents
Contents