YouTube | Facebook | X(Twitter) | RSS

属性ドメインの更新

2016/9/1 (木)

theMacro()
 
Dim pFW As IWorkspaceFactory
'Set pFW = New AccessWorkspaceFactory
Set pFW = New SdeWorkspaceFactory
'Set pFW = New FileGDBWorkspaceFactory
 
 
Dim strPath As String
strPath = "C:\Documents and Settings\Administrator\Application Data\ESRI\ArcCatalog\"
'strPath = "D:\Workspace\New File Geodatabase.gdb"
 
Dim strDB As String
'strDB = "Connection to cs-sde.sde"
strDB = "ZEKE_EXPRESS.sde"
'strDB = "ZEKE.sde"
 
Dim pWorkspace As IWorkspaceEdit
Set pWorkspace = pFW.OpenFromFile(strPath & strDB, 0)
 
Dim lng As Long
lng = 2
 
remove_Code pWorkspace, "test", lng
 
 
End Sub
 
' from IICodedValueDomain::DeleteCode Example in VBA Help
Function remove_Code(pWorkspace As IWorkspace, sName As String, sVal As Variant)
    
   Dim pWSDomains As IWorkspaceDomains2
   Set pWSDomains = pWorkspace
  
   Dim pDomain As IDomain
   Set pDomain = pWSDomains.DomainByName(sName)
  
   If pDomain.Type <> esriDTCodedValue Then
     Exit Function
   End If
    
   Dim pCodedValueDomain As ICodedValueDomain
   Set pCodedValueDomain = pDomain
    
   pCodedValueDomain.DeleteCode sVal
   pCodedValueDomain.AddCode sVal + 20, "test"
   pWSDomains.AlterDomain pCodedValueDomain
    
End Function
  • この記事を書いた人

羽田 康祐

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

-プログラミング, ArcGIS
-,