DBCOMMITALL() with xH 99.5 and 99.71
Posted: Fri Mar 09, 2007 8:48 pm
Hello, somebody can try this test with xH 99.5 and 99.71, I obtained two times from one to other
FUNCTION main()
LOCAL astruct, i, ini, ind
rddRegister( "ADS", 1 )
rddsetdefault( "ADS" )
AdsSetServerType ( 1 )
aStruct := {{"name","C",50,0},{"salary","N",10,2}}
FOR i:=0 TO 30
ind := ALLTRIM( STR(i))
FERASE("person" + ind + ".adt")
FERASE("person" + ind + ".adi")
DBCREATE( "person" + ind, aStruct )
DBUSEAREA( .T.,, "person" + ind,,.T. )
NEXT
ini := SECONDS()
DBCOMMITALL()
DBCLOSEALL()
? SECONDS() - ini
INKEY(0)
RETURN NIL