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 @R_758_4045@ion 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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
