Build a string text from result set

 
Sub MyFirstConnection4()
    Dim myConnection As ADODB.Connection
    Dim myRecordset As ADODB.Recordset
    Dim strSQL As String
    Dim strOutput As String
   
    strSQL = "SELECT FirstName, LastName FROM Employees"
    
    Set myConnection = CurrentProject.Connection
    
    Set myRecordset = New ADODB.Recordset
    myRecordset.Open strSQL, myConnection
    
    Do Until myRecordset.EOF
       strOutput = strOutput + myRecordset.Fields("FirstName") & " " & _
                               myRecordset.Fields("LastName") & vbCrLf
       myRecordset.MoveNext
    Loop
    myRecordset.Close
    msgBox strOutput
    myConnection.Close
    Set myConnection = Nothing
    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.	Creating a Custom Recordset
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

Build a string text from result set : Recordset « Access « VBA / Excel / Access / Word

Related examples in the same category