Google maps XML

[Ruegen]

I'm considering adding a feature to our front end that lets you put in two suburbs and then an XML feed from Google (or json) the distance between them in km/Miles after requesting the info from google

Therefore I would need a way to

send the two address requests to google then receive an xml feed, so some sort of interaction

handle the xml

can Access do this? Has anyone ever tried this before?

[orange]

http://www.access-programmers.co.uk/...d.php?t=225339Not XML specifically but look at this one

[Ruegen]

http://www.access-programmers.co.uk/...d.php?t=225339Not XML specifically but look at this one

There is someone who I believe has made an XML one, using createObject("MSXML2.XMLHTTP")

they uploaded their database and it works like I want it to so I will post the code once completed

Thanks orange!!

[Ruegen]

http://www.access-programmers.co.uk/...d.php?t=225339Not XML specifically but look at this one

Update: the code I have is working - I am getting distance in time and in the format I want. All within access. Will post code once finished and clean it up for everyone to use.

[Ruegen]

Of course this can be changed to get KM, time etc

'gets google value of time distance in seconds
Public Function googleTravelTime(AddressOrigin As String, AddressDestination As String) As Long






Dim objHttp As Object
Dim strURL As String, strDisType As String, strHTML As String, strOrigin As String, strDest As String


Dim lTopicstart As Long, lTopicend As Long
Dim strDist As String, strDura As String, lngDuraV As String




If IsMissing(AddressOrigin) Then
    strOrigin = ""
Else
    strOrigin = AddressOrigin
End If




If IsMissing(AddressDestination) Then
    strDest = ""
Else
    strDest = AddressDestination
End If


    On Error GoTo GoogleError:
    strDisType = "metric"


    'GMap webservice with XML output
    strURL = "http://maps.googleapis.com/maps/api/distancematrix/xml?origins="
    strURL = strURL & URLEncode(strOrigin) & "&destinations=" & URLEncode(strDest)
    strURL = strURL & "&units=" & strDisType & "&sensor=false"


    Set objHttp = CreateObject("MSXML2.XMLHTTP")
    
    objHttp.Open "GET", strURL, False
    objHttp.send
    strHTML = objHttp.responseText
    Set objHttp = Nothing


    Debug.Print strHTML
    'get seconds
    'Parse the xml to get the Duration (Time value)
    lTopicstart = InStr(strHTML, "<duration>")
    lTopicend = InStr(strHTML, "</duration>")
    strDuraV = Trim(Mid(strHTML, lTopicstart + 10, lTopicend - lltopicstart - 10))
    'Debug.Print Len(strDura) & "[" & strDura & "]"
    lTopicstart = InStr(strDuraV, "<value>")
    lTopicend = InStr(strDuraV, "</value>")
    strDuraV = Mid(strDuraV, lTopicstart + 7, lTopicend - lTopicstart - 7)
    
    
    googleTravelTime = CLng(strDuraV)
    
    'in seconds
    'Debug.Print googleTravelTime
    Exit Function


GoogleError:
MsgBox "error with google"
Exit Function


End Function