Google Maps API

Anybody have any experience with plotting map points with Google Maps
API from an Access DB?

I have a database with about 90 locations that I would like positioned
in the Google Maps. I found a cool tool to get the long and latitudes
to complete the database, now just need to figure out how to get all
that data to appear on the maps.

All guidance appreicated.

Re: Google Maps API

"PinkBishop" wrote in message
news:7suja2pgnme9t0bfpp4i7mh4l7tir48vgq@4ax.com...
>
>
> Anybody have any experience with plotting map points with Google Maps
> API from an Access DB?
>
> I have a database with about 90 locations that I would like positioned
> in the Google Maps. I found a cool tool to get the long and latitudes
> to complete the database, now just need to figure out how to get all
> that data to appear on the maps.
>
> All guidance appreicated.

Will this help? Watch for word-wrap.

I developed this 8 months ago but haven't looked at it since.
It originally had three different color "pins" denoting types of locations.

GoogleMap.vbs generates an XML file from your database table.
Change the name of the database (cMDB) and table (cSQL).

GoogleMap.htm displays a Google Map with your data.
Change "key" value for "http://maps.google.com".


[ GoogleMap.vbs ]

Option Explicit
'*
'* Declare Constants
'*
Const cVBS = "GoogleMap.vbs"
Const cXML = "GoogleMap.xml"
Const cMDB = "GoogleMap.mdb"
Const cDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const cSQL = "SELECT * FROM [GoogleMapTable] ORDER BY AutoNumber"
'*
'* Declare Variables
'*
Dim intOTF
intOTF = 0
Dim strOTF
Dim strSFN
strSFN = WScript.ScriptFullName
strSFN = Left(strSFN,InStrRev(strSFN,"\"))
'*
'* Declare Objects
'*
Dim objMDB
Set objMDB = CreateObject("ADODB.Connection")
objMDB.Open cDSN & cMDB
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objOTF
Set objOTF = objFSO.OpenTextFile(strSFN & cXML,2,True)
objOTF.WriteLine("")
Dim objRST
'*
'* Progress Started
'*
WScript.Echo(cVBS & ": Started at " & Now)
'*
'* Read table and write XML file for Google Maps.
'*
Set objRST = objMDB.Execute(cSQL)
Do While Not objRST.EOF
strOTF = " "
strOTF = Replace(strOTF,"'",Chr(34))
objOTF.WriteLine(strOTF)
intOTF = intOTF + 1
objRST.MoveNext
Loop
objRST.Close
Set objRST = Nothing
'*
'* Progress Finished
'*
objOTF.WriteLine("")
Set objOTF = Nothing
Set objFSO = Nothing
Set objMDB = Nothing
'*
WScript.Echo(cVBS & ": Finished at " & Now & " (" & intOTF & ")")

[ GoogleMap.htm ]

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

Re: Google Maps API

Thank You... will give it a try.


On Tue, 4 Jul 2006 02:25:18 -0500, "McKirahan"
wrote:

>"PinkBishop" wrote in message
>news:7suja2pgnme9t0bfpp4i7mh4l7tir48vgq@4ax.com...
>>
>>
>> Anybody have any experience with plotting map points with Google Maps
>> API from an Access DB?
>>
>> I have a database with about 90 locations that I would like positioned
>> in the Google Maps. I found a cool tool to get the long and latitudes
>> to complete the database, now just need to figure out how to get all
>> that data to appear on the maps.
>>
>> All guidance appreicated.
>
>Will this help? Watch for word-wrap.
>
>I developed this 8 months ago but haven't looked at it since.
>It originally had three different color "pins" denoting types of locations.
>
>GoogleMap.vbs generates an XML file from your database table.
> Change the name of the database (cMDB) and table (cSQL).
>
>GoogleMap.htm displays a Google Map with your data.
> Change "key" value for "http://maps.google.com".
>
>
>[ GoogleMap.vbs ]
>
> Option Explicit
> '*
> '* Declare Constants
> '*
> Const cVBS = "GoogleMap.vbs"
> Const cXML = "GoogleMap.xml"
> Const cMDB = "GoogleMap.mdb"
> Const cDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
> Const cSQL = "SELECT * FROM [GoogleMapTable] ORDER BY AutoNumber"
> '*
> '* Declare Variables
> '*
> Dim intOTF
> intOTF = 0
> Dim strOTF
> Dim strSFN
> strSFN = WScript.ScriptFullName
> strSFN = Left(strSFN,InStrRev(strSFN,"\"))
> '*
> '* Declare Objects
> '*
> Dim objMDB
> Set objMDB = CreateObject("ADODB.Connection")
> objMDB.Open cDSN & cMDB
> Dim objFSO
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Dim objOTF
> Set objOTF = objFSO.OpenTextFile(strSFN & cXML,2,True)
> objOTF.WriteLine("")
> Dim objRST
> '*
> '* Progress Started
> '*
> WScript.Echo(cVBS & ": Started at " & Now)
> '*
> '* Read table and write XML file for Google Maps.
> '*
> Set objRST = objMDB.Execute(cSQL)
> Do While Not objRST.EOF
> strOTF = " "
> strOTF = Replace(strOTF,"'",Chr(34))
> objOTF.WriteLine(strOTF)
> intOTF = intOTF + 1
> objRST.MoveNext
> Loop
> objRST.Close
> Set objRST = Nothing
> '*
> '* Progress Finished
> '*
> objOTF.WriteLine("")
> Set objOTF = Nothing
> Set objFSO = Nothing
> Set objMDB = Nothing
> '*
> WScript.Echo(cVBS & ": Finished at " & Now & " (" & intOTF & ")")
>
>[ GoogleMap.htm ]
>
> > "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
>
>
>
>
>
>
>

Re: Google Maps API

Can you provide a link to the cool tool you found to determine latitude and longitude?

Thanks

Re: Google Maps API

wrote in message news:eOMcFaIvGHA.4756@TK2MSFTNGP04.phx.gbl...
> Can you provide a link to the cool tool you found to determine latitude
and longitude?

I don't remember what I used.

Google is your fried;
latitude longitude lookup
identified:

Look up the exact location of millions of places.
http://www.lat-long.com/

U.S. Gazetteer
http://www.census.gov/cgi-bin/gazetteer

Latitude And Longitude Lookup
http://www.calculatorcat.com/latitude_longitude.phtml

Convert Degrees Minutes Seconds to Decimal Degrees
http://www.uky.edu/KGS/gis/converter.htm