java 读取sde数据库_从SDE数据库中读取要素类，并显示在map上

Private Sub getSDELayer()

Dim pMap As IMap

pMap = AxMapControl1.Map

Dim pWorkSF As IWorkspaceFactory

pWorkSF = New SdeWorkspaceFactory

Dim pPropertySet As IPropertySet

pPropertySet = New PropertySet

With pPropertySet

.SetProperty("Server", "zf")

.SetProperty("Instance", "esri_sde")

.SetProperty("user", "sde")

.SetProperty("password", "sde")

.SetProperty("version", "sde.DEFAULT")

End With

Dim pSdeWS As IWorkspace

pSdeWS = pWorkSF.Open(pPropertySet, 0)

Dim pFeatWorkS As IFeatureWorkspace

pFeatWorkS = pSdeWS

Dim pFeatDataset As IFeatureDataset

pFeatDataset = pFeatWorkS.OpenFeatureDataset("SDE.mytest")

Dim pFeatClassContainer As IFeatureClassContainer

pFeatClassContainer = pFeatDataset

Dim i As Integer

For i = 0 To pFeatClassContainer.ClassCount - 1

Dim pFeatClass As IFeatureClass

pFeatClass = pFeatClassContainer.Class(i)

Dim pFeatLyr As IFeatureLayer

pFeatLyr = New FeatureLayerClass

pFeatLyr.FeatureClass = pFeatClass

pFeatLyr.Name = pFeatClass.AliasName

pMap.AddLayer(pFeatLyr)

Next

AxMapControl1.Refresh()

End Sub