Save a Recordset in XML format








' Save a Recordset in XML format


Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adPersistXML = 1

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
    "Provider= Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=eventlogs.mdb" 
objRecordSet.Open "SELECT * FROM EventTable" , _
    objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst 

objRecordSet.Save "output.xml", adPersistXML

objRecordSet.Close
objConnection.Close



search for scripts

VbsEdit contains all these sample scripts!

Download Now!