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