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)

関連記事

  • この記事を書いた人

羽田 康祐

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

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