In VB6 how to lock a record in Pervasive2000i using Vaccess

I use Vaccess for all my programming in VB6 on a Netware 3.2 server, works perfect.
Now I a'm running in a situation that I have to lock certain records in a file to make sure whenone user has this open , other users can only read and not write untill unlocked.
What is the syntax for this?
BIAPROAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

mirtheilSoftware DeveloperCommented:
When you read the record, you need to add the appropriate lock bias.  
This link is for v9 but also applies to 2000i:
http://www.pervasive.com/library/docs/psql/950/activex/activex-3-3.html#wp7598

Here's a list of the lock biases as well:
# +100-Single wait record lock.
# +200-Single no-wait record lock.
# +300-Multiple wait record lock.
# +400-Multiple no-wait record lock.
0
BIAPROAuthor Commented:
true I did find that earlier, and  this in my source and  works ok,

Private Sub cmdtest_Click()
Const SINGLE_NOWAIT_LOCK = 200
Const MULTIPLE_NOWAIT_LOCK = 400
vDebnummer.FieldValue(0) = "JACK"
status% = vDebnummer.GetEqual           '  SINGLE_NOWAIT_LOCK

 BUT!!!!  as soon I unrem the  SINGLE_NOWAIT_LOCK in after enter
the VB6 will say
Compile error:
!!  Expected:  end of statement  

If status% = 0 Then
  vDebnummer.FieldValue(1) = "MY NAME at time:"  & date$ & " " &  time$
  status% = vDebnummer.Update
End If
end sub
0
mirtheilSoftware DeveloperCommented:
The SINGLE_NOWAIT_LOCK needs to be like this:
Status% = vDebnummer.GetEqual(SINGLE_NOWAIT_LOCK)
You could also do it like:
vDebnummer.GetEqual SINGLE_NOWAIT_LOCK
Status% = vDebnummer.status

It's how VB handles functions.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
BIAPROAuthor Commented:
True!  learning every day, Thanks
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Databases

From novice to tech pro — start learning today.