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

// データベース接続情報を設定する
_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)