Exportar dados do Access como XML

Question

No Access 2003, podemos fazer a saída de dados em XML, exportando para um documento XML. Para isso basta clicar no nome da tabela, consulta, formulário ou relatório que desejamos exportar, clicar em Exportar, no menu Arquivo e, em seguida, na caixa Salvar como Tipo, escolher XML (*.xml).

Gostaria de saber se há como realizar este procedimento de exportação de dados nas versões anteriores: Access 2000 e Access 97? Nessas versões não há a opção de salvar como XML (*.xml), então qual seria a solução neste caso?

Answer 1

Charles, mais uma vez obrigado pela resposta. Deixei um pouco a preguiça de lado e acabei construindo o export via código VBA, mesmo. Para quem interessar segue o mesmo:

Public Function Export()

Dim bd As Database Dim tabela As Recordset Dim f As Integer

Set bd = CurrentDb Set tabela = bd.OpenRecordset("nome_da_tabela_para_exportar")

' utilizado FreeFile para fornecer um número de arquivo livre, que não esteja sendo usado f = FreeFile ' abre o arquivo para gravacao Open "caminho_completo_do_arquivo.xml" For Output As #f ' o inicio de um arquivo XML possui o plural dos registros do arquivo Print #f, "<?xml version='1.0' encoding='iso-8859-1'?>" Print #f, "<LOTE>" Print #f, "<REGISTROS>"

tabela.MoveFirst ' faz o loop percorrendo todos os registros do inicio ao fim da tabela Do While Not tabela.EOF ' escreve uma tab XML para indicar que estamos no comeco de um novo registro Print #f, "<REGISTRO>" Print #f, "<TAG1>" & tabela!campo_da_tabela & "</TAG1>" Print #f, "<TAG2>" & tabela!campo_2 & "</TAG2>" Print #f, "<TAG3>" & tabela!campo_3 & "</TAG3>" . . . Print #f, "<TAGn>" & tabela!campo_n & "</TAGn>" ' fecha a tag para este registro Print #f, "</REGISTRO>" ' vai para o proximo registro da tabela tabela.MoveNext Loop

' encerra o arquivo xml Print #f, "</REGISTROS>" Print #f, "</LOTE>" ' fecha o arquivo Close #f

End Function

Abs

Answer 2

Over kill

Localizei este programa "Paradox", não conheço, poderia criar um cópia da base de dados em outra maquina, e utilizar o programa e ver se realmente funciona

http://www.baixaja.com.br/downloads/Windows/Business/Databases-Tools/MS-Access-Paradox-Import-Export_37072.html

Espero ter esclarecido a dúvida em relação a exportação em .xml, pois é uma limitação mesmo dessas versões, não esqueça de marcar como resolvido para não deixar o post aberto ok

---

Cordialmente, Charles Aureliano Santana http://santanatech.spaces.live.com Profissional 4 Estrelas Windows Vista "Profissional 5 Estrelas" Technet Profissional 4 Estrela ISA Server "Profissional 5 Estrelas" TechNet Profissional 1 Estrela1 Microsoft TechNet "Profissional 5 Estrelas" "Windows 2008 Server"

Answer 3

Over Kill,

Realmente não é possível fazer estpa exportação no 2000 e 97, somente no 2003 e 2007.

O vc pode fazer é pegar os arquivos criados no 97 de 2000, migrar para o 2003 ou 2007 e fazer a exportação em .xml

Espero ter ajudado.

Não esqueça de marcar como resolvido para não deixar o post aberto.

---

Cordialmente, Charles Aureliano Santana http://santanatech.spaces.live.com Profissional 4 Estrelas Windows Vista "Profissional 5 Estrelas" Technet Profissional 4 Estrela ISA Server "Profissional 5 Estrelas" TechNet Profissional 1 Estrela1 Microsoft TechNet "Profissional 5 Estrelas" "Windows 2008 Server"

Charles, obrigado pela dica, mas não tenho o 2003 ou 2007 disponível. Tenho que fazer esse export com o 97 ou 2000, mesmo. Andei pesquisando e encontrei dois programinhas que aparentemente fazem isso, porém não encontrei-os em nenhum site confiável: MDB Converter v2.2 e Nectus Data Extractor 0.8.2. Outra possibilidade seria fazer isso através do VBA, mas creio que vai ser muito trabalhoso. Caso tenha alguma outra dica, ficarei agradecido.

Abs

Answer 4

Over Kill,

Realmente não é possível fazer estpa exportação no 2000 e 97, somente no 2003 e 2007.

O vc pode fazer é pegar os arquivos criados no 97 de 2000, migrar para o 2003 ou 2007 e fazer a exportação em .xml

Espero ter ajudado.

Não esqueça de marcar como resolvido para não deixar o post aberto.

---

Cordialmente, Charles Aureliano Santana http://santanatech.spaces.live.com Profissional 4 Estrelas Windows Vista "Profissional 5 Estrelas" Technet Profissional 4 Estrela ISA Server "Profissional 5 Estrelas" TechNet Profissional 1 Estrela1 Microsoft TechNet "Profissional 5 Estrelas" "Windows 2008 Server"