BUSCA DE CEP

ALEXRONCHI 09/08/2012 09:55:27
#407556
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!
RODRIGOFERRO 09/08/2012 10:12:30
#407557
Tem o Buscar CEp que ja tem varios exemplos, inclusive em VB6

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

Abraços
MARCELO.TREZE 09/08/2012 10:26:00
#407559
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.
FBGSYSTEMS 10/08/2012 20:11:07
#407752
Precisa se cadastrar para usar a pesquisa ? Retornou este erro quando testei o exemplo postado pelo ZEROCAL
FILMAN 11/08/2012 01:04:56
#407761 Resposta escolhida
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
Tópico encerrado , respostas não são mais permitidas
Voltar