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

    Envio XML com MSXML2

    Compartilhe

    lebert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 07/05/2014

    Envio XML com MSXML2

    Mensagem  lebert em Sex 17 Abr 2015, 14:12

    Pessoal,

    Estou tentando efetuar o envio de um arquivo xml que está salvo em meu computador para um WebService para posteriormente receber uma resposta do mesmo.

    Encontrei o código abaixo e tentei alterá-lo com os meus endereços e diretórios, porém o Access retorna o seguinte erro (Erro em tempo de execução '-2147012851(80072f0d)':  A autoridade de certificação não é válida ou está incorreta)
    Ao clicar em "Depurar" o Access me leva para a parte do código myHTTP.send (myDom.XML) quando coloco o cursor do mouse em cima aparece myDom.XML = ""

    Option Compare Database

    Private Sub Comando0_Click()
    'HTTP variable
    Dim myHTTP As MSXML2.XMLHTTP

    'HTTP object
    Set myHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    'create dom document variable, stores the xml to send
    Dim myDom As MSXML2.DOMDocument

    'Create the DomDocument Object
    Set myDom = CreateObject("MSXML2.DOMDocument")

    'Load entire Document before moving on
    myDom.async = False

    'xml string variable. replace with location if sending from file or URL
    Dim myxml As String
    myxml = "C:\Users\lbert\Desktop\consInfCob.xml"

    'loads the xml. change to .Load for file or url
    myDom.Load (myxml)
    Debug.Print myDom.XML

    'open the connection
    myHTTP.Open "post", "https://xxx.xx.xxx.xxx:xxxx/xxxxx", False

    'send the XML
    myHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
    myHTTP.send (myDom.XML)
    'Display the response
    MsgBox myHTTP.responseText
    End Sub

    Se alguém já precisou usar algo parecido e puder me ajudar fico muito agradecido. Smile
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6395
    Registrado : 05/11/2009

    Re: Envio XML com MSXML2

    Mensagem  Alexandre Neves em Sex 17 Abr 2015, 21:03

    Boa noite,
    Experimente
    Dim sURL As String
    Dim oXH As Object

    sURL = "https://xxx.xx.xxx.xxx:xxxx/xxxxx"
    ' browse url
    Set oXH = CreateObject("msxml2.xmlhttp")
    With oXH
    .Open "get", sURL, False
    .Send
    MsgBox .responseText
    End With


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    lebert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 07/05/2014

    Re: Envio XML com MSXML2

    Mensagem  lebert em Seg 20 Abr 2015, 11:33

    Bom dia!

    Obrigado pelo retorno Alexandre, porem o código gerou erro no .send (O sistema não pode localizar o recurso especificado)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6395
    Registrado : 05/11/2009

    Re: Envio XML com MSXML2

    Mensagem  Alexandre Neves em Sab 25 Abr 2015, 10:20

    Bom dia,
    Coloque o código original e indique quais os endereços e directórios pretende adaptar


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Seg 25 Set 2017, 18:00