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

    como atualizar tabelas no accesso de um outro banco com serviço http

    Compartilhe

    ANSFREITAS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 17/01/2011

    como atualizar tabelas no accesso de um outro banco com serviço http

    Mensagem  ANSFREITAS em 4/2/2015, 12:28

    Bom dia amigos,

    Estou com o seguinte problema. Tenho um banco de dados que precisa atualizar informações de outro banco, mas só tenho acesso ao outro banco por um endereço http.

    veja o meu código abaixo.

    Sub CarregarDadosRT()

    Dim oWinHttpRt As WinHttpRequest
    Dim xmlDoc As New MSXML2.DOMDocument

    Set oWinHttpRt = New WinHttpRequest

    With oWinHttpRt
    Call .Open("GET", "http://mi00204999:9999/sigiop/webresources/priorizacaoequipamentosubmarino/listarRequisicaoTransporteEquipamentoSubmarino")
    .SetRequestHeader "content-type", "text/html;charset=utf-8"
    .SetRequestHeader "User-Agent", "Jakarta Commons-HttpClient/3.1"
    .SetRequestHeader "Authorization", "Basic ZGJsb2c6amU0eXJHd1ZQ"
    .setTimeouts 60000, 60000, 60000, 120000

    .Send
    DoEvents

    If oWinHttpRt.STATUS = 200 Then

    xmlDoc.LoadXML .ResponseText

    ' criar método para Ler o XML - xmlDoc
    ' Criar métod para copiar para tabela no access

    Else
    MsgBox "Ocorreu um erro......", vbCritical
    Exit Sub

    End If


    objDOM.LoadXML .ResponseText

    End With

    End Sub

    Tenho que criar os método para copiar /popular os dados do endereço http (tabela de outro banco) para uma tabela no access e não sei como.

    Podem me ajudar?

    Desde de já obrigado

      Data/hora atual: 21/10/2018, 07:30