Creating a Custom Recordset : Recordset « Access « VBA / Excel / Access / Word

Creating a Custom Recordset

 
Sub Custom_Recordset()
    Dim myRecordset As ADODB.Recordset
    Dim strFile As String

    Dim strFolder As String

    strFolder = "C:\"
    strFile = Dir(strPath & "*.*")
    Set myRecordset = New ADODB.Recordset
    With myRecordset
       Set .ActiveConnection = Nothing
           .CursorLocation = adUseClient
           With .Fields
                     .Append "Name", adVarChar, 255
                     .Append "Size", adDouble
                     .Append "Modified", adDBTimeStamp
           End With
            .Open
              ' Add a new record to the recordset
              .AddNew Array("Name", "Size", "Modified"), _
               Array("fileName.txt", 100, #9/9/1999#)
            .MoveFirst
             ' Print the contents of the recordset to the Immediate window
                 Do Until .EOF
                      Debug.Print !Name & vbTab & !Size & vbTab & !Modified
                     .MoveNext
                 Loop
                 .Close
         End With
     Set myRecordset = Nothing
End Sub

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 Disconnected Recordset
6.	Filling a Combo Box with a Disconnected Recordset
7.	The Supports Method of the Recordset Object
8.	Using the EOF Property to Determine the Bounds of a Recordset
9.	A Recordset That Does Not Support the RecordCount Property
10.	A Recordset That Supports the RecordCount Property
11.	Whether Records Are Returned in a Recordset
12.	The Sort Property of the Recordset Object
13.	Using the AbsolutePosition Property
14.	Using the Bookmark Property
15.	Refreshing Recordset Data
16.	Assigning Recordsets Dynamically to a form
17.	Set recordset to form
18.	Row order in Dynamic Recordset
19.	Dynamic Recordset
20.	Snapshot Recordset
21.	Set Index and seek the recordset

Creating a Custom Recordset : Recordset « Access « VBA / Excel / Access / Word

Related examples in the same category