Recordset to columns

Trinsan · #1 (**permalink**) 03-30-07, 02:44

As you can see form the below code, I fetch a recordset based on a ADO command. Then I count the amount of fields (columns) in that result in order to feed the data into each of the columns next to the one where the command related to this code is invoked.

I just can't seem to get an insert line to use the address created by the activecell offset line.

Any ideas?

/Trin

Code:

    Set GIDrs = kommando.Execute
    For i = 0 To GIDrs.Fields.Count
        aktuel2 = ActiveCell.Offset(0, (i + 1)).Address
        <some insert line based on aktuel2 address>

    Next i

Trinsan · #2 (**permalink**) 03-30-07, 03:28

Slight change in code seems to get me closer to the target, but doesn't work either..

Code:

    For i = 0 To GIDrs.Fields.Count
        ActiveCell.Offset(0, (i + 2)).Activate
        ActiveCell.Value = GIDrs.Fields(i).Value
    Next i

norie · #3 (**permalink**) 03-30-07, 07:42

I don't see anything in that code involving a recordset.

MikeTheBike · #4 (**permalink**) 03-30-07, 08:25

Hi

You do not say what actually happens ??

Does the recordset contain any records ? (recordcount > 0 or GISrs.EOF=False)

Try writing the field names to see if that produces any output ie

Code:

    For i = 0 To GIDrs.Fields.Count-1
        ActiveCell.Offset(0, (i + 2))=GIDrs.Fields(i).Name
    Next i

note: GIDrs.Fields.Count-1 ???

MTB

Internet Services

Web Development

Digital Marketing

Consumer Tech