[Resolvido] converte banco de dados para XML

[xanburzum 169]

Este script converte os registros em um banco de dados (Access / SQL) para um documento XML, utilizando-se servidor Windows Scripting Host e da linha de cmd.

 

<%LANGUAGE="VBScript"%>
<% ' Definir tempo limite para grandes bases de dados e / ou servidores lento, default = 90 (seconds) %>
<% Server.ScriptTimeout = 3600 %>
<%

' Definição de variáveis
dim wsh, rs

' DB conexaun
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
  sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & Server.MapPath("xan2xml.mdb") & ";" & _
  "Persist Security Info=True"
Conn.Open(sConnection)

' Carrega o conjunto de registros
set rs = conn.Execute("SELECT * FROM cds ORDER BY cdid")

' Abra o Windows Script Shell
set wsh = createobject("WScript.Shell")

' Coloca a primeira XML linhas no documento
wsh.run("cmd /c echo ^<?xml version=""1.0"" encoding=""ISO-8859-1"" ?^> > " & server.mappath("cddatabase.xml"))
wsh.run("cmd /c echo ^<cddatabase^> >> " & server.mappath("cddatabase.xml"))
set wsh = nothing

' Carrega o banco de dados completo para o documento XML 
do until rs.EOF
  
  set wsh = createobject("WScript.Shell")

  wsh.run("cmd /c echo  ^<item^> >> " & server.mappath("cddatabase.xml"))
  wsh.run("cmd /c echo   ^<cdid^>"  & rs("cdid") &  "^</cdid^> >> "  & server.mappath("cddatabase.xml"))
  wsh.run("cmd /c echo   ^<title^>" & rs("title") & "^</title^> >> " & server.mappath("cddatabase.xml"))
  wsh.run("cmd /c echo  ^</item^> >> " & server.mappath("cddatabase.xml"))
  set wsh = nothing

  rs.movenext

loop

' Fecha as tags XML
set wsh = createobject("WScript.Shell")
wsh.run("cmd /c echo ^</cddatabase^> >> " & server.mappath("cddatabase.xml"))
set wsh = nothing

' Fecha conexão
rs.close
Conn.close