locked
Como usar GET e POST no Access RRS feed

Todas as Respostas

  • O Office 2003 Webservices Toolkit tem esta finalidade. Alternativamente, pode escrever o código "na unha" usando a biblioteca Microsoft SOAP.
    quarta-feira, 5 de dezembro de 2007 03:34
    Moderador
  • 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

    quarta-feira, 5 de dezembro de 2007 10:27
  • Sim, está correto.

     

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

    quinta-feira, 6 de dezembro de 2007 20:35
    Moderador