MAPPOINT Q & A

Top | Post New Question | Read All | MP2K Asks Microsoft

810 Anthony - July 30, 2002

Is it possible in MapPoint to import a set of AutoRoute push pins and then to export (to Excel) the pushpin details within a defined radius of a postcode/zipcode?

Answer:
July 30, 2002
Anthony,

I'm assuming you can import the pushpins to start with and later export some data to excel. So here is how I would enumerate the pushpins within a given radius (100 for example) from a zipcode. I'm using the ActiveX Control named MappointControl1 in VB6

Dim objmap As MapPointCtl.Map
Dim objDataSet As MapPoint.DataSet
Dim objRecordset As MapPoint.Recordset
Dim objLoc As MapPointCtl.Location
Set objmap = MappointControl1.ActiveMap

Set objLoc = objmap.FindAddress("", "", "", THEZIPCODEGOESHERE, geoCountryUnitedStates)

Set objRecordset = objDataSet.QueryCircle objLoc, 100)
objRecordset.MoveFirst
  While Not objRecordset.EOF msgbox objRecordset.Pushpin.Note & vbCrLf

objRecordset.Pushpin.Name

objRecordset.MoveNext

Hope this gives you something to start with.

John
john@support-pc.com

Post New Answer / Follow-up

	MP2Kmag Internet