How do I get the column names of a recordset?

[fperri]

I have a pivot query that is generated on the fly, so the column (or field names) are sometimes different after its generated.

I need to put the query into a recordset, pull the column names so I can use them as headers on a report, and then also reference them.

Also, is there a way to reference a record in a recordset by the index?

I'm using DAO recordsets, but if ADO is better I will switch.

(I'm using Access 2000/VB 6?)

Thank you!

[Dököll]

I need to put the query into a recordset, pull the column names so I can use them as headers on a report, and then also reference them.

Hiya, fperri!

Assuming you've searched here and nothing popped up, here's a simple fix:

 
Sub FieldNames()
       Dim Rst As Recordset
       Dim s As Field
 
    Set Rst = YourDatabase.OpenRecordset("YourTableName")
 
        For Each s In Rst.Fields
        MsgBox (s.name)
        Next
    Rst.Close
End Sub
 
 

MsgBox can be modified to have a Label or TextBox instead. Give this a whirl, see what you have-)

Dököll