MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    avatar
    ANSFREITAS
    Novato
    Novato


    Respeito às regras : 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  Empty como atualizar tabelas no accesso de um outro banco com serviço http

    Mensagem  ANSFREITAS 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: 25/11/2024, 05:02