DB Record To XML

[techgnome]

Are you using SQL Server 2000? If so, you can configure it so that the result is in XML format..... which you should be able to load into an XML Dom document and save to the harddrive..... having never done that, I don't know how it would work.... but....

you oculd loop through each record, for each field, and write out hte XML yourself... something like this:

Dim fld As ADODB.Field
 
  xml = xml & "<Customers>"
Do While Not rs.EOF
  xml = xml & "<Customer>"
  For Each fld In rs.Fields
    xml = xml & "<" & fld.name & ">" & fld.value & "</" & fld.Name & ">"
  Next
  xml = xml & "</Customer>"  rs.MoveNext
Loop
  xml = xml & "</Customers>"
'open file and save the XML....

TG