CONSULTA ENDEREO VIA CEP

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

CONSULTA ENDEREO 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 funo que criei, funciona 100%

Public Sub CEP(ByVal pCEP As String)
        []MsgBox([]Busca de CEP via internet est indisponvel 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