none
Busca de CEP ONLINE e preenchimento RRS feed

  • Pergunta

  • Estou tentando encontrar um codigo que ache o endereço de acoordo com o cep e preencha os textbox, encontrei esse na net, mas não faço ideia de como ele recebe e envia os dados (como o CEP, RUA, CIDADE... )

        Function BuscaCep(ByVal cep As String) As Hashtable  
            Dim ds As DataSet  
            Dim _resultado As String  
            Dim ht As System.Collections.Hashtable  
            Try  
            ds = New DataSet()  
            ds.ReadXml("http://cep.republicavirtual.com.br/web_cep.php?cep=" + cep.Replace("-", "").Trim() + "&formato=xml")  
            If Not IsNothing(ds) Then  
            If (ds.Tables(0).Rows.Count > 0) Then  
            _resultado = ds.Tables(0).Rows(0).Item("resultado").ToString()  
            ht = New Hashtable  
            Select Case _resultado  
            Case "1"  
            ht.Add("UF", ds.Tables(0).Rows(0).Item("uf").ToString().Trim())  
            ht.Add("cidade", ds.Tables(0).Rows(0).Item("cidade").ToString().Trim())  
            ht.Add("bairro", ds.Tables(0).Rows(0).Item("bairro").ToString().Trim())  
            ht.Add("tipologradouro", ds.Tables(0).Rows(0).Item("tipo_logradouro").ToString().Trim())  
            ht.Add("logradouro", ds.Tables(0).Rows(0).Item("logradouro").ToString().Trim())  
            ht.Add("tipo", 1)  
              
            Case "2"  
            ht.Add("UF", ds.Tables(0).Rows(0).Item("uf").ToString().Trim())  
            ht.Add("cidade", ds.Tables(0).Rows(0).Item("cidade").ToString().Trim())  
            ht.Add("tipo", 2)  
            Case Else  
            ht.Add("tipo", 0)  
            End Select  
            End If  
            End If  
            Return ht  
            Catch ex As Exception  
            Throw New Exception("Falha ao Buscar o Cep" & vbCrLf & ex.ToString)  
            Return Nothing  
            End Try  
        End Function  

    Aguardo ajuda. Obrigado desde já

    quarta-feira, 7 de novembro de 2012 00:30

Respostas

  • Ué.

    Isso é uma função que retorna um CEP já toda executada.

    Copie toda a função e insira ele no seu projeto. Do jeitinho que está

    Para você, por exemplo, retornar o resultado no próprio "Output", insira o código em um
    botão, por exemplo:

    For Each element As DictionaryEntry In BuscaCep("21000-000")
    	    Console.WriteLine(element.Key)
    	    Console.WriteLine(element.Value)
    Next
    Assim ele vai ler o resultado retornado da função, de acordo com o CEP digitado.

    Depois só ir aprimorando de acordo com a necessidade

    Att

    Alan
    quarta-feira, 7 de novembro de 2012 09:59