ae_conn_base.txt

来自「基于ae的代码,连接sde数据库,可以直接使用,注意设置您的用户名等」· 文本 代码 · 共 50 行

'--------------------------------
        '连接数据库，打开ArcSde工作空间
        '--------------------------------

        Public Function OpenSDEWorkspace(ByVal sServer As String, _
            ByVal sInstance As String, _
            ByVal sDB As String, _
            ByVal sUser As String, _
            ByVal sPasswd As String, _
            ByVal sVersion As String) As IWorkspace
            '--------------------------------------------
            '
            '函数功能 打开SDERaster工作空间
            '输入参数 数据库连接串
            '返回值类型 Sde工作空间对象 
            '
            '--------------------------------------------

            '定义一个工作空间工厂对象
            Dim pWKSF As IWorkspaceFactory
            pWKSF = New SdeWorkspaceFactory

            '定义一个连接属性对象
            Dim pConn As IPropertySet
            pConn = New PropertySet
            Try
                '为连接属性赋值
                With pConn
                    .SetProperty("Server", sServer)
                    .SetProperty("Instance", sInstance)
                    .SetProperty("Database", sDB)
                    .SetProperty("User", sUser)
                    .SetProperty("Password", sPasswd)
                    .SetProperty("Version", sVersion)
                End With

                '打开工作空间，并返回工作空间对象
                OpenSDEWorkspace = pWKSF.Open(pConn, 0)


                pWKSF = Nothing
                pConn = Nothing
            Catch ex As Exception

                Return "Error" + ex.ToString

            End Try


        End Function