创建一个SDEWorkSpace

根据用户输入的口令、密码等SDE服务连接信息，创建出一个SDEWorkSpace对象。

Sub CreateSDEWorkSpace()

   '定义一个WorkSpaceFactory类工厂

   Dim pSdeWorkspaceFactory As IWorkspaceFactory

   '定义一个WorkSpace对象

   Dim pSdeWorkspace As IWorkspace

   '定义一个PropertySet对象,用来设置SDE连接信息.

   Dim pConnectionProperties As IPropertySet

   '创建一个新的PropertySet对象

   Set pConnectionProperties = New PropertySet

   '设置SDE连接信息

   With pConnectionProperties

          '设置服务器名

       .SetProperty "SERVER", "afei"

              '设置ArcSDE实例名，也可以是端口号

       .SetProperty "INSTANCE", "5151/tcp"

              '设置数据库名

       .SetProperty "DATABASE", "sde"

       '设置SDE用户

       .SetProperty "USER", "sde"

              '设置SDE用户口令

       .SetProperty "PASSWORD", "sde"

              '设置版本参数

       .SetProperty "VERSION", "SDE.DEFAULT"

   End With

   '定义一个SDE类型的WorkSpace类工厂

   Set pSdeWorkspaceFactory = New SdeWorkspaceFactory

   '通过类工厂的Create方法返回一个Sde类型的WorkSpace对象.

   Set pSdeWorkspace = pSdeWorkspaceFactory.Open(pConnectionProperties, 0)

   If Not pSdeWorkspace Is Nothing Then

       MsgBox "连接成功"

   Else

       MsgBox "连接错误"

   End If

End Sub