MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    criar comando para exportar dados em XML

    avatar
    palcobia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 6
    Registrado : 20/06/2017

    criar comando para exportar dados em XML Empty criar comando para exportar dados em XML

    Mensagem  palcobia em 4/12/2019, 15:14

    Boa tarde a todos,

    Gostaria de saber se existe alguma forma de exportar os campos de uma tabela ou consulta em XML.
    A ideia seria criar um botão com um evento, que vai buscar os dados como por exemplo: (cliente, morada, cidade)...e exportar para XML capaz de ser guardado na área local.
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 318
    Registrado : 12/01/2015

    criar comando para exportar dados em XML Empty Re: criar comando para exportar dados em XML

    Mensagem  renpv em 11/12/2019, 00:19

    É perfeitamente possível. Nesse caso você pode criar uma consulta com os campos e dados a serem exportados e usar um comando VBA para exportar.

    Pra facilitar, crie um botão e no evento OnClick inclua o seguinte código

    Código:
    Application.ExportXML acExportQuery, "conExportarXML", Application.CurrentProject.Path & "\consultaExportada.xml"

    Lembro que pra executar o comando acima você precisa criar uma consulta e dar o nome de conExportarXML.

    O comando acima vai salvar um arquivo XML na pasta onde o arquivo do access está gravado.

    Dá pra fazer muito mais coisas como deixar o usuário escolher a pasta e o nome do arquivo no momento da exportação, criar filtros pra exportar apenas os dados necessários, etc.

    Espero ter ajudado.
    avatar
    palcobia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 6
    Registrado : 20/06/2017

    criar comando para exportar dados em XML Empty Re: criar comando para exportar dados em XML

    Mensagem  palcobia em 11/12/2019, 10:29

    Obrigado pela dica, deu perfeitamente e ainda complementei com a abertura da sua localização no final desta forma:

    Código:
    Application.exportXML acExportQuery, "conExportarXML", "C:\pastadoprograma\" & "\50000teste.xml"

      Dim resultado As VbMsgBoxResult
        resultado = MsgBox("XML - Exportado Com Sucesso...", vbOKOnly, "Alerta")
        Shell "C:\WINDOWS\explorer.exe """ & "C:\pastadoprograma\" & "", vbNormalFocus


    Agora tenho outro problema na versão do XML, que actualmente aparece desta forma:
    Estas são as duas primeiras linhas:

    Código:
    <?xml version="1.0" encoding="UTF-8"?>
    <dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2019-12-11T10:20:08">

    Como é que posso fazer aparecer assim:

    Código:
    <?xml version="1.0" encoding="windows-1252"?>
    <AuditFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="urn:OECD:StandardAuditFile-Tax:1.03_01">

    esta é a forma como terá de ser apresentado, aguardo feedback.
    pois este ficheiro será submetido em um validador SAF-T e tem de estar em conformidade.


    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 318
    Registrado : 12/01/2015

    criar comando para exportar dados em XML Empty Re: criar comando para exportar dados em XML

    Mensagem  renpv em 11/12/2019, 12:16


      Data/hora atual: 1/6/2020, 05:42