Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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