Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
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 05 February 2010 11:06

Thierry V
Juste Inscrit !
Date d'inscription: 5 Feb 2010
Messages: 2

ARcGIS 9.3.1: run-time error sur methode open IName arc-objet

Bonjour,

Je débute avec l'utilisations des arcs objets.
Je cherche a générer une nouvelle table issue d'une requette en passant par les Name objets.
Pour cela j'ai généner code suivant qui malheureusement plante à l'excution sur pName.Open en m'affichant le message suivant: Run-time error '-214651269 (80004005)': Automation error, unspecified error
Quelqu'un aurait-il une idée?


   

Code:

    Dim pDataset As IDataset
    Set pDataset = pStTable
    
    Dim pFeatWorkspace As IFeatureWorkspace
    Set pFeatWorkspace = pDataset.Workspace
    
    Dim pTableName As ITableName
    Set pTableName = pDataset.FullName

 
        'Create Table
        Dim pQDef As IQueryDef
        Dim pWorkspaceName As IWorkspaceName
        Dim pSQLName As IQueryName2
        Dim pTable As ITable
        Dim pDSName As IDatasetName
        Dim pName As IName
        
        'Set Query
        Set pQDef = pFeatWorkspace.CreateQueryDef
        pQDef.Tables = "*"
        pQDef.SubFields = "*"
        pQDef.WhereClause = "YearCampaign = 2010" 
        
        'Create table name
        Set pSQLName = New TableQueryName
        pSQLName.QueryDef = pQDef
        pSQLName.CopyLocally = False
        
        'Open table
        Set pDataset = pFeatWorkspace
        Set pWorkspaceName = pDataset.FullName
        Set pDSName = pSQLName
        Set pDSName.WorkspaceName = pWorkspaceName
        pDSName.Name = "Temp"
        Set pName = pSQLName
        Set pTable = pName.Open

Merci.

Hors ligne

 

Pied de page des forums

Powered by FluxBB