Hola
Alguien sabe la diferencia entre el __DbSort() y el SORT on .. TO ..
Descrubri que sorteando una tabla de 18,000 registros con el SORT ON TO, demora bastante tiempo 3 minutos o mas, y usando la __DbSort() lo hace en 2 segundos, y no encuentro literatura que me de una razon logica.
Hace alguna diferencia abrir la tabla con sus indices ?
Gracias
FUNCTION __dbSort( cToFileName, aFields, bFor, bWhile, nNext, nRecord, lRest,;
cRDD, nConnection, cCodePage )
LOCAL nOldArea
LOCAL nToArea
LOCAL aStruct
LOCAL oError
LOCAL lError := .F.
IF Empty( aStruct := dbStruct() )
RETURN .F.
ENDIF
nOldArea := Select()
BEGIN SEQUENCE
dbCreate( cToFileName, aStruct, cRDD, .T., "", NIL, cCodePage, nConnection )
nToArea := Select()
dbSelectArea( nOldArea )
__dbArrange( nToArea, aStruct, bFor, bWhile, nNext, nRecord, lRest, aFields )
RECOVER USING oError
lError := .T.
END SEQUENCE
IF nToArea != NIL
dbSelectArea( nToArea )
dbCloseArea()
ENDIF
dbSelectArea( nOldArea )
IF lError
Break( oError )
ENDIF
RETURN .T.Luis, porfa, muestra la sintaxe de como tu hice el sort usando _dbsort()
gracias, salu2
DBSORT( ARQ_SORT, ORIG_SORT, NIL, NIL,NIL, NIL,.f. )Gracias Karinha
Quedó asi:
USE "clientes" SHARED NEW
__dbsort("COPIACLT.DBF",{FIELD->NOMBRE})
USE
LuisPonce wrote:Gracias Karinha
Quedó asi:
USE "clientes" SHARED NEW
__dbsort("COPIACLT.DBF",{FIELD->NOMBRE})
USE
Si Karinha
Ahora es mucho mas rapido, antes lo hacia asi:
USE "CLIENTES" SHARED Alias Cliente NEW
Cliente->(OrdSetFocus(1))
SORT ON NOMBRE TO WORK3431
Cliente->(DbCloseArea())
ocasionaba una demora considerable, son aprox. 18,000 registros en tres minutos Un Escandalo !!
Quedó asi:
USE "clientes" SHARED NEW
__dbsort("COPIACLT.DBF",{FIELD->NOMBRE})
USE
Ahora demora 2 a 3 segundos
Gracias Luis, voy hacer pruebas.
#command SORT [TO <(f)>] [ON <fields,...>] ;
[FOR <for>] [WHILE <while>] [NEXT <next>] ;
[RECORD <rec>] [<rest:REST>] [ALL] [CODEPAGE <cp>] => ;
__dbSort( <(f)>, { <(fields)> }, ;
<{for}>, <{while}>, <next>, <rec>, <.rest.>, , , <cp> )