how to get source sde database type of layer

how to get source sde database type of layer

The sample below shows how to get source sde database type of layer.

It uses IDataLayer2 and IDatabaseConnectionInfo2 interface.

•  IDataLayer2  : Provides access to additional members that control the data source properties of a layer.
•  IDatabaseConnectionInfo2 : Provides access to members that provide information about the Workspace's  connected database.

 

 

Private   Function getDBType() Function getDBType(pLayer As ILayer) As String
    Dim pDataLayer As IDataLayer2
    Set pDataLayer = pLayer
    
    Dim pDatasetName As IDatasetName
    Set pDatasetName = pDataLayer.DataSourceName
    
    Dim pWorkspaceName As IWorkspaceName
    Set pWorkspaceName = pDatasetName.WorkspaceName
    
    Dim pName As IName
    Set pName = pWorkspaceName
    
    Dim pWorkSpace As IWorkspace
    Set pWorkSpace = pName.Open
    
    Dim pDBConnInfo As IDatabaseConnectionInfo2
    Set pDBConnInfo = pWorkSpace
   
    Select Case pDBConnInfo.ConnectionDBMS
        Case esriDBMS_Oracle
             getDBType = "ORACLE"
        Case esriDBMS_SQLServer
             getDBType = "SQLSERVER"
        Case esriDBMS_SQLServer
             getDBType = "DB2"
        Case esriDBMS_Unknown
             getDBType = "UNKNOWN"
    End Select

End Function

 

来自：http://www.cnblogs.com/iswszheng/archive/2009/05/15/1457324.html