Eu gostaria de saber se eu posso ficar adicionando dados a um arquivo XML como se fosse um banco de dados?
Se alguém souber posta aqui porque eu fiz gerar um arquivo XML com os dados que eu coloquei em um formulário no VB , mas quando vou adicionar mais um registro dá pau.
O código é esse , está em um botão do formulário
Set obxml = CreateObject("microsoft.xmldom")
obxml.async = False
obxml.Load ("C:\Documents and Settings\andre\Meus documentos\alunos.xml")
''Cria o elemento raiz
Set obraiz = obxml.createElement("Cadastro")
obxml.appendChild obraiz
''cria o nó que representa o grupo
Set objno = obxml.createElement("alunos")
obraiz.appendChild objno
''cria os nós dentro do grupo
Set objinfo = obxml.createElement("RM")
objinfo.Text = Text1.Text
objno.appendChild objinfo
Set objinfo = obxml.createElement("Nome")
objinfo.Text = Text2.Text
objno.appendChild objinfo
obxml.save ("C:\Documents and Settings\andre\Meus documentos\alunos.xml")
Pergunta
Guest - André -
Eu gostaria de saber se eu posso ficar adicionando dados a um arquivo XML como se fosse um banco de dados?
Se alguém souber posta aqui porque eu fiz gerar um arquivo XML com os dados que eu coloquei em um formulário no VB , mas quando vou adicionar mais um registro dá pau.
O código é esse , está em um botão do formulário
Set obxml = CreateObject("microsoft.xmldom")
obxml.async = False
obxml.Load ("C:\Documents and Settings\andre\Meus documentos\alunos.xml")
''Cria o elemento raiz
Set obraiz = obxml.createElement("Cadastro")
obxml.appendChild obraiz
''cria o nó que representa o grupo
Set objno = obxml.createElement("alunos")
obraiz.appendChild objno
''cria os nós dentro do grupo
Set objinfo = obxml.createElement("RM")
objinfo.Text = Text1.Text
objno.appendChild objinfo
Set objinfo = obxml.createElement("Nome")
objinfo.Text = Text2.Text
objno.appendChild objinfo
obxml.save ("C:\Documents and Settings\andre\Meus documentos\alunos.xml")
Set obxml = Nothing
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados