I'm a beginner in vb and mappoint. I try to learn how to use mappoint in vb thanks to the help of mappoint. But i arrive to import datas from excel into mappoint but i can't know how many pushpins there are and how can i connect them.
Is there some body who can try to help me please?????

I have written this prog :

Private Sub Form_Load()

load_mappoint

End Sub

Private Sub load_mappoint()

Dim MPApp As MapPoint.Application
Set MPApp = New MapPoint.Application
MPApp.Visible = True
MPApp.UserControl = True

OpenDataSet

End Sub

Private Sub OpenDataSet()

Dim MPApp As MapPoint.Application
Set MPApp = New MapPoint.Application
Dim objDataSets As MapPoint.DataSets
Dim objDataSet As MapPoint.DataSet
Dim zDataSource As String

zDataSource = "C:\points.xls!Feuil1!A1:B4"
Set objDataSets = MPApp.ActiveMap.DataSets
Set objDataSet = objDataSets.ImportData(zDataSource)
objDataSet.Symbol = 1

addlinetomap

End Sub

Sub addlinetomap()

Dim MPApp As MapPoint.Application
Set MPApp = New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objloc1 As MapPoint.Location
Dim objloc2 As MapPoint.Location

Set objMap = MPApp.ActiveMap
MPApp.Visible = True
MPApp.UserControl = True

Set objloc1 = objMap.FindResults("Paris").Item(1)
Set objloc2 = objMap.FindResults("Marseille").Item(1)
Set objMap.Location = objloc1

objMap.Shapes.AddLine objloc1, objloc2

GetAllRecordsOnMap

End Sub


Sub GetAllRecordsOnMap()

Dim MPApp As New MapPoint.Application
Dim objDataSet As MapPoint.DataSet
Dim objRecordset As MapPoint.Recordset
Dim objField As MapPoint.Field
MPApp.Visible = True
MPApp.UserControl = True
'Set objDataSet = MPApp.OpenMap(MPApp.Path & "\Samples\toto.ptm").DataSets("toto")
Set objDataSet = MPApp.OpenMap("C:\Europe, Monde.ptm").DataSets("Europe, Monde") ' i have an error here but i don't know why, this code comes from the help.

'Extrait tous les enregistrements
Set objRecordset = objDataSet.QueryAllRecords

'Obtient les valeurs
Dim vals As String
objRecordset.MoveFirst
Do Until objRecordset.EOF
For Each objField In objRecordset.Fields
vals = vals & CStr(objField.Value) & vbTab
Next objField
vals = vals & vbCrLf
objRecordset.MoveNext
Loop
MsgBox vals
End Sub

after ("C:\Europe you have a comma

Code:

Set objDataSet = MPApp.OpenMap("C:\Europe, Monde.ptm").

i have an error here but i don't know why, this code comes from the help.

In fact i have tried this :

Set objDataSet = MPApp.OpenMap("C:\toto.ptm").DataSets("toto")

It's like the help file.(the example of the help file doesn't function)

But i think the problem comes from Datasets("toto").

Vb says " the required element does not exist. Use a name or a valid number of index. ".

Can you help me again, please????

Thank you.

Bonjour,
Je n'arrive pas à lancer votre aplication.
C'est un exe ou un add-in.?

Ca bloque ici

Code:

Private Sub load_mappoint()

Dim MPApp As MapPoint.Application

(J'ai VB6 et mappoint 2002 Europe)

C'est rare de voir une personne parlant le français sur ce forum.

En fait tu crées un nouveau projet, dans ta forme tu places le composant de mappoint, tu vas ensuite dans projet puis références, tu ajoutes les éléments de mappoint.

Tu fais un copier/coller de mon programme et ca doit marcher. Le seul problème c'est ce que j'ai déjà indiqué sur ce forum c'est le datasets("toto") qui ne fonctionne pas et pourtant j'ai recopié l'aide de mappoint. Apparement pas mal de codes de cette aide sont faux et vu que je débute en vb j'ai du mal à tout saisir et à tout corriger.

Si tu peux corriger mon erreur cela me serais utile.

Autre question : qu'elle est la différence entre une déclaration de ce type

Dim MPApp As New MapPoint.Application

et celle ci : Dim objMap As MapPointCtl.Map

En fait je ne saisi pas encore la différence entre MapPoint.quelquechose et MapPointCtl.quelquechose.
Peux tu m'éclaicir???
Merci d'avance pour ton aide.

Did you get it working yet?

If not:

In your saved map that you are opening "C:\toto.ptm" You do have a dataset named "toto" right?

Salut.
Effectivement, j'ai le meme problème que toi.
Quand je colle un exemple dans le prog, je dois rajouter Ctl partout.
Par contre, j'ai récupérer un source ici.
http://www.elspeet.info/mpgps/
Il fonctionne trés bien et les fonctions sont définies sans Ctl.
Je vais me pencher sur le sujet. Moi aussi je commence.
Je viens de réessayer ton prog et il me dit:Erreur de compilation
Type défini par l'utilisateur non défini..!!!!
Ca tourne en rond.
Dans projet -> Réf, j'ai bien mappoint Ctrl 9.

Code:

Private Sub load_mappoint()

Dim MPApp As MapPoint.Application

Je trouve également que l'aide n'est pas terrible. A part microbile ou John Meyer, on a pas grand chose.
J'ai cherché un bouquin hier mais il existe rien sur le développement Mappoint.
C'est quoi ton apli.?
Moi je cherche a ouvrir un fichier et a placer mes coordonnées dans un tableau et ensuite d'afficher les points séquentiellement.
On va essayer.
A+
Jean

For John Meyer:

In fact i have toto.ptm which is a map and toto.xls which is a file containing latitude/longitude. I don't undesrtand very well what you want to mean. I send you example.jpg and if you can explain to me my error, it's could be very fine.



Thanks for your help John

For guest (Jean) :

C'est étrange ce que tu me dis car chez moi je n'ai pas l'erreur que tu me signales et pourtant j'utilise les mêmes logiciels que toi. En fait à plus ou moyen terme, je désire réaliser la même application que toi mais dans un premier (vu que je suis débutant en vb et en mappoint) je voulais importer des données à partir d'un fichier excel, puis les afficher sur une carte et ensuite relier le points sur la carte. Si tu veux on peut garder contact car cela fait du bien de voir une personne qui galère comme moi, comme quoi je suis pas le seul à estimer que l'aide de microsoft n'est pas terrible. De plus sur le newsgroup de microsoft dédié à la programmation en vb de mappoint, la seule réponse que j'ai eu pour mon problème c'est d'acheter pushpins tool, une application développée sur le site de mp2mag et vendue 75$. Vu que de nombreuses personnes développent des projets et produits je me dis que j'en suis capable aussi.
Pour résoudre ton pb d'erreur dans projet puis références il y a en tout et pour tout 3 cases à cocher qui concernent mappoint, cherches bien et tu verras, ils se trouvent à la lettre "M".
Peux tu me dire la différence exacte entre une définition du type
Dim MPApp as MapPoint.Application et Dim objMap as MapPointCtl.Map????
Je ne saisi pas bien la différence entre Mappoint.quelquechose et MappointCtl.quelquechose.

Merci pour ton aide.

Voila, j'arrive a lancer ton prog. Il fallait juste cocher une seule appli ds les références ..! Le probléme des Ctl? Je suis comme toi. Peut-être un probleme de version. mon mail: rioult AT inrets.fr
Ds ton projet tu lances l'application mappoint, pourquoi ne pas faire une fenetre mappoint.

Je viens de t'envoyer un email. Regardes ta boite aux lettres. Merci.