YouTube | Facebook | Twitter  Feed

属性ドメインの更新

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

関連記事

  • この記事を書いた人

羽田 康祐

Esri認定インストラクター、GIS上級技術者、測量士補、潜水士。GISy / GISc とその関連分野である地理学・地図学について日々の出来事で学んだ記憶を記録するためにブログを書いています。行動原理は伊達と酔狂。好きな地形は圏谷。好きな地図投影法はパースクインカンシャル図法。呉市生まれ広島市出身。GIS を使った自己紹介はこちら

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

© 2020 WINGFIELD since1981