USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Consulta de CEP on-line
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 14/08/2007 11:34 hs            
Vou enviar a noite para um servidor de compartilhamento
 
 
   
mili
não registrado
ENUNCIADA !
Postada em 23/07/2009 12:35 hs   
vc nunca vai ter a rresposta tttttttttttttttt
   
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 23/07/2009 15:59 hs            
Dar sim pra pegar o CEP online em VB, tem um exemplo la no vbmania, eu mesmo ja usei ele,....
   
Edson479
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 24/07/2009 14:27 hs            
eu uso este, esta dica é do vbmania
 
Private Sub comBusca_Click()
On Error GoTo Trata_Erro
'------------------------------------------------------------------------
    If Len(txtCep.Value) <> 8 Then
        MsgBox "Digite o CEP com 8 Digitos e apenas Numeros", vbExclamation, "Localizar CEP ON-Line"
        txtCep.SetFocus
    Exit Sub
    End If
'------------------------------------------------------------------------
    ''BtCep.Caption = "Aguarde..."
    MousePointer = vbHourglass
    ''LblStatusCEP(0).Visible = True
    ''LblStatusCEP(1).Visible = True
'------------------------------------------------------------------------
    Dim Xlink As String
    Set myXML = New DOMDocument
'-------------------------------------------------------------
    myXML.resolveExternals = True
    myXML.validateOnParse = True
    myXML.async = False
'-------------------------------------------------------------
    Xlink = "http://cep.republicavirtual.com.br/web_cep.php?cep=" & txtCep.Text & "&formato=xml"
    myXML.Load (Xlink)
'-------------------------------------------------------------
    For Each XCep In myXML.documentElement.childNodes
'------------------------------------------------------------------------
        Select Case XCep.nodeName
       
                    Dim XRua As String
                    Dim XTipo As String
              
               Case Is = "logradouro"
                    XRua = UCase$(XCep.childNodes(0).Text)
               Case Is = "uf"
                    ''TxtEstado.Text = UCase$(XCep.childNodes(0).Text)
               Case Is = "cidade"
                    txtMun.Text = UCase$(XCep.childNodes(0).Text)
               Case Is = "bairro"
                    txtBai.Text = UCase$(XCep.childNodes(0).Text)
               Case Is = "tipo_logradouro"
                    XTipo = UCase$(XCep.childNodes(0).Text)
               Case Is = "resultado_txt"
                    ''LblStatusCEP(1).Caption = UCase$(XCep.childNodes(0).Text)
'------------------------------------------------------------------------
                ''If LblStatusCEP(1).Caption <> "SUCESSO - CEP COMPLETO" Then
                ''    txtCep.ForeColor = vbRed
                ''    txtCep.SetFocus
                ''        Else
                ''    LblStatusCEP(1).ForeColor = vbBlack
                ''    txtCep.ForeColor = vbBlack
                ''End If
'------------------------------------------------------------------------
        End Select
    Next
    '------------------------------------------------------------------------
        txtEnd.Text = XTipo & " " & XRua 'PREENCHE O LOGRADOURO
    '------------------------------------------------------------------------
        MousePointer = vbDefault
        ''BtCep.Caption = "Iniciar Cosulta"
    '------------------------------------------------------------------------
Exit Sub
Trata_Erro:
    MousePointer = vbDefault
    ''BtCep.Caption = "Iniciar Cosulta"
MsgBox "Ocorreu um Erro ao tentar localizar este CEP" & vbCrLf & _
"Verifique se existe Conexao com a Internet e tente novamente" & vbCrLf & vbCrLf & _
Err.Number & " - " & Err.Description & " - " & Err.Source, vbExclamation, "ERRO - Localizar CEP ON-Line"
'------------------------------------------------------------------------
    ''LblStatusCEP(1).ForeColor = vbRed
    txtCep.SelStart = 0
    txtCep.SelLength = Len(txtCep.Text)
'------------------------------------------------------------------------
End Sub
   
Carlos
não registrado
ENUNCIADA !
Postada em 13/01/2011 18:44 hs   
boa  tarde

por  gentileza  poderiam  me  informar  o  cep  da  av.  minas  gerais   n  460
,bairro  cansação  em  slto  da  divisa  em  minas  gerais
   
Buui
não registrado
ENUNCIADA !
Postada em 24/10/2011 08:18 hs   
Oii, gostaria que me mandasse a rotina do CEP.

Obrigada
   
Página(s): 2/3     « ANTERIOR    PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página