Страница 1 из 1
доступ к атрибутивной таблице через VBA
Добавлено: 28 ноя 2011, 14:51
Шаки
Здравствуйте,подскажите пожалуйста.
Есть шейп, у него есть атрибутивная таблица. Как мне к ней подступиться,через какой интерфейс? Грубо говоря надо в свою форму из таблицы брать название полей и записи выделенного объекта.
Re: доступ к атрибутивной таблице через VBA
Добавлено: 29 ноя 2011, 02:42
anvg
Вот пример доступа к shape из справки
Код: Выделить всё
ShapefileWorkspaceFactory Example
' This example opens a shapefile using a property set.
Dim pPropset As IPropertySet
Set pPropset = New PropertySet
Dim pFact As IWorkspaceFactory
Dim pWorkspace As IWorkspace
pPropset.SetProperty "DATABASE", "d:\\data\\shapedata"
Set pFact = New ShapefileWorkspaceFactory
Set pWorkspace = pFact.Open(pPropset, Me.hWnd)
Dim pFeatureWorkspace As IFeatureWorkspace
Set pFeatureWorkspace = pWorkspace
Dim pFeatureClass As IFeatureClass
Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("parcels")
далее посмотрите в справке IFeatureClass, IFeatureCursor, IFeature (если нужны только данные, то ITable, ICursor, IRow)
Re: доступ к атрибутивной таблице через VBA
Добавлено: 29 ноя 2011, 10:07
Шаки
спасибо