【拋磚引玉】在Access中使用地圖

fan0217

這里使用的是騰訊地圖�？汕巴�http://map.qq.com/申請開發(fā)Key



關(guān)鍵代碼：

1. ''' <summary>
   
2.     ''' 根據(jù)經(jīng)緯度獲取地址
   
3.     ''' </summary>
   
4.     ''' <param name="latitude">緯度</param>
   
5.     ''' <param name="longitude">經(jīng)度</param>
   
6.     ''' <param name="tengXunMapKey">騰訊地圖開發(fā)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

復(fù)制代碼

測試：

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

復(fù)制代碼

輸出結(jié)果：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": "南部縣永紅鄉(xiāng)觀音場(大升路西)",
    
13.             "rough": "南部縣永紅鄉(xiāng)觀音場(大升路西)"
    
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": "永紅鄉(xiāng)",
    
47.                 "location": {
    
48.                     "lat": 31.450001,
    
49.                     "lng": 105.75
    
50.                 },
    
51.                 "_distance": 0,
    
52.                 "_dir_desc": "內(nèi)"
    
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. }
    

復(fù)制代碼

tmtony

頂一個，這個真不錯。謝謝分享
幾年前我用Google的地圖做過一個，可惜后來Google退了中國，一直無法使用了。我也來換換你這個試試，另有否百度的？

http://m.mzhfr.cn/thread-93113-1-1.html

t小寶

牛!擴展了Access的應(yīng)用

xinbao

樓主威武！！

lms008008

樓主厲害

ganlinlao

這個值得擁用，贊

roych

百度也有。之前申請了key，一直沒時間弄。光API就一百多頁了。
只是地理位置還不夠的，加上導(dǎo)航路線或者公交車換乘就膩害了。

fan0217

roych 發(fā)表于 2016-11-11 01:30
百度也有。之前申請了key，一直沒時間弄。光API就一百多頁了。
只是地理位置還不夠的，加上導(dǎo)航路線或者公 ...

拋磚引玉

風(fēng)中漫步

謝謝分享
新手，期待斑竹下次拋玉引磚

xiaowuo2

期待完整版呀/se