YouTube | Facebook | Twitter  Feed

ArcSDE の Workspace へアクセスする方法

2016/9/1 (木)

// データベース接続情報を設定する
_property.SetProperty("SERVER", "172.31.51.78");
_property.SetProperty("INSTANCE", "sde:postgresql:172.31.51.78");
//_property.SetProperty("DBCLIENT", "PostgreSQL");
_property.SetProperty("DATABASE", "geodb1");
//_property.SetProperty("AUTHENTICATION_MODE", "DBMS");
_property.SetProperty("USER", "sde");
_property.SetProperty("PASSWORD", "P@ssw0rd");
_property.SetProperty("VERSION", "sde.DEFAULT");
'バージョン10.0 以降
Dim pPropertySet As IPropertySet = New PropertySetClass()
pPropertySet.SetProperty("SERVER", "localhost") 'サーバ名
pPropertySet.SetProperty("SERVERINSTANCE", "localhost") 'SERVERのいずれかを使用
pPropertySet.SetProperty("DBCLIENT", "SQLServer")
pPropertySet.SetProperty("INSTANCE", "sde:sqlserver:localhost\sqlexpress")  'sde:sqlserver:<インスタンス名>
pPropertySet.SetProperty("DATABASE", "Geodatabase") 'データベース名
pPropertySet.SetProperty("VERSION", "dbo.DEFAULT") 'バージョン名
pPropertySet.SetProperty("AUTHENTICATION_MODE", "OSA")  'OS認証の場合
'pPropertySet.SetProperty("AUTHENTICATION_MODE", "DBMS") 'DBMS認証の場合
'pPropertySet.SetProperty("USER", "<UserName>")
'pPropertySet.SetProperty("PASSWORD", "<Password>")
'※バージョン9.2以降は使用ライセンスのを明記すること
Dim pPropertySet As IPropertySet
Set pPropertySet = New PropertySet
 
With pPropertySet
    .SetProperty "SERVER", "zeke"        'サーバ名
    .SetProperty "INSTANCE", "5151"         'ポート番号
    .SetProperty "DATABASE", "DemoData"             'データベース名
    .SetProperty "USER", "demo"             'ユーザ名
    .SetProperty "PASSWORD", "demo001"      'パスワード
    .SetProperty "VERSION", "dbo.DEFAULT"  'バージョン
 
    'ダイレクトコネクションによる接続(ArcSDEを起動しなくても接続できる)
     'ダイレクトコネクションによる接続
     .SetProperty "SERVER", "zeke"        'サーバ名(DCの場合は不要)
     .SetProperty "INSTANCE", "sde:sqlserver:zeke"             'データベース名
     .SetProperty "DATABASE", "DemoData"             'データベース名
     .SetProperty "USER", "demo"             'ユーザ名
     .SetProperty "PASSWORD", "demo001"      'パスワード
     .SetProperty "VERSION", "dbo.DEFAULT"  'バージョン
 
End With
 
Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New SdeWorkspaceFactory
 
Dim pWorkspace As IWorkspace
Set pWorkspace = pWorkspaceFactory.Open(pPropertySet, Application.hWnd)

関連記事

  • この記事を書いた人

羽田 康祐

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

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

© 2020 WINGFIELD since1981