Le portail francophone de la géomatique

    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