PDA

View Full Version : I have a VB6 app using LINKDATA to get to a Access....



Anonymous
08-01-2002, 09:50 AM
I have a VB6 app using LINKDATA to get to a Access database. I am able to read the lat/long in and display the one type of pushpin(symbol) for each individual point. My question..... Is it possible to have a unique symbol ID (pushpin) for each point on the map (i.e. - one location use a red truck and the other blue )? Thank you again.....

Anonymous
08-01-2002, 09:50 AM
You could set the "Symbol" as you create the pushpins or use this code to change them if they are already on the map.

Dim objDataSet As MapPointCtl.DataSet

Dim objRecordset As MapPointCtl.Recordset

Dim cnt As Integer

cnt = 0

Set objDataSet = MappointControl1.ActiveMap.DataSets(1) '("My Pushpins")



Set objRecordset = objDataSet.QueryAllRecords



objRecordset.MoveFirst

Do Until objRecordset.EOF

cnt = cnt + 1

If cnt = 255 Then cnt = 0

objRecordset.Pushpin.Symbol = cnt


'or use a select statment

Select Case objRecordset.Pushpin.Name

Case "Test1"

objRecordset.Pushpin.Symbol = 57

Case "Test2"

objRecordset.Pushpin.Symbol = 41

End Select



objRecordset.MoveNext



Loop


John

john@support-pc.com

Anonymous
08-06-2002, 04:41 PM
Would you mind sharing your code for locating a list of long/lat coordinates on MapPoint? I am working on an application for a snack delivery business. I am David Kachuck, dk0146@netscape.net.

Eric Frost
08-06-2002, 11:06 PM
The code is published in our articles section, see for instance http://www.mp2kmag.com/articles.asp?ArticleID=13, this is probably the most popular solution.