#1 Fri 12 May 2006 12:59
- Nalou
- Juste Inscrit !
- Date d'inscription: 9 May 2006
- Messages: 4
Message d'erreur ArcMap
Bonjour !
j'essaie d'exporter des données dans de nouvelles couches et j'ai les messages d'erreur suivants (y en a pleins .... ):
-Erreur à l'export des données :
La création du curseur de recherche à échoué
-Avertissement : quelques enregistrements ne peuvent pas être exportés correctement
et enfin :
-un abonnement ne peut pas être enregistré tant que sa classe d'évènement n'existe pas
Voici le code concerné, sensé bien marché, peut etre n'ai je pas les références qu'il faut ou quelques choses comme ça .....
Merci de m'aider si jamais vous avez une idée ...
Public Sub ExportGeoToShape()
On Error GoTo EH
'Get geometry definition from input featureclass.
Dim lGeomIndex As Long
Dim sShpName As String
Dim pFields As IFields
Dim pField As IField
Dim pGeometryDef As IGeometryDef
Dim pDoc As IMxDocument
Dim pMap As IMap
Dim pFeatLayer As IFeatureLayer
Dim pFeatureClass As IFeatureClass
Dim k As Integer
For k = 0 To 7
Set pDoc = ThisDocument
Set pMap = pDoc.FocusMap
Set pFeatLayer = pMap.Layer(k)
Set pFeatureClass = pFeatLayer.FeatureClass
Dim pQueryFilter As IQueryFilter
Set pQueryFilter = New QueryFilter
sShpName = pFeatureClass.ShapeFieldName
Set pFields = pFeatureClass.Fields
lGeomIndex = pFields.FindField(sShpName)
Set pField = pFields.Field(lGeomIndex)
Set pGeometryDef = pField.GeometryDef
'QI from the passed in featureclass to get InDatasetName.
Dim pDataSet As IDataset
Set pDataSet = pFeatureClass
Dim pInDatasetName As IDatasetName
Set pInDatasetName = pDataSet.FullName
'Set up outworkspacename for new shape file.
Dim pWorkspaceName As IWorkspaceName
Set pWorkspaceName = New WorkspaceName
pWorkspaceName.WorkspaceFactoryProgID = "esricore.shapefileworkspacefactory.1"
pWorkspaceName.PathName = "S:\Geocodage\DVD" 'path to where I want the shapefile.
Dim pFeatureClassName As IFeatureClassName
Set pFeatureClassName = New FeatureClassName
Dim pOutDatasetName As IDatasetName
Set pOutDatasetName = pFeatureClassName
Set pOutDatasetName.WorkspaceName = pWorkspaceName
Dim pExporter As IExportOperation
Set pExporter = New ExportOperation
Dim i As Integer, sDept As String
For i = 1 To 101
If i = 100 Then
sDept = "2A"
ElseIf i = 101 Then
sDept = "2B"
Else
sDept = Right("0" & CStr(i), 2)
End If
pQueryFilter.WhereClause = "COD_COMD like '" & sDept & "%'"
pOutDatasetName.Name = "TRONCON_ROUTE_" & sDept 'Output shapefile name.
pExporter.ExportFeatureClass pInDatasetName, pQueryFilter, Nothing, pGeometryDef, pOutDatasetName, 0
Next
Next
Exit Sub
EH:
MsgBox Err.Number & vbCr & vbCr & _
"Details : " & Err.Description, vbExclamation + vbOKOnly, "Error"
End Sub
Hors ligne
#2 Tue 16 May 2006 16:54
- Tnarbiv
- Participant assidu
- Lieu: Véretz
- Date d'inscription: 5 Sep 2005
- Messages: 392
Re: Message d'erreur ArcMap
salut,
pourrais tu mettre des commentaires dans ton code pour qu'on puisse comprendre ta logique afin que l'on réponde à ta question
parce que pour moi tout n'est pas très clair
merci
Ayez le réflexe "Développement Durable": N'imprimez ce message que si nécessaire.
Hors ligne