Annonce
#1 Thu 04 April 2002 20:01
- Yannick BRUNEAU
- Invité
Questions sur Mapx...
Bonjour
Avec Mapx et sous VB6, J'ai cree une nouvelle layer a l'aide d'un
layerinfoobject, mais lorsque je veux lui affecter un dataset issu d'un
resultset j'obtiens le message d'erreur suivant :
Layer specified is not matchable
La layer creee de cette maniere n'est pas identique a d'autres layers?
##########################################################
LayerInfoObject.Type = miLayerInfoTypeNewTable
LayerInfoObject.AddParameter FileSpec , strCheminExport + dep_test.tab
LayerInfoObject.AddParameter Name , dep_test
LayerInfoObject.AddParameter Fields , Dep_Data.Fields
LayerInfoObject.AddParameter Features , curFeatures
frmMain.Map1.Layers.add LayerInfoObject
frmMain.Map1.Layers( dep_test ).Visible = True
Dim lay As Layer
Set lay = frmMain.Map1.Layers( dep_test )
Set Dep_Data_Reg = frmMain.Map1.Datasets.add(miDataSetADO, rs, dstest ,
CODE_DEPART , , lay)
###########################################################
Merci d'avance
Yannick Bruneau
#2 Fri 05 April 2002 20:01
- Yannick BRUNEAU
- Invité
Re: Questions sur Mapx...
Bonjour,
Je cherche a automatiser une chaine de traitement (affichage de couches,
zoom, creation d'analyse thematique, affichage de label,...) et je
souhaiterais creer un fichier .WOR a partir de la carte obtenu afin que
l'utilisateur puisse modifier la carte obtenu (repositionner les etiquettes
par exemple). Or je ne trouve aucune indication concernant cette possibilite
dans la documentation de Mapx.
Y a t'il une solution en dehors de creer un fichier .wor manuellement?
Merci par avance
Yannick Bruneau
#3 Thu 04 April 2002 20:01
- Yannick BRUNEAU
- Invité
Re: Questions sur Mapx...
Bonjour,
Je cherche a creer une nouvelle layer en extrayant les donnees d'une layer
existante et de 2 dataset (voir le code a la fin)
Lors que je mets ce code :
LayerInfoObject.AddParameter Fields , Dep_Data_Reg.Fields
j'obtiens le message d'erreur suivant :
Erreur d'execution '-2147417848 (80010108)':
Erreur Automation
L'objet invoque s'est deconnecte de ses clients.
L'erreur se produit lorsque le programme execute l'instruction suivante :
frmMain.Map1.Layers.add LayerInfoObject
Par contre en mettant le code suivant :
LayerInfoObject.AddParameter Fields , Dep_Data.Fields
Pas de message d'erreur mais ce la ne correspond pas aux donnees que je veux
En resume, je cherche a extraire les objets geographiques (ici les
departements) ainsi que les donnees attachees correspondant a ces objets (le
dataset Dep_Data_Reg ) et a creer une nouvelle layer avec cela.
#################################################
Extrait du code :
' creation du resultset avec les donnees a afficher
sSql =
sSql = sSql + select AEE_CODEPAR as
CODE_DEPART,AEE_NUNBEQUISANG,AEE_NUNBEQUITRAIT,AEE_NUNBEQUIANEMU from
AER_EFFECTIF_EQUIDE
rs.CursorLocation = adUseClient
rs.Open sSql, maconn
Set Dep_Layer = frmMain.Map1.Layers.Item( Fde00 )
Set Dep_Data_Reg = frmMain.Map1.Datasets.add(miDataSetADO, rs, dstest ,
CODE_DEPART , , Dep_Layer)
strWhere = CODE_DEPART = & Chr(34) & 21 & Chr(34) & OR CODE_DEPART =
& Chr(34) & 58 & Chr(34)
Set curFeatures = Dep_Layer.Search(strWhere)
' creation d'une nouvelle layer
LayerInfoObject.Type = miLayerInfoTypeNewTable
LayerInfoObject.AddParameter FileSpec , strCheminExport + dep_test.tab
LayerInfoObject.AddParameter Name , dep_test
LayerInfoObject.AddParameter Fields , Dep_Data_Reg.Fields
LayerInfoObject.AddParameter Features , curFeatures
frmMain.Map1.Layers.add LayerInfoObject
frmMain.Map1.Layers( dep_test ).Visible = True
##########################################################
Merci par avance
Yannick Bruneau
