FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour DBCOMMITALL() with xH 99.5 and 99.71
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
DBCOMMITALL() with xH 99.5 and 99.71
Posted: Fri Mar 09, 2007 08: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

Continue the discussion