Debugging Recordset by printing to immediate window

[bradyboyy88]

Does anyone have on hand a iterative method to print a recordset to the immediate window. Preferably all columns and rows in a table manner with the field names at the top.

 

[John_w]

    Dim rs As ADODB.recordset, i As Long

    For i = 0 To rs.Fields.Count - 1
        Debug.Print rs.Fields(i).Name,
    Next
    Debug.Print
    For i = 0 To rs.Fields.Count - 1
        Debug.Print rs.Fields(i).Value,
    Next

 

[John_w]

Ooops, I forgot to loop through the records. Use this instead:

    Dim rs As ADODB.recordset, i As Long

    For i = 0 To rs.Fields.Count - 1
        Debug.Print rs.Fields(i).Name,
    Next
    rs.MoveFirst
    Do Until rs.EOF
        Debug.Print
        For i = 0 To rs.Fields.Count - 1
            Debug.Print rs.Fields(i).Value,
        Next
        rs.MoveNext
    Loop

 

[bradyboyy88]

Awesome. Any creative way to keep the spacing just right so it looks left aligned and a clean looking table? Might be to much to ask so if not now worries. Some rows just have big numbers and columns names are short and long.

 

[John_w]

I would try the Format function and string concatenation to construct the output lines in the required layout. The semi-colon character ';' can be used instead of a comma in the above code to give closer spacing.

 

[bradyboyy88]

il give that a shot so thank you!