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