Como usar GET e POST no Access

Question

Boa tarde!!!
Como faço para trabalhar com GET e POST no VBA?
Vejam o exemplo abaixo:
http://www.consultacpf.com/webservices/test-drive/consultacpf.asmx?wsdl/ConsultaDetalhadaSERASA?EMail=MEUEMAILAQUI&Senha=MINHASENHAAQUI&Documento=MEUDOCAQUI

Luciano

Answer 1

O Office 2003 Webservices Toolkit tem esta finalidade. Alternativamente, pode escrever o código "na unha" usando a biblioteca Microsoft SOAP.

Answer 2

Bom dia Luiz Cláudio,
Com a ajuda la do GD ForumAccess, consegui montar o código abaixo.
'/////////////////

Code Block

Function busca_serasa_concentre()
Dim vemail As String, vsenha As String, vdoc As String
    vemail = "MEUEMAIL"
    vsenha = "MINHASENHA"
    vdoc = "111.111.111-22"
   
    url = "http://www.consultacpf.com/webservices/test-drive/consultacpf.asmx/ConsultaConcentreSERASA?EMail=" & vemail & "&Senha=" & vsenha & "&Documento=" & vdoc & ""

    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.Open "GET", url, False
    xmlhttp.Send ""
    xmlhttp_resultado = xmlhttp.responseText
    Set xmlhttp = Nothing
    Dim v_txt As Variant
    Open "c:\temp\teste.xml" For Output As #1
    With v_txt
        Print #1, xmlhttp_resultado
    End With
    Close #1
   
    Call exclui_tabelas
    Call importa_tabelas
End Function

 

 

'///////////////////
Com relação ao nó Pendencias (sem acento), eu consegui encontrar com o código abaixo, mas não consigo encontrar o nó Protestos (que está dentro de Pendencias).
'//////////////////

Code Block

        Dim vpend As Object, vprot As Object, vdados As Object
        Dim vprotestos As String
        For Each vpend In oResposta.context.childnodes
            If vpend.basename = "Pendencias" Then
                vprotestos = ""
                For Each vprot In vpend.childnodes
                    If vprot.basename = "Protestos" Then
                        For Each vdados In vprot.childnodes
                            vprotestos = vprotestos & vdados.nodename & " : " & vdados.Text & vbCrLf
                        Next
                    End If
                Next
            End If
        Next

 

 

'///////////////

Usando o método Get, eu salvo o arquivo xml no meu pc, importo as tabelas e apresento os dados, está correto fazer isso?

Grato
Luciano

Answer 3

Sim, está correto.

 

Para achar Protestos, será um código semelhante, mas você deve pegar os childnodes de Pendencias.