EDN: ESRI Developer Network
Opens the object referred to by this name.
[Visual Basic 6.0] Function Open As Unknown
[Visual Basic .NET] Public Function Open ( _ ) As Object
[C#] public object Open ( );
[Java] public Object open ( ) throws IOException, AutomationException
[C++]
HRESULT Open(
LPUNKNOWN* unknown
);
Parameters
unknown [out, retval]
unknown is a parameter of type LPUNKNOWN
The Open method lets you instantiate the actual object given the name object.
Note: Opening a feature class that participates in a topology or geometric network will also open all other feature classes participating in the topology or geometric network in memory.
These example's open a feature class with Named Objects.
Public Sub OpenFeatureClassinSDEWithNameObjects()
''Use the name properties to touch a dataset in SDE...
Dim pProp As IPropertySet
Set pProp = New PropertySet
With pProp
.SetProperty "server", "rumi"
.SetProperty "instance", "5400"
.SetProperty "user", "dsg"
.SetProperty "password", "dsg"
.SetProperty "version", "sde.DEFAULT"
End With
''***************************************************************
Dim pWorkspaceName As IWorkspaceName
Set pWorkspaceName = New WorkspaceName
pWorkspaceName.WorkspaceFactoryProgID = "esriDataSourcesGDB.SdeWorkspaceFactory.1"
pWorkspaceName.ConnectionProperties = pProp
Dim pwsf As IWorkspaceFactory
Set pwsf = pWorkspaceName.WorkspaceFactory
Dim pFeatClassName As IFeatureClassName
Set pFeatClassName = New FeatureClassName
Dim pdatasetname As IDatasetName
Set pdatasetname = pFeatClassName
''Hardcoded.................................................................
pdatasetname.Name = "sde.DSG.fourcorners"
Set pdatasetname.WorkspaceName = pWorkspaceName
Dim pname As IName
Set pname = pdatasetname
Dim pfeatclass As IFeatureClass
Set pfeatclass = pname.Open
''QI to IDataset to prove you have a featureclass...
Dim pdataset As IDataset
Set pdataset = pfeatclass
MsgBox pdataset.Name
End Sub
Public Sub OpenFeatureClassShapeFileWithNameObjects()
'''Open up a shapefile.
''Notice variables (strTable & strLocation) that hold data and
''location...
Dim strTable As String
strTable = "cities.dbf"
Dim strLocation As String
strLocation = "C:\temp"
Dim pwrkspc As IWorkspaceName
Set pwrkspc = New WorkspaceName
pwrkspc.PathName = strLocation
pwrkspc.WorkspaceFactoryProgID = "esriDataSourcesGDB.ShapefileWorkspaceFactory.1"
'***************************************************
Dim pdatasetname As IDatasetName
Set pdatasetname = New TableName
pdatasetname.Name = strTable
Set pdatasetname.WorkspaceName = pwrkspc
Dim pname As IName
Set pname = pdatasetname
Dim pfeatclass As IFeatureClass
Set pfeatclass = pname.Open
''QI to IDataset to prove you have a featureclass...
Dim pdataset As IDataset
Set pdataset = pfeatclass
MsgBox pdataset.Name
End Sub
Send feedback on this page