Skip Headers

Oracle® Objects for OLE Developer's Guide
10g Release 1 (10.1)

Part Number B10118-01
Go to Documentation Home
Home
Go to Book List
Book List
Go to Table of Contents
Contents
Go to Master Index
Master Index
Go to Feedback page
Feedback

MoveFirst, MoveLast, MoveNext, MovePrevious Methods Example

This example demonstrates record movement within a dynaset using MoveFirst, MoveNext, MoveLast, MovePrevious. Copy and paste 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.

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

MsgBox "Employee #" & OraDynaset.Fields("empno").value & ", " & OraDynaset.Fields("ename").value

'Move to the next record and display it.

OraDynaset.MoveNext

MsgBox "Employee #" & OraDynaset.Fields("empno").value & ", " & OraDynaset.Fields("ename").value

'Move to the last record and display it.

OraDynaset.MoveLast

MsgBox "Employee #" & OraDynaset.Fields("empno").value & ", " & OraDynaset.Fields("ename").value

'Move to the previous record and display it.

OraDynaset.MovePrevious

MsgBox "Employee #" & OraDynaset.Fields("empno").value & ", " & OraDynaset.Fields("ename").value

End Sub