BUSCA DE CEP

 Tópico anterior Próximo tópico Novo tópico

BUSCA DE CEP

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#407556 - 09/08/2012 09:55:27

ALEXRONCHI
JUNDIAI
Cadast. em:Dezembro/2009


Olá pessoal, alguém sabe como fazer pra incorporar a busca de CEP dos correios em um projeto desenvolvido em VB6? Onde posso pegar algum exemplo?
Eu tinha achado um código, da republica virtual, mas ele não está mais funcionando, pelo menos por esses dias não está
Obrigado!

Alex Ronchi
www.agito24horas.com.br

#407557 - 09/08/2012 10:12:30

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


Tem o Buscar CEp que ja tem varios exemplos, inclusive em VB6

http://www.buscarcep.com.br/?secao=exemplos

Abraços

Estou voltando... Olá a todos... Já posso dizer, ("Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA")
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em códigos binários.



#407559 - 09/08/2012 10:26:00

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Só pra completar, o que vc pode fazer e colocar um webbrowser e indicar link do site no vb6, se vc quizer acesso ao banco de dados, vai ter desembolsar mil e poucos reais.



________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#407752 - 10/08/2012 20:11:07

FBGSYSTEMS
MARANHAO
Cadast. em:Abril/2012


Precisa se cadastrar para usar a pesquisa ? Retornou este erro quando testei o exemplo postado pelo ZEROCAL



Resposta escolhida #407761 - 11/08/2012 01:04:56

FILMAN
PRESIDENTE PRUDENTE
Cadast. em:Março/2010


Última edição em 11/08/2012 01:05:49 por FILMAN

Cara aqui eu tenho um exemplo da republica virtual e funciona verifica ai

http://cep.republicavirtual.com.br/web_cep.php?cep=19067090&formato=xml

Primeiramente Adicione na sua referencia a DLL msxml4.dll (C:\Windows\System32\msxml4.dll)

Crie um novo FORM e coloque o código abaixo nele
Private myXML As DOMDocument
Private X As IXMLDOMNode

Private Sub Command1_Click()
    MousePointer = 11
    Dim xlink As String
    Set myXML = New DOMDocument
    myXML.resolveExternals = True
    myXML.validateOnParse = True
    myXML.async = False
    xlink = "http://cep.republicavirtual.com.br/web_cep.php?cep=" & txtCEP & "&formato=xml"
    myXML.Load (xlink)
    For Each X In myXML.documentElement.childNodes
        Select Case X.nodeName
               Dim xrua As String
               Dim xtipo As String
               Case Is = "logradouro"
                    xrua = UCase$(X.childNodes(0).Text)
               Case Is = "uf"
                    TxtEstado = UCase$(X.childNodes(0).Text)
               Case Is = "cidade"
                    TxtCidade = UCase$(X.childNodes(0).Text)
               Case Is = "bairro"
                    TxtBairro = UCase$(X.childNodes(0).Text)
               Case Is = "tipo_logradouro"
                    xtipo = UCase$(X.childNodes(0).Text)
               Case Is = "resultado_txt"
                    TxtRetorno = UCase$(X.childNodes(0).Text)
                    
        End Select
        TxtLogradouro = xtipo & " " & xrua
    Next
    MousePointer = 0
End Sub


Agora Informe os objetos no FORM
6 TextBox , 1 Buttom e renomeie eles para os seu respectivos nomes

txtCEP
txtRetorno
txtLogradouro
txtBairro
txtCidade
txtEstado
Command1

  
  
Instruir-te-ei, e ensinar-te-ei o caminho que deves seguir; guiar-te-ei com os meus olhos. (Salmos 32:8)

www.cursoexcelvba.com.br

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ALEXRONCHI em 11/08/2012 09:49:17