Buscar endereço pelo CEP - VB.NET

1:    Try  
2:        Dim ds As New DataSet  
3:        Dim xml As String = "http://cep.republicavirtual.com.br/web_cep.php?cep=" & cad_cep.Text & "&formato=xml"  
4:        ds.ReadXml(xml)  
5:        Dim Endereco As String = ds.Tables(0).Rows(0)("logradouro").ToString  
6:        Dim Bairro As String = ds.Tables(0).Rows(0)("bairro").ToString  
7:        Dim Cidade As String = ds.Tables(0).Rows(0)("cidade").ToString  
8:        Dim Uf As String = ds.Tables(0).Rows(0)("uf").ToString  
9:        Dim tiporua As String = ds.Tables(0).Rows(0)("tipo_logradouro").ToString  
10:        cad_uf.Text = Uf  
11:        cad_endereco.Text = tiporua & " " & Endereco  
12:        cad_bairro.Text = Bairro  
13:        cad_cidade.Text = Cidade  
14:      Catch ex As Exception  
15:        MsgBox("Houve um erro inesperado ao tentar buscar o CEP, tente novamente!" & vbNewLine & vbNewLine & "------------------" & vbNewLine & ex.ToString)  
16:      End Try  

COMENTE

& Compartilhe

Tweet