YouTube | Facebook | X(Twitter) | RSS

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)
  • この記事を書いた人

羽田 康祐

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

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