The following is code I have put together to create a relationship class between CAD_PARCELS which is a feature class and PDATA which is a SQL table registered with both the geodatabase and SDE. At first I would get through the originClass and destinationClass and it would fail on the CreateRealtionshipClass giving an unknown RunTime Error. Now (after minor mods) it fails on defining the destinationClass stating that PDATA is not defined. PDATA has an OID field that is recognized and indexed in Catalog. Need help please....
********************************************
Private Function CreateRelationshipClass()
Dim serverName As String = "GS002"
Dim sdeWrkSp As IWorkspaceFactory2 = New SdeWorkspaceFactory
Dim connProps As IPropertySet = New PropertySet
With connProps
.SetProperty("SERVER", serverName) ' Server name
.SetProperty("INSTANCE", "sde:sqlserver:" + serverName) ' Instance
.SetProperty("DATABASE", "cfwgis") ' Database name
.SetProperty("USER", "sde") ' User ID
.SetProperty("PASSWORD", SDE_PASSWORD) ' Password
.SetProperty("VERSION", "sde.DEFAULT") ' Version
End With
Dim wrk As IFeatureWorkspace = sdeWrkSp.Open(connProps, 0)
'Open the participating classes from the workspace.
Dim originClass As IFeatureClass = wrk.OpenFeatureClass("CFWGIS.SDE.CAD_PARCELS")
Dim destinationClass As IObjectClass = wrk.OpenTable("CFWGIS.SDE.PDATA")
'Create the Relationship Class
Dim relclass As IRelationshipClass2 = wrk.CreateRelationshipClass("CFWGIS.SDE.RC_P_PDATA", originClass, destinationClass, _
"PDATA", "CAD_PARCELS", esriRelCardinality.esriRelCardinalityOneToOne, _
esriRelNotification.esriRelNotificationNone, True, False, Nothing, "TAXPIN", "", "GIS_LINK", "")
End Function
*****************************************
According to everything I have seen on the forums and Help, etc this should work, but I can't seem to get past the "feature not defined" issue.
********************************************
Private Function CreateRelationshipClass()
Dim serverName As String = "GS002"
Dim sdeWrkSp As IWorkspaceFactory2 = New SdeWorkspaceFactory
Dim connProps As IPropertySet = New PropertySet
With connProps
.SetProperty("SERVER", serverName) ' Server name
.SetProperty("INSTANCE", "sde:sqlserver:" + serverName) ' Instance
.SetProperty("DATABASE", "cfwgis") ' Database name
.SetProperty("USER", "sde") ' User ID
.SetProperty("PASSWORD", SDE_PASSWORD) ' Password
.SetProperty("VERSION", "sde.DEFAULT") ' Version
End With
Dim wrk As IFeatureWorkspace = sdeWrkSp.Open(connProps, 0)
'Open the participating classes from the workspace.
Dim originClass As IFeatureClass = wrk.OpenFeatureClass("CFWGIS.SDE.CAD_PARCELS")
Dim destinationClass As IObjectClass = wrk.OpenTable("CFWGIS.SDE.PDATA")
'Create the Relationship Class
Dim relclass As IRelationshipClass2 = wrk.CreateRelationshipClass("CFWGIS.SDE.RC_P_PDATA", originClass, destinationClass, _
"PDATA", "CAD_PARCELS", esriRelCardinality.esriRelCardinalityOneToOne, _
esriRelNotification.esriRelNotificationNone, True, False, Nothing, "TAXPIN", "", "GIS_LINK", "")
End Function
*****************************************
According to everything I have seen on the forums and Help, etc this should work, but I can't seem to get past the "feature not defined" issue.
A response from ESRI:
"Michelle,
I believe this to be a defect. I have attempted many different avenues to try and solve this issue.
I will be submitting a defect shortly. I do believe this to be an issue at 10.1 as well. I am submitting this in hopes that it can still be remedied.
Regards,
Jamie P."
Since this response he and I have been working on a small subsection of my code for them to test and debug within the development group. If anyone is in need of the situation or status, the Incident # is 1004220.