Is CLIPPER still faster in database management?
I am testing the COMMIT statement.
With Clipper the operation takes 9 sec. with xHarbour 77 sec.
Best regards
Otto
This is my code:
CLIPPER
- Code: Select all Expand view
- #include "FiveWin.ch"
function main()
local I:=0
msginfo("Start " + str( seconds() ))
use clientes new
for I := 1 to 1000
append blank
clientes->nombre := str(recno())
commit
next
msginfo("End " + str( seconds()) )
return nil
xHarbour
- Code: Select all Expand view
#include "FiveWin.ch"
#include "xbrowse.ch"
REQUEST DBFCDX
function main()
local I:=0
msginfo("Start " + str( seconds() ))
rddsetdefault( "DBFCDX" )
use clientes new
for I := 1 to 1000
append blank
clientes->nombre := str(recno())
commit
next
msginfo("End " + str( seconds()) )
return nil