CEP REPUBLICAVIRTUAL

BRUNOGOMES 10/10/2012 23:59:04
#411779
Pesoal... estou com um problema.. Eu estava usando esse codigo abaixo para consultar cep no site da republicavirtual e depois preenchia as textboxs..
Mas do nada agora nao esta funcionando mais, alguem sabe se o site nao esta mais disponibilizando o acesso?? Eu ponho para consultar e n acontece nada e o programa trava...
Valeeu, abraço

Protected Sub CEP(ByVal pCEP As String)
        Dim ds As DataSet
        Dim Resultado As String = String.Empty
        Dim DD(4) As String

        Try
            ds = New DataSet()
            ds.ReadXml([Ô]http://cep.republicavirtual.com.br/web_cep.php?cep=[Ô] + pCEP.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()

                    Select Case Resultado
                        Case [Ô]1[Ô]
                            DD(0) = (ds.Tables(0).Rows(0).Item([Ô]uf[Ô]).ToString().Trim())
                            DD(1) = (ds.Tables(0).Rows(0).Item([Ô]cidade[Ô]).ToString().Trim())
                            DD(2) = (ds.Tables(0).Rows(0).Item([Ô]bairro[Ô]).ToString().Trim())
                            DD(3) = (ds.Tables(0).Rows(0).Item([Ô]tipo_logradouro[Ô]).ToString().Trim())
                            DD(4) = (ds.Tables(0).Rows(0).Item([Ô]logradouro[Ô]).ToString().Trim())
                        Case [Ô]2[Ô]
                            DD(0) = (ds.Tables(0).Rows(0).Item([Ô]uf[Ô]).ToString().Trim())
                            DD(1) = (ds.Tables(0).Rows(0).Item([Ô]cidade[Ô]).ToString().Trim())
                            DD(2) = String.Empty
                            DD(3) = String.Empty
                            DD(4) = String.Empty
                        Case Else
                            DD(0) = String.Empty
                            DD(1) = String.Empty
                            DD(2) = String.Empty
                            DD(3) = String.Empty
                            DD(4) = String.Empty
                            MessageBox.Show([Ô]Desculpe, este número de CEP não existe ou não está cadastro em nosso banco de dados.[Ô], [Ô]Aviso[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
                    End Select
                End If
            End If

            Me.txt_uf.Text = DD(0)
            Me.txt_cidade.Text = DD(1)
            Me.txt_bairro.Text = DD(2)
            Me.txt_Endereco.Text = DD(3)
            Me.txt_Endereco.Text = txt_Endereco.Text + [Ô] [Ô] + DD(4)
            Me.txt_numero.Focus()

        Catch ex As Exception
            MessageBox.Show([Ô]Falha ao Buscar o Cep! Verifique sua conexão com a Internet.[Ô], [Ô]Aviso[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

    Private Sub BuscarCEP()
        If Me.txt_cep.MaskCompleted Then
            Me.CEP(Me.txt_cep.Text)
        Else
            MessageBox.Show([Ô]Por Favor, Informe um número de CEP válido[Ô], [Ô]Aviso[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub btn_cep_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cep.Click
        Me.BuscarCEP()
    End Sub
F001E 11/10/2012 00:39:25
#411780
o Site esta fora...
BRUNOGOMES 11/10/2012 00:52:44
#411781
vix... entao agora vou ter q tirar isso do meu projeto né?

conhece algum lugar bom q tbm faiz isso ?? e que tem o código ??

Valeeu, abraço!!
F001E 11/10/2012 01:17:12
#411782
entao....eu nao sei se o site do correio da pra fazer isso e se eles disponibilizam o codigo....vai ter q conversar com eles....
mas da um tempo...pode ser q esse site q vc usa pode voltar....
VELDRAME 11/10/2012 10:01:34
#411804
O Correios não disponibiliza nada, só a base, para você comprar.
E não pode sair usando por ai não, é uma licença só. Mesmo o CEP sendo um dado público o Correios não lhe ajuda a ter acesso automatizado.
Eu tenho uma base em SQL-Server. Não esta 100% deve ter uns 2 anos mas tem coisa pra caramba!
Interessados enviar e-mail com o Assunto Correios qe eu envio o script.
eric.beltrame@gmail.com.
KURTGU 11/10/2012 11:23:27
#411815
Uso esse e dificilmente sai do ar...
http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8428
FOXMAN 11/10/2012 11:43:46
#411821
Eu tbem usa o republicavitrual, e com este problema estou criando a minha própria DLL.

Já está 98% funcional e concluido, estou apenas nos testes de possíveis erros.

Segue imagem de teste
BRUNOGOMES 11/10/2012 13:11:18
#411835
ahh ok valeeu gente..
estava usando o republicavirtual no meu tcc..
vou esperar ate uns dias antes de entregar... se nao voltar ai eu vou colocar outro..

sera q tem como voltar ?? ou vai ficar fora do ar pra sempre ?
valeeu, abraço
ALTAIR148 11/10/2012 13:31:58
#411838
Citação:

:
Eu tbem usa o republicavitrual, e com este problema estou criando a minha própria DLL.

Já está 98% funcional e concluido, estou apenas nos testes de possíveis erros.

Segue imagem de teste





Boa tarde,

Fox e essa sua dll de onde ela pesquisa os CEPs? Tem alguma base de dados?
FOXMAN 11/10/2012 13:40:36
#411841
Citação:

:
:
Eu tbem usa o republicavitrual, e com este problema estou criando a minha própria DLL.

Já está 98% funcional e concluido, estou apenas nos testes de possíveis erros.

Segue imagem de teste





Boa tarde,

Fox e essa sua dll de onde ela pesquisa os CEPs? Tem alguma base de dados?



Altair Busco direto nos correios.
ALTAIR148 11/10/2012 13:45:31
#411842
Citação:

Altair Busco direto nos correios.



Mas é via WebBrowser ai você trata os dados e extrai eles?
Página 1 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar