Selecting and showing a value from Oracle Table

---

Dim pFeatureClass As IFeatureClass
Set pFeatureClass = pFeatureLayer.FeatureClass

Dim pFields As IFields
Set pFields = pFeatureClass.Fields

Dim intSdeNeighbourhood As Integer
intSdeNeighbourhood = pFields.FindField("NAME_NEIGHBOURHOOD")

Dim intSdeCadastralSection As Integer
intSdeCadastralSection = pFields.FindField("CADASTRAL_SECTION")

Dim intSdeArea As Integer
intSdeArea = pFields.FindField("AREA")

Dim intObject As Integer
intObject = pFields.FindField("OBJECTID")

Dim pTable As ITable
Set pTable = pFeatureClass

Dim pCursor As ICursor
Set pCursor = pTable.Search(pQueryFilter, False) 'YOU DONT SEE THE UPPER CODES BUT ITS OK, EVERYTHING IS WORKING

Dim pRow As IRow
Set pRow = pCursor.NextRow

Dim pFeature As IFeature
Set pFeature = pRow

sde_neighbourhood.Caption = pFeature.Value(intSdeNeighbourhood)
sde_section.Caption = pFeature.Value(intSdeCadastralSection)
sde_area.Caption = pFeature.Value(intSdeArea)

'----------------------------------------------------------------------------------
'Here i open Oracle Table

Dim pPropset As IPropertySet
Set pPropset = New PropertySet

pPropset.SetProperty "DATABASE", "C:\Users\botken1\Desktop\ArcObject_Denemeler.mdb"
pPropset.SetProperty "DATAPROVIDER", "Access Data Source"

Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New AccessWorkspaceFactory

Dim pFeatureWorkspace As IFeatureWorkspace
Set pFeatureWorkspace = pWorkspaceFactory.Open(pPropset, 0)

'Open the Table
Dim pUTable As ITable
Set pUTable = pFeatureWorkspace.OpenTable("ABS_PARCEL")

Dim pUFields As IFields
Set pUFields = pUTable.Fields

Dim intSdeObjectID As Integer
intSdeObjectID = pUFields.FindField("SDE_OBJECT_ID")

Dim pURow As IRow
Set pURow = pUTable

'here i try to show the Oracle Table values with the objectid of selected feature

Dim pQueryFilterUKBS As IQueryFilter
Set pQueryFilterUKBS = New QueryFilter

Dim strSdeOID As String
strSdeOID = pFeature.Value(intObject)

'pQueryFilterUKBS.WhereClause = "SDE_OBJECT_ID = 123" THIS CODE WORKS, IT BRINGS YOU THE VALUE OF NEIHGBOURHOOD, SECTION AND AREA OF THE VALUE 123 FROM ORACLE TABLE BUT I DONT WANT TO SEE THE VALUE OF 123, I WANT THE OBJECTID OF SELECTED FEATURE FROM SDE LAYER

pQueryFilterUKBS.WhereClause = "SDE_NESNE_NO = pfeature.value(intobject)" THIS CODE DOESNT WORK AT ALL

Dim pUCursor As ICursor
Set pUCursor = pUTable.Search(pQueryFilterUKBS, False)

Dim pURow As IRow
Set pURow = pUCursor.NextRow

Dim intUSection As Integer
intUSection = pUFields.FindField("ORACLE_SECTION")

ukbs_section.caption = pURow.Value(intSection)

End Sub

---