I have a client with a large volume of new records daily. We are starting to have problems where a newly appended record is disappearing. What is the best way to handle append blank in a network environment. Currently, we have been using the sample below without a problem, but my client may have many instances where users are requesting APPEND BLANK at the same time.
SELECT tools
APPEND BLANK
Thank you in advance for your assistance.
cdmmaui
There are two things you can do :
1) dbCommit()
2) GoTo recno()
dbCommit is supposed to do a 'hard disk' write .. however it is un-acceptibly slow if you are appending lots of records in a loop.. If you are just adding one record at a time dbCommit is your answer. If you are appending lots of records in a loop .. I use GoTo Recno() after you append the last field .. then at the end of the loop .. a dbCommit()
Rick Lipkin
Hi Rick,
Thank You
#define WAIT_SECONDS 2
if lNetAddRec( "tools" )
? "New record was appended."
else
? "Network error! No record appended."
endif
/////////////////////////////
FUNCTION lNetAddRec( cAlias )
/////////////////////////////
do while .t.
if lAddRec( WAIT_SECONDS, cAlias )
RETURN .t.
endif
if alert ( "Could not append a new record.;", { "Try again", "Cancel" } ) != 1
RETURN .f.
endif
enddo
RETURN .f.
////////////////////////////////////
FUNCTION lAddRec( nSeconds, cAlias )
////////////////////////////////////
do while nSeconds > 0
( cAlias )->( dbAppend() )
if !neterr()
RETURN .t.
endif
inkey( .5 )
nSeconds -= 0.5
enddo
RETURN .f.Darrell
You may also want to take a look at these articles. This info is from my notes and I didn't check to see if the links are still valid.
Regards,
James
4/27/2005 7:08 AM
Windows' Oppontunistic Locking
Is well described at:
http://www.dataaccess.com/whitepapers/o ... ching.html
There are some programs for testing network op locking and for updating the registry here:
&Thank You for the information
