Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

asp.net

microsoft.xmldom

Recommended Posts

Já resolvi. Se alguem quiser um scrit para gerar xml de uma busca num banco ai vai.

 

:::::::::::::::::Codigo:::::::::::::::::::::::::::::::::::::::::::

 

'Declarando as variaveis

Dim arquivoxml, servidores, busca_servidores

 

'Cria uma instancia do Objeto XML

Set arquivoxml = Server.CreateObject("MSXML2.DOMDocument.3.0")

 

'Cabecalho do arquivo XML, obrigatorio

 

set cabecalho=arquivoxml.createprocessinginstruction("xml","version='1.0'")

arquivoxml.insertbefore cabecalho,raiz

 

'Cria o nó principal do arquivo

Set servidores = arquivoxml.CreateElement("servidores")

 

'Passa para a instancia o arquivo criado

 

Set arquivoxml.documentElement = servidores

 

'Busca no banco de dados

busca_servidores = "Select * from governo where digitacao=true"

reret.Open busca_servidores

 

'Loop para preencher o arquivo com os valores do campo

while not reret.eof

 

'Cria o no principal do XML

Set informacoesservidores = arquivoxml.CreateElement("informacoesservidores")

servidores.appendChild(informacoesservidores)

 

'Cria o preenche com o valor da busca e adiciona no arquivo o atributo

 

Set nome = arquivoxml.CreateElement("nome")

nome.text = reret("nome")

informacoesservidores.AppendChild(nome)

 

reret.MoveNext

wend

 

'Grava no arquivo o resultado já em XML

 

arquivoxml.save ("c:\inetpub\wwwroot\reret\servidores.xml")

set arquivoxml=nothing

'Libera a instancia

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.