quarta-feira, 3 de julho de 2002

Gerar um arquivo XML a partir de registros na base de dados

Olá pessoal, criei um código ASP que gera um arquivo XML a partir de dados recuperados de uma base de dados.

    'Declaração de variáveis
    Dim Conexao, Rs, strSQL, url, RECEBE, Obj_Arquivo, Obj_Texto


    'Armazenar o caminho da base de dados na variável url
    url = "D:\Inetpub\wwwroot\BaseDeDados.mdb"


    'Instanciando a variável Conexao
    Set Conexao = Server.CreateObject("ADODB.Connection")


    'Abrindo a conexao com a bade de dados
    Conexao.Open "DBQ=" & url & ";DRIVER={Microsoft Access Driver (*.mdb)};"


    'Instrução SQL
    strSQL = "SELECT * FROM TABELA"


    'Executando a instrução SQL
    Set Rs = Conexao.Execute(strSQL)


    'Lendo os registros da base de dados e armazenando na variável RECEBE
    While NOT Rs.EOF
        RECEBE = "<DADOS>" + vbcrlf
        RECEBE = RECEBE + "<NUMERO>"         + (Rs("NUMERO"))        + "<NUMERO>"        + vbcrlf
        RECEBE = RECEBE + "<IDENTIFICACAO>"  + (Rs("IDENTIFICACAO")) + "<IDENTIFICACAO>" + vbcrlf
        RECEBE = RECEBE + "</DADOS>"
    Rs.MoveNext : Wend


    'Instanciando a variável Obj_Arquivo
    Set Obj_Arquivo = CreateObject("Scripting.Obj_ArquivotemObject")


    'Instanciando a variável Obj_Texto com o método do objeto Obj_Arquivo, passando como parâmetro a url e o nome do arquivo XML
    Set Obj_Texto = Obj_Arquivo.CreateTextFile("D:\Inetpub\wwwroot\Arquivo.XML", True)


    'Gravando o resultado contido na variável RECEBE no arquivo XML
    Obj_Texto.WriteLine("<PROCESSO>") + RECEBE + ("</PROCESSO>")


Até a próxima pessoal, Abraços !



Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

0 comentários: