loop recordset adding fields to data dictionary

[JT]

how can i loop through all the fields in a recordset adding a collection of
name/value pairs to a data dictionary where name is the field name and value
is the field value. this is what i have so far (not working, of course..)
this is will only be used for one row recordsets.

dim d
set d = CreateObject("Scripting.Dictionary")

for each field in rsGetData.Fields
d.Add LCase(field), rsGetData.Fields(field)
Next

tia
jt

 

[Bob Barrows [MVP]]

how can i loop through all the fields in a recordset adding a
collection of name/value pairs to a data dictionary where name is the
field name and value is the field value. this is what i have so far
(not working, of course..)

Please define "not working". Error message? Wrong result?

this is will only be used for one row recordsets.

dim d
set d = CreateObject("Scripting.Dictionary")

for each field in rsGetData.Fields
d.Add LCase(field), rsGetData.Fields(field)
Next

This is what I would do:

'disconnect the recordset and close the connection:
set rsGetData.ActiveConnection=nothing
conn.close:set conn = nothing

'now write the dictionary items:
for each fld in rsGetData.Fields
d.Add LCase(fld.name), fld.value
next

Bob Barrows

 

[roger]

for each field in rsGetData.Fields
d.Add LCase(field), rsGetData.Fields(field)
Next

Does this work?

for each field in rsGetData.Fields
d.Add LCase(field.name), field.value
Next