Consulta de CEP

[Ilano 0]

Olá pessoal,

 

Peguei neste link (http://www.republicavirtual.com.br/busca_de_cep/DotNet/) um exemplo de webservice para realizar consultas de cep. O site mostra um exemplo realmente é muito bom, porém, eu não sei como posso implementar o código disponível nele para incluir em minha aplicação. Como trabalho com VB, já converti o código q está em C# para VB, mas não sei como aplicá-lo.

 

Por favor, alguém poderia me ajudar? Não conheço nada de XML.

 

Grato,

 

Ilano.

[quintelab 91]

Pelo o que entendi onde esta CEP.Replace("-","").Trim() você deve passar seu Cep e o Web Service te retornará se encontrou algo ou não. E o retorno dele é feito nas propriedades que ele declarou.

 

Abraços...

[Ilano 0]

beleza! Mas como eu utilizo essa função?

Copiei o código em um arquivo Class.vb, ao qual dei o nome de verCEP.

No meu aspx.vb tentei chamá-lo assim:

 

Private MeuCep As New NcMaster.VerCEP

 

Só q ao tentar passar ovalor do TextBox para a função não estou conseguindo. Como posso fazer isso?

[quintelab 91]

Crie um parâmetro de entreda na sua função para receber este CEP.

Abraços...

[Ilano 0]

quintelab,

 

Passei o código assim:

 

Dim ds As New Data.DataSet()

ds.ReadXml("http://cep.republicavirtual.com.br/web_cep.php?cep=" + TxtCep.Text.Replace("-", "").Trim() + "&formato=xml")

DataGrid2.DataSource = ds

DataGrid2.DataBind()

Dá certo, mas como faço para consultar por logradouro, como no dos correios???

 

Tentei fazer assim:

 

Dim ds As New Data.DataSet()

ds.ReadXml("http://cep.republicavirtual.com.br/web_cep.php?cep=" + TxtEndereco.Text.Trim() + "&formato=xml")

DataGrid2.DataSource = ds

DataGrid2.DataBind()

Mas sempre retorna cep não encontrado.

[quintelab 91]

Aí é complicado não sei se o Web Service deles tem esta função de procurar conforme logradouro, pelo que percebi não. Mas tente entrar em contato lá no site, talvez tenha um outro Web Service.

 

Abraços...