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
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