DBCOMMITALL() with xH 99.5 and 99.71

Post Reply
Marcelo Via Giglio
Posts: 1033
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia

DBCOMMITALL() with xH 99.5 and 99.71

Post by Marcelo Via Giglio »

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
Post Reply