MICROSOFT XML, V03 X V04 (ELUCIMAR)

JORGESALES 07/02/2016 21:10:09
#457319
Pessoal no meu post sobre arquivos XML o Elucimar passou este excelente código que
resoveu o meu problema, todavia eu tenho um código nesse programa que busca CEP e
usa a referencia [txt-color=#0000f0]Microsoft XML v04[/txt-color] e não há como habilitar as 2
(03 e 04) ao mesmo tempo, o que preciso é adaptar
este código para ser usado nesta versão ou adaptar o código que busca o CEP para ser
usado com a referencia 03:
    Dim http As XMLHTTP
    Dim xmlRetorno As DOMDocument
    
    Set http = New XMLHTTP
    http.Open [Ô]POST[Ô], txtUrl.Text, False
    http.setRequestHeader [Ô]Content-Type[Ô], [Ô]text/xml; charset=utf-8[Ô]
    http.send

    Set xmlRetorno = http.responseXML
    If (Not xmlRetorno Is Nothing) Then
        Me.txtXmlResultado.Text = xmlRetorno.xml
        Me.txtResultado.Text = xmlRetorno.getElementsByTagName([Ô]Empresa//Resultado[Ô]).Item(0).Text
        txtRazaoSocial.Text = xmlRetorno.getElementsByTagName([Ô]Empresa//RazaoSocial[Ô]).Item(0).Text
        txtEndereco.Text = xmlRetorno.getElementsByTagName([Ô]Empresa//Endereco[Ô]).Item(0).Text
    End If

Esta é uma parte do código para buscar CEP que usa a vesão 04
( a parte comentada foi uma tentativa de adaptar para a versão 03, fiz
o mesmo com o primeiro código antes de postar aqui) na verdade tanto faz
se ficar com a versão 03 ou 04 ou só preciso que os 2 códigos rodem.
    Dim obj As MSXML2.ServerXMLHTTP60
    [txt-color=#007100][ô]Dim obj As XMLHTTP[/txt-color]
    Dim objLerXml As MSXML2.DOMDocument60
    [ô]Dim objLerXml As DOMDocument

    Dim url As String
    Set obj = New MSXML2.ServerXMLHTTP60
    [ô]Set obj = New XMLHTTP
    Set objLerXml = New MSXML2.DOMDocument60
    [ô]Set objLerXml = New DOMDocument
    
    url = [Ô]http://republicavirtual.com.br/web_cep.php?cep=[Ô] & txt & [Ô]&formato=XML[Ô]
    obj.Open [Ô]GET[Ô], url
    obj.Send

Observação:
Eu leio muita coisa aqui neste forum, sei que programadores mais experientes não gostam
de [Ô]passar códigos prontos[Ô] pois querem que a gente aprenda a lógica da programação em si,
espero que esta tentativa frustada de adaptar estes códigos sirva para mostrar que tenho muita
vontade de aprender e que em respeito a todos vocês eu faço de tudo para não precisar postar,
mas quando não tem mais jeito recorro a vocês.

Obrigado meus amigos....
ELUCIMAR 08/02/2016 08:22:55
#457342 Resposta escolhida
JORGESALES

A consulta do CEP é similar a do CNPJ, veja no exemplo em anexo.
JORGESALES 08/02/2016 09:32:24
#457349
Elucimar,
Deus te abençoe por tanta generosidade....
Tópico encerrado , respostas não são mais permitidas
Voltar