asp - asp.net - aspcode.it

COMMUNITY - Login
 Username:
 
 Password:
 
Voglio registrarmi!
Password dimenticata?
 Utenti on-line: 0
 Ospiti on-line: 3256
ASPCode.it - Store

  > > Articoli

Salvare un recordset in un file XML

Data di pubblicazione: 11/04/2002        Voto della community: 4,40 (Votanti: 5)

In questo articolo analizzeremo come salvare il contenuto di un recorset sotto forma di file XML sfruttando il metodo Save dell'oggetto ADO Recordset.
Nell'esempio riportato vengono selezionati tutti i record della tabella myTable del database myDataBase e vengono salvati nel file XML DB_to_XML.xml. Prima di ciò viene effettuato un controllo per verificare se il file suddetto è già presente; in tal caso viene eliminato, onde evitare che la funzione Save dell'oggetto Recordset generi errore quando viene richiamata.

<%
'assegno il nome al file XML che voglio creare
Dim filename
filename = "DB_to_XML.xml"

'verifico se esiste già un file XML con lo stesso nome
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'se esiste eliminalo
if fso.FileExists(Server.MapPath(filename)) then
  fso.DeleteFile(Server.MapPath(filename))
end if
Set fso = Nothing

Dim cn, rs, sql

'apro la connessione al database myDataBase.mdb
Set cn = server.createobject("ADODB.Connection")
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
    Server.MapPath("myDataBase.mdb"))

'seleziono tutti i records della tabella myTable
sql = "SELECT * FROM myTable"
Set rs = cn.Execute(sql)

'salvo il recordset in un file XML
rs.Save Server.MapPath(filename), 1

'chiudo il recordset, la connessione al database e libero le risorse
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

'creo il link per visualizzare il file XML appena creato
Response.Write("Per visualizzare il file XML appena creato <a href="&_
    filename&">clicca qui</a>.")
%>




Utenti connessi: 3256