Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Table will not lock
Message
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Environment versions
Visual FoxPro:
VFP 6 SP5
OS:
Windows 2000 SP4
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01025980
Message ID:
01026051
Views:
18
What does the test below return? You don't have any buffering turned on or anything like exclusive = ON in the config.fpw, right? Is multilocks on or oFF?
SET REPROCESS TO 5 SECONDS
SET EXCLUSIVE OFF
SET MULTILOCKS ON
SELE 0
USE CDM05RPM     && hope name is correct
IF USED("CDM05PRM") .and. !EOF("CDM05PRM") .and. recno("CDM05PRM") > 0
   WAIT WINDOW "Last number used was: " + ALLTRIM(STR(MEMLASTWO))+ ".  Press anykey to lock record ..."
   IF RLOCK() 
      WAIT WINDOW "Locked record successfully. Press anykey to get new value..."
      IF !EMPTY(MEMLASTWO)
         new_wo = MEMLASTWO + 1
      ELSE
         new_wo = 1
      ENDIF
      REPLACE NEXT 1 MEMLASTWO WITH new_wo
      REPLACE NEXT 1 MEMLASTRR WITH new_wo
      unlock
   ELSE
      wait window "Unable to lock record to get next wo number. Press anykey..."
   ENDIF
ELSE
   WAIT WINDOW "Unable to open CRM05RPM.  Press anykey..."
ENDIF
IF USED('CDM05RPM')
   USE IN CDM05RPM
ENDIF
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform