Oracle Objects for OLE
Release 8.1.7

Part Number A85257-01

Library

Product

Contents

Canceling a Non-Blocking Operation

You can cancel a non-blocking operation that is underway by calling the Cancel method on the OraSqlStmt that is executing the asynchronous call.

Dim OraDatabase as OraDatabase

Dim OraStmt as OraSQLStmt

Dim stat as long

Dim OraSess as OraSession

Set OraSess = CreateObject("OracleInProcServer.XOraSession")

Set OraDatabase =OraSess.OpenDatabase("ExampleDb", "scott/tiger", 0)

'execute the select statement with NONBLOCKING mode on

set OraStmt = OraDatabase.CreateSQL ("update emp set sal = sal + 1000", ORASQL_NONBLK)

'Check if the call has completed

stat = OraStmt.NonBlockingState

if stat = ORASQL_STILL_EXECUTING

MsgBox "Cancelling the asynchronous operation that is underway"

OraStmt.Cancel

End if


 
Oracle
Copyright copy; 1996-2000, Oracle Corporation.

All Rights Reserved.

Library

Product

Contents