【抛砖引玉】在Access中使用地图

fan0217

这里使用的是腾讯地图。可前往http://map.qq.com/申请开发Key



关键代码：

1. ''' <summary>
   
2.     ''' 根据经纬度获取地址
   
3.     ''' </summary>
   
4.     ''' <param name="latitude">纬度</param>
   
5.     ''' <param name="longitude">经度</param>
   
6.     ''' <param name="tengXunMapKey">腾讯地图开发Key，申请地址http://lbs.qq.com/ </param>
   
7.     ''' <returns></returns>
   
8.     ''' <remarks></remarks>
   
9. Function GetAddress(latitude As Double, longitude As Double, tengXunMapKey As String)
   
10.         Dim apiuri As String
    
11.         apiuri = "http://apis.map.qq.com/ws/geocoder/v1/?location=" & latitude & "," & longitude & "&key=" & tengXunMapKey
    
12.         Dim retJson As String
    
13.         retJson = HttpGet(apiuri)
    
14.         GetAddress = retJson
    
15. End Function
    
16. 
    
17. Function HttpGet(url As String) As String
    
18.      Dim xmlHttp As Object
    
19.      Set xmlHttp = CreateObject("Msxml2.XMLHTTP.3.0")
    
20.      If Not IsObject(xmlHttp) Then
    
21.          Set xmlHttp = CreateObject("Msxml2.XMLHTTP.3.0")
    
22.          If Not IsObject(xmlHttp) Then Exit Function
    
23.      End If
    
24.      xmlHttp.Open "GET", url, False
    
25.      xmlHttp.setRequestHeader "CONTENT-TYPE", "application/json;charset=UTF-8"
    
26.      xmlHttp.send
    
27. 
    
28.      Do While xmlHttp.ReadyState <> 4
    
29.          DoEvents
    
30.      Loop
    
31.   
    
32.         Dim ret As String
    
33.          ret = xmlHttp.responseText
    
34.        HttpGet = ret
    
35. End Function

复制代码

测试：

1. Sub Test()
   
2.     Debug.Print GetAddress(31.45, 105.75, "O24BZ-GW5RD-V5T4O-HOHGD-MEDWT-DTFB4")
   
3. End Sub

复制代码

输出结果：json格式，自己想办法解析了。

1. {
   
2.     "status": 0,
   
3.     "message": "query ok",
   
4.     "request_id": "6202287292262931140",
   
5.     "result": {
   
6.         "location": {
   
7.             "lat": 31.45,
   
8.             "lng": 105.75
   
9.         },
   
10.         "address": "四川省南充市南部县大升路",
    
11.         "formatted_addresses": {
    
12.             "recommend": "南部县永红乡观音场(大升路西)",
    
13.             "rough": "南部县永红乡观音场(大升路西)"
    
14.         },
    
15.         "address_component": {
    
16.             "nation": "中国",
    
17.             "province": "四川省",
    
18.             "city": "南充市",
    
19.             "district": "南部县",
    
20.             "street": "大升路",
    
21.             "street_number": ""
    
22.         },
    
23.         "ad_info": {
    
24.             "adcode": "511321",
    
25.             "name": "中国,四川省,南充市,南部县",
    
26.             "location": {
    
27.                 "lat": 31.450001,
    
28.                 "lng": 105.75
    
29.             },
    
30.             "nation": "中国",
    
31.             "province": "四川省",
    
32.             "city": "南充市",
    
33.             "district": "南部县"
    
34.         },
    
35.         "address_reference": {
    
36.             "village": {
    
37.                 "title": "千佛观村",
    
38.                 "location": {
    
39.                     "lat": 31.44953,
    
40.                     "lng": 105.745461
    
41.                 },
    
42.                 "_distance": 434.3,
    
43.                 "_dir_desc": "东"
    
44.             },
    
45.             "town": {
    
46.                 "title": "永红乡",
    
47.                 "location": {
    
48.                     "lat": 31.450001,
    
49.                     "lng": 105.75
    
50.                 },
    
51.                 "_distance": 0,
    
52.                 "_dir_desc": "内"
    
53.             },
    
54.             "street": {
    
55.                 "title": "大升路",
    
56.                 "location": {
    
57.                     "lat": 31.449713,
    
58.                     "lng": 105.751801
    
59.                 },
    
60.                 "_distance": 167.9,
    
61.                 "_dir_desc": "西"
    
62.             }
    
63.         }
    
64.     }
    
65. }
    

复制代码

tmtony

顶一个，这个真不错。谢谢分享
几年前我用Google的地图做过一个，可惜后来Google退了中国，一直无法使用了。我也来换换你这个试试，另有否百度的？

http://www.office-cn.net/thread-93113-1-1.html

t小宝

牛!扩展了Access的应用

xinbao

楼主威武！！

lms008008

楼主厉害

ganlinlao

这个值得拥用，赞

roych

百度也有。之前申请了key，一直没时间弄。光API就一百多页了。
只是地理位置还不够的，加上导航路线或者公交车换乘就腻害了。

fan0217

roych 发表于 2016-11-11 01:30
百度也有。之前申请了key，一直没时间弄。光API就一百多页了。
只是地理位置还不够的，加上导航路线或者公 ...

抛砖引玉

风中漫步

谢谢分享
新手，期待斑竹下次抛玉引砖

xiaowuo2

期待完整版呀/se