HOWTO: Use a Fields Array in the Fields Option of GetRows Method

MORE INFORMATION

• Rows: Optional. A Long expression indicating the number of records to retrieve. Default is adGetRowsRest (-1).
  
  
• Start: Optional. A String or Variant that evaluates to the bookmark for the record from which the GetRows operation should begin. One of the BookmarkEnum constants can be used for this argument.
  
  
• Fields: Optional. A Variant representing a single field name or ordinal position or an array of field names or ordinal position numbers. ADO returns only the data in these fields.

• vdata = oRs.GetRows(adGetRowsRest, adBookmarkCurrent, vFields)

Steps To Accomplish Task

1. Create a Standard .EXE project in Visual Basic.
2. Add a reference to the Microsoft ActiveX Data Objects Library.
3. Add the following sample code to the default form's Load method:

      'This sample code demonstrates how to pass an array of field
      'names to the GetRows Fields Option.
   
      Dim cn As New Connection
      Dim rs As New Recordset
      Dim vFields() As Variant
      Dim vdata as Variant
   
      'This example is connecting to SQL Server's Sample Pubs database.
      cn.Open "driver={SQL Server};" & _
         "server=<server_name>;uid=<user_id>;pwd=<password>;database=pubs"
      rs.Open "select * from authors", cn
      ReDim vFields(1)
      vFields(0) = "au_fname"
      vFields(1) = "au_lname"
      vData = rs.GetRows(adGetRowsRest, , vFields)
   
      For i = 0 To UBound(vdata, 2) - 1
      Debug.Print vdata(0, i) & " " & vdata(1, i)
      Next i

   
   
4. Modify the code sample to use your server, user id, and password.
   
5. Test. The first and last name of each author is displayed in the Immediate (Debug) window.