Read specific columns from Recordset : Table Column Field « Access « VBA / Excel / Access / Word

Read specific columns from Recordset

Sub MyFirstConnection()
    Dim myConnection As ADODB.Connection
    Dim myRecordset As ADODB.Recordset
    Dim strSQL 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
       Debug.Print myRecordset.Fields("FirstName") & " " & myRecordset.Fields("LastName")
    Set myConnection = Nothing
    Set myRecordset = Nothing
End Sub


Related examples in the same category

1.Append new columns to new table
2.Delete a column
3.Adding a New Field to a Table
4.Removing a Field from a Table
5.Set column properties by using ADOX.Table
6.Listing Field Properties
7.Get field properties
8.Listing Tables and Their Fields Using the OpenSchema Method
9.Adding a New Money type Field to an Existing Table
10.Adding a Field with SQL command
11.Changing the Field Data Type with SQL command
12.Changing the Size of a Field with SQL command
13.Deleting a Field from a Table with SQL command
14.Setting a Default Value for a Field with SQL command
15.Changing the Start (Seed) Value of the AutoNumber Field with SQL command
16.Read record in recordset by referening the field name with '!'
17.Open a table and read data by column
18.Show field name, type and value data type
19.Checking for Existence of a Field