Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Disappearing Data
Message
From
15/11/2002 00:50:20
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Disappearing Data
Miscellaneous
Thread ID:
00723070
Message ID:
00723070
Views:
38
I'm having a data loss problem. I thought it might be a problem with buffered data not being written to disk for some reason and that Flushing the buffers would solve the problem but it still seems to be happening. Vlad Grynchyshyn suggested turning off the write-behind cache in windows but I 1) am not sure that is the problem and 2) it looks like people here think that that is a last, desperate, system slowing solution. So I'm throwing this out again to see if anyone has any ideas.

The situation is that I am running VFP7 app as a file server on a W98 peer-to-peer network with 4 workstations. I have an updateable view of individuals (vActors_Source) with Optimistic Table Buffering that is supposed to write out to a table (Person). The code below is called after each person is entered. What is happening is that on occasion a user will enter maybe 10 names but when they leave the entering form the names disappear. I tracked down to the fact that the new records are not being updated to the Person table. But I am not getting any TableUpdate Error. Also, something it getting written at one point as the Person_id taken from the Person Table that is Inserted to the Person_Source table is correct but then the record from the Person table somehow disappears.

This has happened on both the workstations and on the computer where the system resides (not running over the network).

Any ideas out there?

Ken



If TableUpdate(1,.T.,"vActors_Source")
lPerson_id = Person.Person_id
If This.NewActor
INSERT INTO Person_Source (Source_id, Person_id) ;
VALUES (This.Source_id, lPerson_id)
Select vActors_Source
Locate for Person_id = lPerson_id
This.LastActorRec = Recno('vActors_Source')
Endif
lSaved = .T.
Flush
Else
=Advise('CHANGES TO ACTOR COULD NOT BE SAVED')
=AERROR(errorArray)
WAIT WINDOW TRANSFORM(ErrorArray[1])+':'+ErrorArray[2]
TableRevert(.T.,"vActors_Source")
Endif


Next
Reply
Map
View

Click here to load this message in the networking platform