Add an Annotation FeatureClass from a Personal Geodatabase to ArcMap with ArcObjects

Procedure

1. Start ArcMap.
2. Create a new UIButtonControl.
   
3. Right-click the UIButtonControl and select View Source.
4. Copy below code into the UIButtonControl's click event.
   
   
   Dim strPathName As String 
   
   

   strPathName = "D:"temp"yellowstone.mdb" ' Replace with the name of your Personal Geodatabase
   



5. Modify the value of strPathName to reflect the location of your Personal Geodatabase.
6. Copy the code below into the UIButtonControl's click event, immediately after the code you entered in Step 4.
   
   
   Dim strData As String 
   
   strData = "AnnoRoad" ' Replace with the name of your annotation FeatureClass
   
   
7. Modify the value of strData to point to the annotation Feature Class in your Personal Geodatabase.
8. Copy the code below into the UIButtonControl's click event, immediately after the code you entered in Step 6.
   
   
   ' Set up the WorkspaceFactory
   
   Dim pWorkspaceName As IWorkspaceName 
   Set pWorkspaceName = New WorkspaceName 
   
   pWorkspaceName.WorkspaceFactoryProgID = "esricore.AccessWorkspaceFactory" 
   pWorkspaceName.PathName = strPathName 
   
   
   Dim pDatasetName As IDatasetName 
   Set pDatasetName = New FeatureClassName 
   
   pDatasetName.Name = strData 
   
   Set pDatasetName.WorkspaceName = pWorkspaceName 
   
   
   ' Use a lightweight Name object to open the table.
   
   Dim pName As IName 
   Set pName = pDatasetName  ' QI 
   
   Dim pTable As ITable 
   Set pTable = pName.Open 
   
   Dim pFeatClass As IDataset 
   Set pFeatClass = ptable 
   
   Dim pFeatLay As IFeatureLayer 
   
   'IFDOGraphicsLayerFactory::OpenGraphicsLayer IS THE KEY to accessing the data! 
   
   Dim pFDOGraphicsLayerFactory As IFDOGraphicsLayerFactory 
   Set pFDOGraphicsLayerFactory = New FDOGraphicsLayerFactory 
   
   
   '*****************************************
   
   ' Modify this line of code
   
   Set pFeatLay = pFDOGraphicsLayerFactory.OpenGraphicsLayer(pfeatclass.Workspace, Nothing, "AnnoRoad") 
   
   '***************************************** 
   
   'Assign the name in the Table of Contents 
   pFeatLay.Name = pFeatClass.Name 
   
   ' Add the annotation to ArcMap
   
   Dim pMxDoc As IMxDocument 
   Set pMxDoc = ThisDocument 
   
   Dim pMap As IMap 
   Set pMap = pMxDoc.ActiveView 
   
   pMap.AddLayer pFeatLay 
   
   Dim pAV As IActiveView 
   Set pAV = pMap 
   
   pAV.Refresh
   
   
   
9. Modify the third argument passed to the OpenGraphicsLayer method to point to the input annotation Feature Class.
10. Test the code.