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 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.

'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