Snapshot Recordset : Recordset « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Recordset

Snapshot Recordset

 

Sub exaRecordsets()
    Dim db As Database
    Dim rsTable As Recordset
    Dim rsDyna As Recordset
    Dim rsSnap As Recordset
    Set db = CurrentDb
    Set rsTable = db.OpenRecordset("Employees")
    Debug.Print "TableCount: " & rsTable.RecordCount
    Set rsDyna = db.OpenRecordset("Employees", dbOpenDynaset)
    Debug.Print "DynaCount: " & rsDyna.RecordCount
    rsDyna.MoveLast
    Debug.Print "DynaCount: " & rsDyna.RecordCount
    
    Set rsSnap = db.OpenRecordset("Employees", dbOpenSnapshot)
    Debug.Print "SnapCount: " & rsSnap.RecordCount
    rsSnap.MoveLast
    Debug.Print "SnapCount: " & rsSnap.RecordCount
    
    rsTable.Close
    rsDyna.Close
    rsSnap.Close
    
End Sub








Related examples in the same category

1.Looping Through a Recordset
2.Retrieve data from Recordset by table column name
3.Move cursor in result set
4.Build a string text from result set
5.Creating a Custom Recordset
6.Creating a Disconnected Recordset
7.Filling a Combo Box with a Disconnected Recordset
8.The Supports Method of the Recordset Object
9.Using the EOF Property to Determine the Bounds of a Recordset
10.A Recordset That Does Not Support the RecordCount Property
11.A Recordset That Supports the RecordCount Property
12.Whether Records Are Returned in a Recordset
13.The Sort Property of the Recordset Object
14.Using the AbsolutePosition Property
15.Using the Bookmark Property
16.Refreshing Recordset Data
17.Assigning Recordsets Dynamically to a form
18.Set recordset to form
19.Row order in Dynamic Recordset
20.Dynamic Recordset
21.Set Index and seek the recordset