CONSULTA ENDEREÇO VIA CEP

 Tópico anterior Próximo tópico Novo tópico

CONSULTA ENDEREÇO VIA CEP

VB.NET

 Compartilhe  Compartilhe  Compartilhe
Resposta escolhida #491100 - 06/11/2019 10:57:29

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 06/11/2019 11:00:17 por JCM0867

Use essa função que criei, funciona 100%

Public Sub CEP(ByVal pCEP As String)
        'MsgBox("Busca de CEP via internet está indisponível no momento")
        Dim dsCep As DataSet
        Dim ResultadoCep As String = String.Empty

        Try
            dsCep = New DataSet()
            dsCep.ReadXml("http://cep.republicavirtual.com.br/web_cep.php?cep=" + pCEP.Replace("-", "").Trim() + "&formato=xml")

            If Not IsNothing(dsCep) Then
                If (dsCep.Tables(0).Rows.Count > 0) Then
                    ResultadoCep = dsCep.Tables(0).Rows(0).Item("resultado").ToString()

                    Select Case ResultadoCep
                        Case "1"
                            DDCepEstado = (dsCep.Tables(0).Rows(0).Item("uf").ToString().Trim())
                            DDCep(0) = (dsCep.Tables(0).Rows(0).Item("uf").ToString().Trim())
                            DDCep(1) = (dsCep.Tables(0).Rows(0).Item("cidade").ToString().Trim())
                            DDCep(2) = (dsCep.Tables(0).Rows(0).Item("bairro").ToString().Trim())
                            DDCep(3) = (dsCep.Tables(0).Rows(0).Item("tipo_logradouro").ToString().Trim())
                            If DDCep(3) = "Avenida" Then DDCep(3) = "Av."
                            DDCep(4) = (dsCep.Tables(0).Rows(0).Item("logradouro").ToString().Trim())
                        Case "2"
                            DDCep(0) = (dsCep.Tables(0).Rows(0).Item("uf").ToString().Trim())
                            DDCep(1) = (dsCep.Tables(0).Rows(0).Item("cidade").ToString().Trim())
                            DDCep(2) = String.Empty
                            DDCep(3) = String.Empty
                            DDCep(4) = String.Empty
                        Case Else
                            DDCep(0) = String.Empty
                            DDCep(1) = String.Empty
                            DDCep(2) = String.Empty
                            DDCep(3) = String.Empty
                            DDCep(4) = String.Empty
                    End Select
                End If
            End If
        Catch ex As Exception
            MessageBox.Show("Falha ao Buscar o Cep" & vbCrLf & ex.Message & vbCrLf & ex.Source)
        End Try
    End Sub

DDCep(0) a DDCep(4) tem a resposta




#491233 - 14/11/2019 23:21:31

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Amigo JCM0867
Muito grato pela ajuda
Valeu



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PLUGSOFTSM em 14/11/2019 23:22:11