Usando Access

Navegação em Mapas com três ambientes

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito, através do Paypal. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Paulo Sergio Sarraino

Das tecnologias que vejo na WEB, uma das mais impressionantes para mim é a possibilidade de usar mapas.   Google Maps, Earth e Bing Maps confirmam isso, colocando uma quantidade de informações e possibilidades de pesquisa inimagináveis pelo preço (não) cobrado.  Ao mesmo tempo em que podemos navegar pelo mundo, podemos rastrear um simples endereço de forma bem mais dinâmica do que o velho guia de ruas de papel.

Como analista e desenvolvedor em ambiente Microsoft Office (especialmente Microsoft Access há quase 20 anos), acredito que muitos projetos podem surgir a partir da viabilidade de uso e integração dessas tecnologias.  Para explorar essa capacidade, pensei em desenvolver um pequeno projeto aonde, a partir de um cadastro de Locais (base de endereços da forma mais completa possível) pudesse exibir o mapa da região, utilizando alguns recursos de geoprocessamento e o controle ActiveX Microsoft Web Browser (que permite exibir qualquer página web num aplicativo).  Aproveito também para demonstrar algumas rotinas que utilizo em vários projetos, em especial uma que configura o ambiente do Microsoft Access de tal forma que um aplicativo compilado (ACCDE) pareça um executável.

Trabalhar com mapas envolve duas palavras mágicas: Latitude e Longitude.  Elas nos dão as coordenadas de qualquer endereço no planeta. Eu sei que quando pesquisamos no Google Maps, informamos endereços da forma como conhecemos, mas acredite, internamente tudo é convertido para latitude e longitude (a propósito, o ambiente de mapas do Bing só entende endereços dessa forma). Pesquisando a respeito, achei um serviço gratuito do Google que converte um endereço válido em coordenadas de latitude e longitude, usando um arquivo XML de retorno.

No final, esse projeto, além de demonstrar os mapas da web num aplicativo, possibilitou a visualização de como a estrutura XML pode ser aplicada em outras situações que envolvam um banco de dados.

Bom, passemos ao projeto!

Devido ao controle ActiveX Microsoft Web Browser e as tecnologias que serão utilizadas, precisamos incluir algumas Referências no ambiente do VBA (marcados em vermelho):

Para registrar e organizar os endereços que consultaremos, foi criada a tabela tbl_Locais:

Aproveitamos e já cadastramos alguns dados de exemplo:

Percebam que a tabela é bem simples, visto que a idéia é demonstrar a facilidade de desenvolvimento com qualquer banco de dados que possua dados relevantes. Os mapas tentam entender o endereço da melhor forma possível, seja completo ou usando pontos de referência.

Os mapas são exibidos através do formulário frm_Mapa. Duas propriedades dos controles que merecem destaque são: “Âncora Horizontal” e “Âncora Vertical”. Em conjunto com a propriedade "Estilo da borda" do formulário como "Ajustável", permitem que o formulário do mapa possa ser ajustado ao monitor do usuário ou a área disponível e os controles sejam redimensionados automaticamente.  Veja a estrutura:

Alguns detalhes sobre os controles utilizados:

Para melhor performance do ambiente Silverlight, recomendo que você baixe e instale a sua versão mais recente (5.1.10411.0) no site http://www.microsoft.com/silverlight/

Agora só falta o código!

Há um módulo chamado bas_Geral que possui quatro funções utilizadas no projeto:

No formulário frm_Mapa há as rotinas:

Como percebemos, a parte mais importante do processo está na rotina MapUpdate. Ela solicita e retorna o processamento do arquivo XML gerado. Esse arquivo é gerado através de um serviço do Google que permite identificar as coordenadas de latitude e longitude para um endereço válido. A sintaxe do endereço deve seguir dois tratamentos:

• O endereço não pode ter letras acentuadas

• O endereço deve ter todos os espaços entre palavras substituídos pelo sinal de "+".

Para realizar esses tratamentos utilizei a minha função personalizada TratAcentos e a função interna Replace:

strURL = "http://maps.googleapis.com/maps/api/geocode/xml?" & _
         "address=" & Replace(TratAcentos(Nz(Me.txtLocal, "")), " ", "+") & "" & _
         "&sensor=false"

O parâmetro address informa o endereço solicitado e sensor indica se estamos utilizando algum aparelho de GPS (conforme pesquisa na internet).   Vejam um exemplo do arquivo retornado no anexo SGeoMaps (Paulista).xml.

Com o arquivo processado e a referência à estrutura de dados XML, podemos processar sua estrutura e utilizar os métodos e propriedades adequados para nosso projeto:

E há diversas outras propriedades que podem ser utilizadas.   Ao final do processo, com as variáveis de Latitude e Longitude definidas, só falta chamar a página do Mapa solicitado com as coordenadas identificadas e outros parâmetros necessários. Cada mapa exibirá suas opções disponíveis, como Zoom, legendas e visualização em 3D.

Veja a rotina completa a seguir:

Function MapUpdate()

'processa parâmetros e solicita mapa conforme coordenadas identificadas
Dim strXML As New DOMDocument
Dim strURL As String
Dim strLat As String
Dim strLng As String
            
'processa endereço no serviço Google Maps API e recebe XML
strURL = "http://maps.googleapis.com/maps/api/geocode/xml?" & _
       "address=" & Replace(TratAcentos(Nz(Me.txtLocal, "")), " ", "+") & "" & _
       "&sensor=false"

 'processa XML e identifica latitude e longitude do endereço
 With strXML
    .Load strURL
     Do While .readyState <> 4  'completed
         DoEvents
     Loop
    
     If .SelectSingleNode("//GeocodeResponse/status").Text = "OK" Then
         strLat = .SelectSingleNode("//GeocodeResponse/result/geometry/location/lat").Text
         strLng = .SelectSingleNode("//GeocodeResponse/result/geometry/location/lng").Text
      Else
         strLat = ""
         strLng = ""
      End If
 End With
    
 Set strXML = Nothing
    
 'processa o mapa conforme tipo informado
 If (strLat = "") Or (strLng = "") Then
    strURL = "about:blank"
 Else
    Select Case Me.grpMapas
       Case 1: strURL = "http://maps.google.com.br/maps?" & _
                         "q=loc:" & strLat & "," & strLng & _
                         "&z=16" & _
                         "&t=h" & _
                         "&output=embed" & _
                         "&iwloc=0"
                      
       Case 2: strURL = "http://dev.virtualearth.net/embeddedMap/v1/ajax/" & _

                         "AerialWithLabels?" & _
                         "zoomLevel=16" & _
                         "¢er=" & strLat & "_" & strLng & _
                         "&pushpins=" & strLat & "_" & strLng
            
       Case 3: strURL = "http://dev.virtualearth.net/embeddedMap/v1/silverlight/" & _

                         "AerialWithLabels?" & _
                         "zoomLevel=16" & _
                         "¢er=" & strLat & "_" & strLng & _
                         "&pushpins=" & strLat & "_" & strLng
    End Select
End If
    
'exibe coordenadas e o mapa processado
Me.txtLatitude = Replace(strLat, ".", ",")
Me.txtLongitude = Replace(strLng, ".", ",")
Me.ctlWebBrowser.Navigate strURL
    
End Function

O formulário frm_Sobre exibe algumas informações sobre o projeto e permite realizar manutenções na base de Locais.

Prá finalizar e proteger o código fonte, devemos gerar o ACCDE do projeto, conforme o comando Criar ACCDE na guia Ferramentas de Banco de Dados.   Ao abrir o novo arquivo GeoMaps.accde, a função ConfigSystem entra em ação para, apenas uma vez, realizar todas as configurações de ambiente necessárias que permitirão visualizar o aplicativo como um executável (sem acesso ao código fonte).

Com isso, terminamos o projeto que é resultado de muita pesquisa e integração de tecnologia. Acredito que há muito mais a ser explorado e várias idéias que poderão ser aplicadas em outros projetos.

Essa matéria, assim como outras que já escrevi, e seus anexos estarão disponíveis também no meu site.

Atenção:  Houve uma mudança no Google Maps em outubro/2013 que inviabiliza a navegação pelo controle web browser.   Uma explicação e a solução você encontra neste link.  (use o tradutor do google).

Arquivo exemplo

MapsAccess.zip

Algumas Referências:

Google Maps API: https://developers.google.com/maps/

Bing Map: http://www.microsoft.com/maps/developers/web.aspx

XML DOM Reference: http://msdn.microsoft.com/pt-br/library/aa925430.aspx

Macoratti: http://www.macoratti.net

Microsoft Silverlight: http://www.microsoft.com/silverlight/

Até a próxima!

Paulo Sergio Sarraino

Analista Desenvolvedor em ambiente Microsoft Office há quase 20 anos, com especialização 
em Integração de Sistemas e Implantação de Dashboards usando Tecnologias Web e 
Report Server (SQL Server 2008 R2).

http://www.sarraino.com.br 

pss@sarraino.com.br

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

Adquira o kit UsandoAccess e aprenda em alta velocidade

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |