Hi,

I am trying to programmatically add a number of pushpins to a dataset but I am failing.

I am using vb6 and mappoint 2002 and the mappoint active x control.

I get an error which says 'The requested set does not exist'

here is the code i use

'Create a new pushpin set.
mappoint.ActiveMap.DataSets.AddPushpinSet "Suppliers"

'Get the DataSet object from the pushpin set
Set objDs = mappoint.ActiveMap.DataSets("Suppliers")
objDs.Select
'loop through the SQL data...
Do While Not rs.EOF
'Create a location object from the latitude and longitude on the database.
Set objLocTst = mappoint.ActiveMap.GetLocation(rs!Latitude, rs!Longitude)

'Add a pushpin

Set objPin = mappoint.ActiveMap.AddPushpin(objLocTst, rs!Name)
'Make sure the balloon is closed.
objPin.BalloonState = geoDisplayNone
'Put additional data in the note field of the pin.
strNote = rs!AccountNumber & vbCrLf & _
IIf(IsNull(rs!TownCity), "", rs!County & vbCrLf) & _
rs!City & ", " & rs!Country & " " & rs!PostCode & vbCrLf
objPin.Note = strNote
'Cut the pin out of "My Pushpins"...
objPin.Cut
'... and paste into "Locations from DB"
objDs.Paste
'Get the next database record.
rs.MoveNext
Loop

any help is welcome.

Well, you don't say which line of code produces the error. However the lines:

'Cut the pin out of "My Pushpins"...
objPin.Cut
'... and paste into "Locations from DB"
objDs.Paste

can be done more efficiently using:

objPin.MoveTo objDs

And that might help.

MichAn,

Thanks for responding. I found out what the problem was.
There was nothing wrong with the code that I listed but an earlier declaration where I was opening another map and adding the pushpins to another. I was not setting the reference to the correct map that was opened.

However your suggestion about moving the pushpin is a good one and I will try it.