YouTube | Facebook | X(Twitter) | RSS

既存のクエリ レイヤーから情報を取得

2016/9/1 (木)

VBA
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub GetQueryLayerInfo()
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
          
    Dim pFL As IFeatureLayer
    Set pFL = pMxDoc.FocusMap.Layer(0)
      
    Dim pDataset As IDataset
    Set pDataset = pFL
      
    Dim pQueryTableName As IQueryTableName
    Set pQueryTableName = pDataset.FullName
      
    Dim pQueryDescription As IQueryDescription
    Set pQueryDescription = pQueryTableName.QueryDescription
      
    Debug.Print pQueryTableName.Query   'クエリの変更
      
    Dim pDatasetName As IDatasetName
    Set pDatasetName = pQueryTableName
      
    Dim pWorkspaceName As IWorkspaceName
    Set pWorkspaceName = pDatasetName.WorkspaceName
      
    Dim pPropertySet As IPropertySet
    Set pPropertySet = pWorkspaceName.ConnectionProperties
      
    Dim vName As Variant
    Dim vValue As Variant
    pPropertySet.GetAllProperties vName, vValue
      
    Dim i As Integer
      
    For i = 0 To pPropertySet.Count - 1
        Debug.Print vName(i), vValue(i)
    Next i
  
    pMxDoc.ActiveView.Refresh
    pMxDoc.UpdateContents
      
End Sub
  • この記事を書いた人

羽田 康祐

伊達と酔狂のGISエンジニア。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、PADIダイブマスター、四アマ。WordPress は 2.1 からのユーザーで歴だけは長い。 代表著書『"地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、元青山学院大学非常勤講師を兼務。日本地図学会第31期常任委員。発言は個人の見解です。

-ArcGIS
-,

S