none
Busca de CEP ONLINE e preenchimento RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    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
    |