PC Toledo

Código: Selecionar todos

#command INDEX ON <key> [TAG <(tag)>] TO <(bag)> ;
               [FOR <for>] [WHILE <while>] [NEXT <next>] ;
               [RECORD <rec>] [<rest:REST>] [<all:ALL>] ;
               [EVAL <eval>] [EVERY <every>] [<unique: UNIQUE>] ;
               [<ascend: ASCENDING>] [<descend: DESCENDING>] ;
               [<add: ADDITIVE>] [<cur: USECURRENT>] [<cust: CUSTOM>] ;
               [<noopt: NOOPTIMIZE>] [<mem: MEMORY, TEMPORARY>] ;
               [<filter: USEFILTER>] [<ex: EXCLUSIVE>] => ;
         ordCondSet( <"for">, <{for}>, [<.all.>], <{while}>, ;
                     <{eval}>, <every>, RecNo(), <next>, <rec>, ;
                     [<.rest.>], [<.descend.>],, ;
                     [<.add.>], [<.cur.>], [<.cust.>], [<.noopt.>], ;
                     <"while">, [<.mem.>], [<.filter.>], [<.ex.>] ) ;;
         ordCreate( <(bag)>, <(tag)>, <"key">, <{key}>, [<.unique.>] )

Código: Selecionar todos

      nSecIni:=Seconds()
      aStru:={}
      aAdd(aStru, {"Codigo", "C", 10, 0})
      DbCreate("mem:teste", aStru, "DBFCDX", .T., "teste")
      
      FOR I:=1 TO 1000000
         TESTE->(DbAppend())
         TESTE->Codigo := StrZero(I, 10)
      NEXT
      
      INDEX ON CODIGO TAG CODIGO TEMPORARY ADDITIVE
      
      Alert(SecToTime(Seconds()-nSecIni))

Código: Selecionar todos

INDEX ON NASCIMENTO TAG TEMP ADDITIVE TEMPORARY

Código: Selecionar todos

REQUEST HB_MEMIO
FUNCTION TesteIdxTmp // Rubens Topic 17412 Apagar Indice Temporary

 Use Clientes.DBF  alias Cli New Share
 cTEXTO := ''
 FOR X = 1 TO OrdCount()
  DbSetOrder(X) 
  cTEXTO += STR(X,2)+'-'+ORDKEY(INDEXORD()) + HB_EOL()
 NEXT
 Alert( cTexto ) //------------> Mostrou 9 Chaves
 
 DbSetOrder(2)
 DbGoTop()
 Browse()
 
 Index on NASCIMENTO TAG TEMP ADDITIVE TEMPORARY //----> Criou a 10ª chave teoricamente temporária

 cTEXTO := ''
 FOR X = 1 TO OrdCount()
	DbSetOrder(X) 
	cTEXTO += STR(X,2)+'-'+ORDKEY(INDEXORD()) + HB_EOL()
 NEXT
 Alert( cTexto ) //----------------------> Mostrou as  10 chaves lembrando q a útlima foi criada TEMPORARY

 //DbSetOrder(5)                                  //---> comentei essa parte pq queria ver o comportamento depois do DBCLOSEALL
 //OrdDestroy( ORDKEY(INDEXORD()) ) 

 DbCloseall()  //------------------------------> FECHEI TUDO

 Use ClienteS.DBF  alias Cli New Share
 cTEXTO := ''
 FOR X = 1 TO OrdCount()
  DbSetOrder(X) 
  cTEXTO += STR(X,2)+'-'+ORDKEY(INDEXORD()) + HB_EOL()
 NEXT
 Alert( cTexto ) //-----------------------------> Repeti o processo e note q o HBMEMIO foi requisitado, não teria q ter apagado no DBCLOSEALL o índice temporário????
RETURN NIL                                               //---> Esta com o REQUEST HBMEMIO q pelo q entendi da explicação faz na memória funcionar etc e ficar mais rápido mas não funciona a parte de apagar o ultimo indice temporário , somente se mudar de ordem na área e apagar a q foi criada??? É isso mesmo???

Código: Selecionar todos

function TstDesempenho()
   local nTotal := 0
   Use ConRec.dbf Alias ConRec New Share
   cTexto := ''
   FOR X:=1 TO ORDCOUNT()
      DBSETORDER(X)
      CTEXTO += STR(X, 2 ) + ' - ' + ORDKEY(INDEXORD()) + HB_EOL()
   NEXT
   ALERT(cTexto) // --> aki vemos q tem 12 Chaves...

   nSecIni := Seconds()
   dbsetfilter( { || ConRec->Cancelado == 'S' } )
   dbgotop()
   while !EOF()
       ntotal += ConRec->Valor
       skip
   end
   Alert( SecToTime(Seconds() - nSecINI) + ' ' + str(ntotal))
   //--> Resultado em 36 segundos

   //--> Repetindo o teste com IDX Temporario SEM HB_MEMIO
   nTotal := 0
   dbcloseall()
   Use ConRec.dbf Alias ConRec New Share
   cTexto := ''
   FOR X:=1 TO ORDCOUNT()
      DBSETORDER(X)
      CTEXTO += STR(X, 2 ) + ' - ' + ORDKEY(INDEXORD()) + HB_EOL()
   NEXT
   ALERT(cTexto) // --> aki vemos q tem 12 Chaves...

   nSecIni := Seconds()
   INDEX ON RECNO() TAG TEMP FOR CONREC->CANCELADO == 'S' ADDITIVE TEMPORARY
   dbgotop()
   while !EOF()
       ntotal += ConRec->Valor
       skip
   end
   Alert( SecToTime(Seconds() - nSecINI) + ' ' + str(ntotal))
   //--> Resultado em 27 segundos

  *-- Mostrando a bendita
  cTexto := ''
   FOR X:=1 TO ORDCOUNT()
      DBSETORDER(X)
      CTEXTO += STR(X, 2 ) + ' - ' + ORDKEY(INDEXORD()) + HB_EOL()
   NEXT
   ALERT(cTexto) // --> aki vemos q tem 13 Chaves... sendo a ultima a temporaria
  
   *-- Eliminando ela
   nOrdTmp := IndexOrd()
   cTagTmp := ordName(nOrdTmp)
   DbSetOrder(1)
   OrdDestroy( cTagTmp)
   
   dbCloseall()
return

Código: Selecionar todos

GO TOP
? seconds()
INDEX ON field->ref TAG REF TO TEMP TEMPORARY
? seconds()

Código: Selecionar todos

SET ORDER TO 0