reformatage de données d'une base en fichier XML
Source / Exemple :
<%@ Language=VBScript %>
<%Option explicit
dim sql, rs, newFileObject, newFile, objDataConn
set objDataConn = CreateObject("ADODB.Connection")
sql = "SELECT * FROM T_USER"
set rs = CreateObject("ADODB.recordset")
rs.Open sql, objDataConn
set newFileObject = Server.CreateObject("Scripting.FileSystemObject")
set newFile = newFileObject.CreateTextFile("C:\temp\" & "testxml.xml")
Do While Not rs.EOF
newFile.Writeline("<USER>")
newFile.Writeline("<LOGIN>" & trim (rs.Fields("USER_LOGIN")) & "</LOGIN>")
newFile.Writeline("<PASSWORD>" & trim (rs.Fields("USER_PASSWORD")) & "</PASSWORD>")
newFile.Writeline("<FIRSTNAME>" & trim (rs.Fields("USER_FIRSTNAME")) & "</FIRSTNAME>")
newFile.Writeline("<LASTNAME>" & trim (rs.Fields("USER_LASTNAME")) & "</LASTNAME>")
newFile.Writeline("</USER>")
rs.MoveNext
loop
rs.Close
Set rs = Nothing
newFile.Close
if newFileObject.FileExists("C:\temp\testxml.xml") then
Response.Write("création ok!")
end if
set newFile = Nothing
set newFileObject = Nothing
objDataConn.Close
set objDataConn = Nothing
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.