How to format text retreived from a recordset

[ToeJamNEarl]

Hello guys,

I have a question for you all.

I have a recordset that contains two fields fields:
'Parent_Value' and 'Child_Value'.

a sample of the data contained inside would be as follows.

...

sport tennis
sport hockey
sport basketball
sport baseball
hobby carpentry
hobby painting
hobby model building

...

I want to be able to output the data inside those tables to a text file, but would like to suppress the duplicated parent_value fields, so as to represent a grouping.

How would I be able to achieve an output like the following:

sport tennis
hockey
basketball
baseball
hobby carpentry
painting
model building


Thank you,

-Diran

 

[Glasgow]

If you populpate your recordset using a select statement of the form

SELECT Parent_Value, Child_Value FROM MyTable ORDER BY Parent_Value

then, you can have code something like

dim PvParent as string, MyRs as ADODB.Recordset
.
.
with MyRs
  .MoveFirst
  do while not .eof and not .bof
    if !Parent_Value <> PvParent then
      Print #1, !Parent_Value & vbtab & !Child_Value
      pvParent = !Parent_Value
    else
      Print #1, vbtab & !Child_Value
    end if
    .movenext
  loop
  .close
end with