misterb83
Messages postés3Date d'inscriptionmercredi 14 août 2002StatutMembreDernière intervention18 février 2003
-
18 févr. 2003 à 16:24
JPM95
Messages postés1Date d'inscriptionjeudi 23 septembre 2004StatutMembreDernière intervention 6 octobre 2004
-
6 oct. 2004 à 11:35
Bonjour à tous. Je débute en vb et aussi dans mappoint, un logiciel de représentation cartographique de données.
J'ai l'erreur suivante dans le code récupérer dans l'aide fournie avec mappoint.
Erreur d'éxécution '-2147181454(80049C72)':
L'élément recherché n'existe pas. Utilisez un nom ou un numérod'index valide.
Voici le code :
Private Sub Form_Load()
GetAllRecordsOnMap
End Sub
Sub GetAllRecordsOnMap()
Dim objApp As New MapPoint.Application
Dim objDataSet As MapPoint.DataSet
Dim objRecordset As MapPoint.Recordset
Dim objField As MapPoint.Field
objApp.Visible = True
objApp.UserControl = True
Set objDataSet = objApp.OpenMap(objApp.Path & "\Samples\Clients.ptm").DataSets("Clients") L'erreur se trouve ici, je pense que c'est le datasets qui merde mais je ne vois pas comment résoudre le pb
'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
Le programme charge une carte clients .ptm et doit placer dans une msgbox les points placés sur cette carte.
Si quelqu'un a une idée???? Je suis preneur.
Gallissotr
Messages postés2Date d'inscriptionlundi 24 mars 2003StatutMembreDernière intervention25 mars 2003 24 mars 2003 à 17:49
Bonjour !
Je me lance dans le cadre d'un stage dans un projet où je dois manipuler du vb6 et le logiciel MapPoint. Je ne peux pas t'aider pour ton message mais j aurais voulu savoir si tu avez des adresses utiles, des références de livres ou du code source exemple sur MapPoint et VB.
Je te remercie d'avance.