Underlying DBMS error

TonyAlmeida — Thu, 08 Apr 2010 13:45:16 GMT

I have the following code, when i click it will prompted me with the input but after i hit enter i get an error on line pFeature.Store

Run-time error'-2147216072(80041529)':
Underlying DBMS error[Microsoft SQL Native Client:Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. no work was done.][dsd."CC\TALMEIDA".Point_test]. I have no idea what this means, help please.

My code.....

Dim pFeature1 As IFeature
Dim tmpPoint1 As IPoint

Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)

        'Adds a point to a shapefile
    Dim pMap As IMap
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    Set pMap = pMxDoc.FocusMap
    Dim pDataset As IDataset
    Dim pFeature1 As IFeature
    'Dim tmpPoint1 As IPoint

    'Get the first layer in the map
    Dim pFeatLyr As IGeoFeatureLayer
    Set pFeatLyr = pMap.Layer(0)


     'Create a point from the mouse down click
    Dim tmpPoint As IPoint
    Set tmpPoint = New Point
    Set tmpPoint = pMxDoc.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)

    'Get the feature class
    Dim pFClass As IFeatureClass
    Set pFClass = pFeatLyr.FeatureClass

'QI from IFeatureclass to IDataset

'Dim pDataset As IDataset
Set pDataset = pFClass

'Get the Workspace from the IDataset
Dim pWorkspace As IWorkspace
Set pWorkspace = pDataset.Workspace

'QI from IWorkspace to IWorkspaceEdit
Dim pWorkspaceEdit As IWorkspaceEdit
Set pWorkspaceEdit = pWorkspace

'Start editing if needed
If Not pWorkspaceEdit.IsBeingEdited Then
pWorkspaceEdit.StartEditing (True)
End If

'Start an edit operation
pWorkspaceEdit.StartEditOperation

    'Create the new point feature
    Dim pFeature As IFeature
    Dim dblDist As Double
    If button = 2 Then
        Set pFeature1 = Nothing
        Set tmpPoint1 = Nothing
        Exit Sub
    End If
    If pFeature1 Is Nothing Then
        If tmpPoint1 Is Nothing Then
            Set tmpPoint1 = tmpPoint
        Else
            Set pFeature = pFClass.CreateFeature
            Set pFeature.Shape = tmpPoint
            If Not tmpPoint1 Is Nothing Then
                dblDist = 0
                dblDist = GetDistance1(pFeature)
                pFeature.Value(pFeature.Class.Fields.FindField("Distance")) = dblDist
                pFeature.Value(pFeature.Class.Fields.FindField("SiteNum")) = (dblDist / 5.28) + InputBox("Enter Address Range") & ""
                pFeature.Store
            End If
            Set pFeature1 = pFeature
        End If
    Else
        Set pFeature = pFClass.CreateFeature
        Set pFeature.Shape = tmpPoint
        If Not pFeature1 Is Nothing Then
            dblDist = 0
            dblDist = GetDistance(pFeature1, pFeature)
            pFeature.Value(pFeature.Class.Fields.FindField("Distance")) = dblDist
            pFeature.Value(pFeature.Class.Fields.FindField("SiteNum")) = (dblDist / 5.28) + InputBox("Enter Address Range") & ""

            pFeature.Store

        End If
        Set pFeature1 = pFeature
    End If
'Complete the edit operation
    pWorkspaceEdit.StopEditOperation
    pMxDoc.ActiveView.Refresh
    pMxDoc.UpdateContents
End Sub
Function GetDistance1(pFeature1 As IFeature) As Double
    Dim pGeom1 As IGeometry
    Dim pGeom2 As IGeometry
    Dim pProx As IProximityOperator
    Dim dblDist As Double
    Set pGeom1 = tmpPoint1
    Set pGeom2 = pFeature1.Shape
    Set pProx = pGeom2
    dblDist = pProx.ReturnDistance(pGeom1)
    'MsgBox dblDist
    GetDistance1 = dblDist
End Function
Function GetDistance(pFeature1 As IFeature, pFeature2 As IFeature) As Double
    Dim pGeom1 As IGeometry
    Dim pGeom2 As IGeometry
    Dim pProx As IProximityOperator
    Dim dblDist As Double
    Set pGeom1 = pFeature1.Shape
    Set pGeom2 = pFeature2.Shape
    Set pProx = pGeom2
    dblDist = pProx.ReturnDistance(pGeom1)
    'MsgBox dblDist
    GetDistance = dblDist

End Function

Underlying DBMS error

TonyAlmeida — Thu, 08 Apr 2010 13:52:11 GMT

If i start edit my self i get the following error,

One or more layers failed to draw:

dsd."CC\TALMEIDA".Point_test: The requested operation is invalid on a closed state[dsd."CC\TALMEIDA".Point_test]

Underlying DBMS error

TonyAlmeida — Thu, 08 Apr 2010 14:40:41 GMT

Figured it out, I had the wrong Field types. The Distance and Sitenum were strings so i changed them, SiteNum to Double and Distance to Long. All is great!

topic Underlying DBMS error in ArcObjects SDK Questions

Underlying DBMS error

Underlying DBMS error

Underlying DBMS error