Everyone is getting into XML but most of us have our data in Access or SQL databases. You can dump your data to an XML file in an instant by creating a recordset and writing its contents to a flat file. The only trick is to include the formatting that XML expects. Here’s an example of code that creates an XML file from an Access database. You’ll need to replace your own connection string and data fields. Also, watch for bad wordwrapping and carriage returns in the connection string provided here.
User ID=admin;Connect Timeout=15;Extended Properties=""DBQ=c:inetpubwwwrootkjc350cpinfonet.mdb;
DefaultDir=c:inetpubwwwrootkjc350;Driver={Microsoft Access Driver (*.mdb)};
DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;
SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"";Locale Identifier=1033;
User Id=admin;"OBJdbConnection.Open connstr' Construct a simple query to retrieve the data sqlquery = querySet rsdoc = OBJdbConnection.execute(SQLQuery)Set fs = CreateObject("Scripting.FileSystemObject")Set a = fs.CreateTextFile("c:documents.xml", True)a.WriteLine("")a.WriteLine("")while not rsdoc.eofa.WriteLine(space(3) & "")a.WriteLine(space(6) & "" & rsdoc("Title") & " ")a.WriteLine(space(6) & "" & rsdoc("Part") & " ")a.WriteLine(space(6) & "" & rsdoc("FileSize") & " ")a.WriteLine(space(6) & "" & rsdoc("Date") & " ")a.WriteLine(space(6) & "" & rsdoc("Filename") & " ")a.WriteLine(space(3) & " ")rsdoc.movenextwenda.WriteLine(" ")a.Closeset a=Nothingset fs=NothingSet rsdoc=NothingSet OBJdbConnection=Nothingend sub%>Done!