Salvare un recordset ADO in formato Xml

Autore: Paolo Capitani | Tell a Friend Corso XML Creazione di strutture XML, XSL ed altri linguaggi eXtensible!

Tradotto da Luca Ruggiero in linguaggio JScript.

In questo Tip vedremo come salvare il contenuto di un recorset ADO in formato Xml sfruttando il metodo Save() dell'oggetto Recordset. Nell'esempio riportato vengono selezionati tutti i record della tabella myTable del database myDataBase.mdb e vengono salvati nel file myXml.xml.

Prima di tutto viene effettuato un controllo per verificare l'esistenza del file Xml che, se presente, viene eliminato e rigenerato, onde evitare che venga generato un errore nel tentativo di sovrascriverlo.

Di seguito il codice commentato:

<%@LANGUAGE = JScript%>
<%
    // Assegno il nome al file Xml che voglio creare
    var filename = "myXml.xml";

    // Verifico se esiste già un file Xml con lo stesso nome
    var FSO = new ActiveXObject("Scripting.FileSystemObject");
    if (FSO.FileExists(Server.MapPath(filename)))
    {
        FSO.DeleteFile(Server.MapPath(filename));
    }
  
    var Cn = new ActiveXObject("ADODB.Connection");
        Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("myDataBase.mdb"));

    // Seleziono tutti i record della tabella myTable e salvo il recordset in formato Xml
    var Rs = Cn.Execute("SELECT * FROM myTable")
        Rs.Save(Server.MapPath(filename), 1);
    
    Rs.Close();
    Cn.Close();

    Response.Write("Per visualizzare il file Xml appena creato <a href='" + filename + "'>clicca qui</a>.")
%>