Bookmark Property Example

This example demonstrates the use of the Bookmark property to return to a previously known record quickly. Copy and paste this code into the definition section of a form. Then press F5.

Sub Form_Load ()

'Declare variables as OLE Objects.

Dim OraClient As Object

Dim OraSession As Object

Dim OraDatabase As Object

Dim OraDynaset As Object

Dim Bookmark2 As String

'Create the OraSession Object.

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

'Get the client object.

Set OraClient = OraSession.Client

'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 * from emp", 0&)

'Move to the second record and display empno.

OraDynaset.MoveNext

MsgBox "Second Record, Employee #" & OraDynaset.Fields("EMPNO").value

Bookmark2 = OraDynaset.Bookmark

'Move to the last record and display empno.

OraDynaset.MoveLast

MsgBox "Last Record, Employee #" & OraDynaset.Fields("EMPNO").value

'Move back to the second record using the bookmark.

OraDynaset.Bookmark = Bookmark2

MsgBox "Second Record, Employee #" & OraDynaset.Fields("EMPNO").value

End Sub

Contents