MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


+10
staruck
warleywsc
rasotec
alozs
camilosousa
JoaquimMarques
eullerTec
Magnho-SP
Ribeiro
FabioPaes
14 participantes

    Busca CEP site ViaCEP

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Busca CEP site ViaCEP Empty Busca CEP site ViaCEP

    Mensagem  FabioPaes 25/1/2017, 16:28

    Segue um exemplo adaptado para o Access, que realiza a consulta do CEP no site Viacep.com.br.
    Mais uma alternativa de busca sem utilizar WebBrowser.
    Busca CEP site ViaCEP 4t7cdv
    Link: dropbox.com/s/lqtqm4ot7fl943x/TELA%20PESQUISA.png?dl=1


    Achei interessante pela facilidade de busca, ja que o site gera um Xml que sera lido e extraido os dados para o sistema dispensando as API's...
    Busca CEP site ViaCEP 2w6dpps
    Link: dropbox.com/s/kavhnix43xppmou/EXEMPLO%20XML.png?dl=1

    Para o Correto Funcionamento deve-se habilitar a referência Microsoft XML, v3.0
    Busca CEP site ViaCEP 35idp2d
    Link: dropbox.com/s/w2vfli8fox4d6pz/FUNCAO.png?dl=1


    Basta dar uma acessada la no site e verificar os diversos exemplos que tem la...

    Download Alternativo: dropbox.com/s/dj5u020rj5y2r5x/BuscaCep%20-%20ViaCep.zip?dl=1

    Obs: Copiar e Colar o Link no navegador!
    Anexos
    Busca CEP site ViaCEP AttachmentBuscaCep - ViaCep.zip
    Versão Access 2013 e 2002-2003
    Você não tem permissão para fazer download dos arquivos anexados.
    (70 Kb) Baixado 1240 vez(es)


    Última edição por ahteixeira em 20/6/2018, 23:22, editado 4 vez(es) (Motivo da edição : Atualizado com Versão Access 2002-2003)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    TYPEBR, Alexan, almirjorge, james.mlopes, fsouza32, CleberII, ZéBilingo e odeilsonalves gostam desta mensagem

    avatar
    Ribeiro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 04/08/2010

    Busca CEP site ViaCEP Empty Re: Busca CEP site ViaCEP

    Mensagem  Ribeiro 25/1/2017, 21:31

    Top ! Very Happy
    avatar
    Magnho-SP
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 09/05/2016

    Busca CEP site ViaCEP Empty Top de mais

    Mensagem  Magnho-SP 16/3/2017, 06:42

    Fabio meus parabens meu amigo, a muitos anos, tentava uma alternativa para esta busca de cep, sua dica foi sensacional!!!! pirat
    eullerTec
    eullerTec
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 06/09/2016

    Busca CEP site ViaCEP Empty Re: Busca CEP site ViaCEP

    Mensagem  eullerTec 16/3/2017, 14:59

    Parabéns FabioPaes muito bom este exemplo, extremamente útil e prático!

    eullerTec gosta desta mensagem

    avatar
    JoaquimMarques
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 04/12/2015

    Busca CEP site ViaCEP Empty Excelente!!!!

    Mensagem  JoaquimMarques 21/3/2018, 20:35

    Muito obrigado!!!!
    avatar
    camilosousa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 24/11/2016

    Busca CEP site ViaCEP Empty Re: Busca CEP site ViaCEP

    Mensagem  camilosousa 22/7/2018, 12:17

    top!
    obrigado
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    Busca CEP site ViaCEP Empty Re: Busca CEP site ViaCEP

    Mensagem  alozs 3/1/2019, 20:06

    muito bom!!!
    avatar
    rasotec
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 17/09/2013

    Busca CEP site ViaCEP Empty Re: Busca CEP site ViaCEP

    Mensagem  rasotec 9/3/2019, 15:29

    Obrigado pela contribuição, me ajudou muito
    warleywsc
    warleywsc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 07/05/2019

    Busca CEP site ViaCEP Empty Re: Busca CEP site ViaCEP

    Mensagem  warleywsc 25/5/2019, 13:58

    Obrigado! Very Happy
    avatar
    staruck
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 05/05/2012

    Busca CEP site ViaCEP Empty Re: Busca CEP site ViaCEP

    Mensagem  staruck 28/5/2019, 20:05

    excelente exemplo me serviu bastante!

              um abraço.
    avatar
    climb1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 18/11/2015

    Busca CEP site ViaCEP Empty Muito bom!!

    Mensagem  climb1 1/11/2021, 15:11

    Maravilha!!! Obrigado por compartilhar esse código muito útil Smile

    almirjorge gosta desta mensagem

    avatar
    james.mlopes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 27/08/2011

    Busca CEP site ViaCEP Empty Só temos a agradecer!!!!!

    Mensagem  james.mlopes 23/4/2022, 20:06

    Obrigado por compartilhar. Muito simples, sem necessidade de instalar complementos, como outros que encontrei.

    james.mlopes gosta desta mensagem

    avatar
    valdineij
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 18/03/2018

    Busca CEP site ViaCEP Empty Melhoria da performance

    Mensagem  valdineij 21/8/2022, 04:06

    Olá pessoal,

    Em retribuição à contribuição do Fábio Paes, fiz algumas alterações no código e consegui uma melhoria significativa de performance.
    Aqui o tempo total da consulta caiu de aproximadamente 3 segundos para aproximadamente 0.008 milisegundos.
    As alterações que fiz foram criar uma variável para armazenar o retorno da API e evitar nova chamada em caso de nova consulta para o mesmo CEP e utilizar um objeto MSXML2.XMLHTTP para efetuar a consulta.
    Segue o código:

    Código:
    Option Compare Database
    Dim msCepAnterior As String
    Dim moXmlDoc As DOMDocument

    '--------------------------------------------------------------'
    '  Baseado no código extraido do site "site "zeplanilha"  '
    ' Adaptado por FabioPaes em 25/01/2017                     '
    ' Adaptado por ValdineiJ em 01/06/2022                       '
    '       Para MaximoAccess.com                                      '
    '--------------------------------------------------------------'
    Function ConsultaCEP(valorcep As String, tipoCampo As String)

        Dim oXmlDoc As DOMDocument
        Dim oXmlNode As IXMLDOMNode
        Dim oXmlNodes As IXMLDOMNodeList
        Dim http As Object

        'Executa a chamada à API caso o CEP seja diferente do anterior
        If valorcep <> msCepAnterior Then
            Set oXmlDoc = New DOMDocument
            oXmlDoc.async = False
            
            Set http = CreateObject("MSXML2.XMLHTTP")
            With http
                .Open "GET", "https://viacep.com.br/ws/" + valorcep + "/xml/", False
                .send
            End With

            oXmlDoc.LoadXML (http.responseText)
            'Armazena o resultado da consulta  nas variaveis do modulo
            Set moXmlDoc = oXmlDoc
            msCepAnterior = valorcep
        Else
            Set oXmlDoc = moXmlDoc
        End If
        
      'Obtem o resultado solicitado a partir da variável
        Set oXmlNodes = oXmlDoc.SelectNodes("/xmlcep/" + tipoCampo) '
                    
        For Each oXmlNode In oXmlNodes
            ConsultaCEP = oXmlNode.Text
        Next

    End Function

    CleberII gosta desta mensagem

    Siscrau
    Siscrau
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/05/2022

    Busca CEP site ViaCEP Empty Re: Busca CEP site ViaCEP

    Mensagem  Siscrau 30/11/2022, 14:10

    Olá pessoal, gostaria de agradecer aos criadores, adaptadores e melhoradores deste código, apliquei no meu projeto e estou usando, com os devidos créditos é claro...

    Conteúdo patrocinado


    Busca CEP site ViaCEP Empty Re: Busca CEP site ViaCEP

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 13:22