ADO AbsolutePosition in 64bit problem

[Marc Vanzegbroeck]

Hi,

In my 32bit version I use this code to update a query, and stay on the same record.

Code: Select all  Expand view

vrec := oRs:AbsolutePosition
oRs:Requery()
oRs:AbsolutePosition(vrec)

and is working fine.

In the 64bit-version I receive an error on the 3the line where I set the position again.
vrec is holding the line-number, just like in the 32bit version. I debugged it, and is the value of the record, just like in the 32-bit version.

Code: Select all  Expand view

Error description: (DOS Error -2147352562) WINOLE/1007  Argument error: ABSOLUTEPOSITION
Args:
   [   1] = N   2

Is there another way to do this?

[Rick Lipkin]

Marc

You can always do this the brute force way by saving your primary key to a variable and then requery and go back and find ..

Code: Select all  Expand view

Local nPrimKey

nPrimKey := oRs:Fields("<your nPrim key>"):Value
oRs:ReQuery()

oRs:MoveFirst()
oRs:Find( "<your nPrim key> = "+ltrim(str(nPrimKey))
 

May not be pretty, but it should work..

Rick Lipkin

[Marc Vanzegbroeck]

Hi,

I found the solution.

Code: Select all  Expand view

oRs:AbsolutePosition := vrec

is working
Strange that in the other release

Code: Select all  Expand view

oRs:AbsolutePosition(vrec)

also works

[Rick Lipkin]

Marc

I like your solution much better and more elegant. Thanks for the feedback!

Rick Lipkin

[Enrico Maria Giordano]

Hi,

I found the solution.

Code: Select all  Expand view

oRs:AbsolutePosition := vrec

is working
Strange that in the other release

Code: Select all  Expand view

oRs:AbsolutePosition(vrec)

also works

AbsolutePosition isn't a method so the assignment is the correct way.

EMG

[rhlawek]

I'm not certain which class is in use in this case, but looking at the source to TArrData and TRecSet I see that AbsolutePosition is an access value, and AbsolutePosition() is an assignment method. Give this I would expect oRS:AbsolutePosition := N to fail.

---------- TARRDATA.PRG
ACCESS AbsolutePosition INLINE ::nAt
ASSIGN AbsolutePosition( x ) INLINE ::nAt := x

---------- TRECSET.PRG
ACCESS AbsolutePosition INLINE If( ::Empty, 0, ::oRs:AbsolutePosition )
ASSIGN AbsolutePosition( n ) ;
INLINE If( ::Empty, nil, ::oRs:AbsolutePosition := ::rs_FitRange( n ) )

[Enrico Maria Giordano]

AbsolutePosition is a property not a method. Please look at the MS docs:

https://msdn.microsoft.com/en-us/library/ms676594(v=vs.85).aspx

EMG