Using VBA Adding an SDE for coverages layer to ArcMap
2008-03-02 20:23
549 查看
Public Sub AddSDECoverageLayer()
Dim pWorkFact As IWorkspaceFactory2
Dim pFWorkspace As IFeatureWorkspace
Dim pFClass As IFeatureClass
Dim pFLayer As IFeatureLayer
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pAV As IActiveView
'Open Feature Class
Set pWorkFact = New SdeWorkspaceFactory
Set pFWorkspace = pWorkFact.OpenFromString("server=swfcln;instance=5151;user=sde;password=sde;version=sde.default", 0)
Set pFClass = pFWorkspace.OpenFeatureClass("cities")
'Create new layer
Set pFLayer = New FeatureLayer
Set pFLayer.FeatureClass = pFClass
pFLayer.Name = pFClass.AliasName
'Add layer to map
Set pMxDoc = ThisDocument
Set pMap = pMxDoc.FocusMap
Set pAV = pMap
pMap.AddLayer pFLayer
pAV.Refresh
End Sub
Dim pWorkFact As IWorkspaceFactory2
Dim pFWorkspace As IFeatureWorkspace
Dim pFClass As IFeatureClass
Dim pFLayer As IFeatureLayer
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pAV As IActiveView
'Open Feature Class
Set pWorkFact = New SdeWorkspaceFactory
Set pFWorkspace = pWorkFact.OpenFromString("server=swfcln;instance=5151;user=sde;password=sde;version=sde.default", 0)
Set pFClass = pFWorkspace.OpenFeatureClass("cities")
'Create new layer
Set pFLayer = New FeatureLayer
Set pFLayer.FeatureClass = pFClass
pFLayer.Name = pFClass.AliasName
'Add layer to map
Set pMxDoc = ThisDocument
Set pMap = pMxDoc.FocusMap
Set pAV = pMap
pMap.AddLayer pFLayer
pAV.Refresh
End Sub
相关文章推荐
- Using Qt to build an Omi App for iOS (and Android)
- [导入]Windows Vista - Demand UAC elevation for an application by adding a manifest using mt.exe (转)
- remote: error: insufficient permission for adding an object to repository database
- 转 Adding items to an AutoCAD tool palette using .NET
- git pull 报错:error: insufficient permission for adding an object to repository database .git/objects
- git push error:error: insufficient permission for adding an object to repository data
- git pull 报错 insufficient permission for adding an object to repository database .git/objects
- Adding an existing project to GitHub using the command line
- error: insufficient permission for adding an object to repository database ./objects
- git insufficient permission for adding an object to repository database ./objects
- Preparing for Application and Service Deployment-Adding an HTTPS Endpoint to a Windows Azure Cloud
- git push error:error: insufficient permission for adding an object to repository database ./object解决
- error: insufficient permission for adding an object to repository database .git/objects
- Undefined symbols for architecture i386 when Adding Unit Tests to an existing iOS project
- git fetch 失敗提示insufficient permission for adding an object to repository db
- Using Qt to build an Omi App for iOS (and Android)
- ArcMap 连接SDE 出错“Failed to connect to the specified server. Entry for SDE instance no found in services file.”
- git push error:error: insufficient permission for adding an object to repository data
- Adding an existing project to GitHub using the command line
- git push error:error: insufficient permission for adding an object to repository database ./obje