Forward-Only – Type Recordset Object

Description

This Recordset type is identical to a snapshot except that you can only scroll forward through its records. This improves performance in situations where you only need to make a single pass through a result set.

In an ODBCDirect workspace, this type corresponds to an ODBC forward-only cursor.

Properties

BatchCollisionCount property, BatchCollisions property, BatchSize property, BOF, EOF properties, Connection property, EditMode property, Filter property, Name property, RecordCount property, RecordStatus property, Restartable property, StillExecuting property, Transactions property, Updatable property, UpdateOptions property, ValidationRule property, ValidationText property.

Methods

AddNew method, Cancel method, CancelUpdate method, Close method, CopyQueryDef method, Delete method, Edit method, GetRows method, Move method, MoveFirst, MoveLast, MoveNext, MovePrevious methods, NextRecordset method, Requery method, Update method.

See Also Dynaset-Type Recordset object, Recordset object, Snapshot-Type Recordset object, Table-Type Recordset object.

Example

This example opens a forward-only-type Recordset, demonstrates its read-only characteristics, and steps through the Recordset with the MoveNext method.

Sub dbOpenForwardOnlyX()

    Dim dbsNorthwind As Database
    Dim rstEmployees As Recordset
    Dim fldLoop As Field

    Set dbsNorthwind = OpenDatabase("Northwind.mdb")
    ' Open a forward-only-type Recordset object. Only the
    ' MoveNext and Move methods may be used to navigate
    ' through the recordset.
    Set rstEmployees = _
        dbsNorthwind.OpenRecordset("Employees", _
        dbOpenForwardOnly)

    With rstEmployees
        Debug.Print "Forward-only-type recordset: " & _
            .Name & ", Updatable = " & .Updatable

        Debug.Print "    Field - DataUpdatable"
        ' Enumerate Fields collection, printing the Name and
        ' DataUpdatable properties of each Field object.
        For Each fldLoop In .Fields
            Debug.Print "        " & _
                fldLoop.Name & " - " & fldLoop.DataUpdatable
        Next fldLoop

        Debug.Print "    Data"
        ' Enumerate the recordset.
        Do While Not .EOF
            Debug.Print "        " & !FirstName & " " & _
                !LastName
            .MoveNext
        Loop

        .Close
    End With

    dbsNorthwind.Close

End Sub