I need to append a column to a disconencted recordset and then unpate its value with an integer.
Below is the code that I have tried:
I have also tried CASTing the point value field as an integer (CAST 1 as INT) AS Pointvalue
objRS.Source = "SELECT table.*, Null AS PointValue FROM table WHERE ListingID IN (" & strComps & ")"
objRS.CursorLocation = adUseClient
objrs.CursorType = adOpenKeySet
objRS.LockType = adLockOptimistic
set objRS.ActiveConnection = Nothing
Do WHile NOT objRS.EOF
objRS.Sort = "PointValue DESC"
Below is the update Points function (this is what gives an error as detailed below):
d is a data dictionary holding the listingID and its points
'sets point value for listings returned to allow sorting by relevence before displaying resultgrid
points = d.Item(listingID)
'objrs.Fields("PointValue") = cint(trim(points))
'objRS.Update "PointValue", cint(points)
I have tried both ways to update this newly created field, but get the same error every time.
This is the error:
Microsoft Cursor Engine (0x80040E21)
Multiple-step operation generated errors. Check each status value.
I have tried everything that I can think of including using the objRS.Fields.Append Method with no success. Help will be appreciated.