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

関連記事

  • この記事を書いた人

羽田 康祐

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

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