HOW TO
This sample VBA code adds coverage arcs to an ArcMap document. You can modify it to specify data models other than coverages. You may also add it to a subroutine or function.
'++ Create a pointer to the data's workspace: Dim pWorkspaceFact As IWorkspaceFactory Set pWorkspaceFact = New ArcInfoWorkspaceFactory Dim pWorkspace As IWorkspace Set pWorkspace = pWorkspaceFact.OpenFromFile("c:\geodata\covers", 0) Dim pFeatureWorkspace As IFeatureWorkspace Set pFeatureWorkspace = pWorkspace
Dim pDataset As IFeatureDataset Set pDataset = pFeatureWorkspace.OpenFeatureDataset("covername")
Dim pFeatureClassContainer As IFeatureClassContainer Set pFeatureClassContainer = pDataset Dim pFeatureClass As IFeatureClass Set pFeatureClass = pFeatureClassContainer.ClassByName ("arc")
Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = New FeatureLayer Set pFeatureLayer.FeatureClass = pFeatureClass pFeatureLayer.Name = "Feature class name" pFeatureLayer.Visible = True
Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument pMxDocument.FocusMap.AddLayer pFeatureLayer
Note: For a sample of using the IPropertySet interface to reference an SDE connection, click the ArcObjects Online link below, and expand: Samples > Geodatabase > Connecting > Connect to Enterprise Geodatabase (VB).
Get help from ArcGIS experts
Download the Esri Support App