banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

Annonce

Rencontres QGIS 2025

L'appel à participation est ouvert jusqu'au 19 janvier 2025!

#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

 

Pied de page des forums

Powered by FluxBB