Another User Changed Data

I am writing a Delphi 1.0 application.  I am getting the following error when I try to save changes to a record:  "Cannot perform edit because another user has changed the data."  No one else is using the application.  Anyone have any ideas on what is causing the error and how to stop it.
oasysAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
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.

ronit051397Commented:
Is another application using the same table?
0
oasysAuthor Commented:
No, no other applications are using the table.  We are developing the database also, so we are using test data.  You get the error under several circumstances.  It seems give this error after all required fields are saved and then you try to add data to fields that are not required and save again. On one form, we have a state field that is required.  If you delete the state and save the form, you do not get the error.  If you add the state back and try to save it, you will get the error.  Any ideas?

 
0
ronit051397Commented:
After you edit a record do you call post?
0
CompTIA Security+

Learn the essential functions of CompTIA Security+, which establishes the core knowledge required of any cybersecurity role and leads professionals into intermediate-level cybersecurity jobs.

oasysAuthor Commented:
I do call post after the edit.  I have went so far as to call post and commit.  I get the same error.
0
ronit051397Commented:
What database are you using? Try to call refresh before rediting.
0
oasysAuthor Commented:
I am using an Oracle database.
0
ronit051397Commented:
Oracle 8.0?
Are you using cached updates?
0
oasysAuthor Commented:
We are using Oracle 7.3.3.0.0 and Oracle 7.3.2.3.0

We are not using cached updates.
0
ronit051397Commented:
OK, After you call post, call Refresh and tell me if you still get the error.
0
oasysAuthor Commented:
My boss says he has already tried the refresh after post and he still got the error.
0
ronit051397Commented:
Did you try to close and reopen the table immidiatly after posting?
0
oasysAuthor Commented:
We have not tried closing and reopening the table.  If we do that we will have to do a search to bring up the record that we have just edited.  The application is large and database will have so many records that the search will cause the performance of the application to suffer.  
0
ronit051397Commented:
Yes, I know, just for the test. Also before you reedited the record you verified that the table was in browse state?
0
oasysAuthor Commented:
If you close the table and open it back up, you do not get the error.  Delphi doesn't seem to release the record after the save. So if you try to edit right after the save, it tells you it cannot perform the edit.
0
ronit051397Commented:
The only solution I think of is Enabling cached updates just before editing and posting, then disabling it again immidiatly after commiting data.
Example:

with Table1 do
try
  CachedUpdates:=True;
  Edit;
  do somthing...
  Post;
  CommitChanges([Table1]);
Finally
  CachedUpdates:=False;
end;  


function CommitChanges(FTable: Array of TTable): Boolean;
var I: Byte;
begin//committing table's changes to the database
  FTable[0].Database.StartTransaction;
  try
    for I:=Low(FTable) to high(FTable) do
      if FTable[I].CachedUpdates then
        FTable[I].ApplyUpdates; {try to write the updates to the database};
    FTable[0].Database.Commit; {on success, commit the changes};
  except
    FTable[0].Database.Rollback; {on failure, undo the changes};
    raise;//raise the exception to prevent a call to CommitUpdates!
  end;
  for I:=Low(FTable) to high(FTable) do
    if FTable[I].CachedUpdates then
      FTable[I].CommitUpdates; {on success, clear the cache}
  Result:=True;
end;


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
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
Delphi

From novice to tech pro — start learning today.