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 xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers