RDD SPEED TESTS (NEW NETRDD SYSTEM)
-----------------------------------
DBFCDX :
BMDBFCDX : DBFCDX + Static Bitmap filtered
REDBFCDX : Client-Server 100% compatible with BMDBFCDX
REMOTE : Windows 2008 Server
LOCAL : Windows 2000
LOCAL LOCAL LOCAL REMOTE REMOTE REMOTE
DBFCDX BMDBFCDX REDBFCDX DBFCDX BMDBFCDX REDBFCDX
7.34 4.16 42.00 859.80 519.56 172.88
As test shown,
work with remote data wins : REDBFCDX
work with local data wins : BMDBFCDX
TEST.PRG:
ANNOUNCE RDDSYS
REQUEST DBFCDX,REDBFCDX,BMDBFCDX
FUNCTION MAIN( cRdd, cIP )
LOCAL n,t,m,p,J
IF Empty( cRdd )
cRdd := "REDBFCDX"
ENDIF
IF Empty( cIP )
cIP := "192.168.1.114"
ELSE
cIP := AllTrim( cIP )
ENDIF
SET DATE FORMAT "DD/MM/YYYY"
RDDSETDEFAULT( cRdd )
SET DELETED ON
SET AUTOPEN ON
IF cRdd == 'REDBFCDX'
? "CONECTED A IP: " + cIP + ":2813"
NET_OPENCONNECTION( cIP, 2813 )
ENDIF
IF ! HB_DBExists( "TMPTEST" )
? "creando tabla"
DBCREATE( "TMPTEST", { { "A1", "C", 10, 0 } }, cRdd )
ENDIF
USE TMPTEST SHARED NEW ALIAS "ONE" VIA ( cRdd )
IF LastRec() < 50000
? "añadiendo 50000 registros"
p := seconds()
FOR n := 1 TO 50000
APPEND BLANK
REPLACE FIELD->A1 WITH "0123456789"
NEXT
?? " -> " + AllTrim( Str( seconds() - p ) ) + " seconds"
ENDIF
SET OPTIMIZE ON
IF HB_DBExists( "TMPTEST.CDX" )
OrdSetFocus( "TG1" )
ELSE
INDEX ON FIELD->A1 TAG tg1 TO ("TMPTEST.CDX")
ENDIF
? "Indice activo : " + ORDKEY()
? "Filtrando por : " + "RecNo() > 100 .AND. RecNo() < 200"
p := seconds()
DbSetFilter( {|| RecNo() > 100 .AND. RecNo() < 200 }, "RecNo() > 100 .AND.
RecNo() < 200" )
?? " -> " + AllTrim( Str( seconds() - p ) ) + " seconds"
WAIT
p := t := seconds()
FOR M := 1 TO 10
? "PASO " + AllTrim( str( M ) )
DBGOTOP()
FOR n := 1 TO 50000
J := ORDKEYNO()
J := ORDKEYCOUNT()
DBSKIP()
NEXT
?? " en " + AllTrim( Str( seconds() - p ) ) + " seconds"
p := seconds()
NEXT
DBCLOSEALL()
? " TOTAL " + AllTrim( Str( seconds() - t ) ) + " seconds"
wait
RETURN NIL
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4158 (20090616) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
------------------------------------------------------------------------------
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensing option that enables unlimited
royalty-free distribution of the report engine for externally facing
server and web deployment.
http://p.sf.net/sfu/businessobjects
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
