• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Quick Recordset Properties List

Quick Recordset Properties List

If you're ever wondering what's contained in a recordset you currently have open, here's a quick and dirty way to dump all the data you could want to the Immediate window, which you can view there, or copy and paste into a notepad document or other textfile for printing, etc.
I like to keep this somewhere I can quickly copy and paste it into any module or routine that uses a recordset in case I lose track of which field is which.
(I've only tried this with VB 6.0 and AO 2.6, but I imagine it would work with other versions.)
--Brian Battles WS1O
Middletown, CT USA

Assumes
Needs a currently open recordset

Returns
A list of fields and property info in the Immediate window

Side Effects
none known

Rate Quick Recordset Properties List

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Private Sub ListRecordsetProperties()
  ' provides a list of all current recordset fields and their properties;
  ' use with any currently open ADO recordset (rs in this example)
  Dim I As Integer
  Dim J As Integer
  
  For I = 0 To rs.Fields.Count - 1
    Debug.Print vbCrLf & "Field " & I & " Name: '" & rs.Fields.Item(I).Name & "'" & vbTab & "Value: '" & rs.Fields(I).Value & "'" & vbCrLf & " Properties..."
    For J = 0 To rs.Fields(I).Properties.Count - 1
      Debug.Print "  Index(" & J & ") " & "Name: " & rs.Fields(I).Properties(J).Name & " = " & rs.Fields(I).Properties(J).Value & vbTab & vbTab & "Type: " & rs.Fields(I).Properties(J).Type & "," & vbTab & "Attributes: " & rs.Fields(I).Properties(J).Attributes
    Next J
  Next I
End Sub