como saber si el indice esta bien con su base de datos

[Patricio Avalos Aguirre]

Estimados

Hoy me ha pasado algo raro mi programa no localizaba un producto pero si estaba en la tabla y al parecer no se habia actualizado el indice
alguna forma de chequear si esta los indices correctos o corructos

utiliza DBF Y CDX

[Rick Lipkin]

Patricio

Just curious .. I hope you are using the compound Cdx and not a single or multiple Idx(s) ? If you are using Idx .. only the OPEN index will be updated .. otherwise using Cdx .. when you complete an Append or Edit a record .. are you issuing a DbCommit() ?

DbCommitt() is a 'hard disk' write which also forces the ( compound ) Cdx index to be updated as well... especially in a multi-user application.

Rick Lipkin

[hmpaquito]

En su dia hice rutinas al respecto que fueron un desastre.

¿ Desastre ? Si, porque eran super lentas. Mucho mas lentas que reconstruir los indices.
Lo que hacia era comprobar que &( Indexkey(nTag) ) == OrdKeyVal() para cada registro y para cada tag del indice.

Luego pensé en hacerlo sólo con los últimos registros, porque serían los más susceptibles de estar desindexados...

Al final lo dejé como causa perdida.

[karinha]

Code: Select all  Expand view

   SELECT CADCLIEN
   SET ORDER TO 01

   IF ORDKEYCOUNT() # RECCOUNT()
      VERIFY_CDX( "CADCLIEN" )
   ENDIF


// Verifica .CDX
FUNCTION VERIFY_CDX( XNOMBREARQ )

   MsgInfo( "Atencion... Problemas en el indice", "Atencion..."  )

RETURN NIL
 

Saludos.

[karinha]

En su dia hice rutinas al respecto que fueron un desastre.

¿ Desastre ? Si, porque eran super lentas. Mucho mas lentas que reconstruir los indices.
Lo que hacia era comprobar que &( Indexkey(nTag) ) == OrdKeyVal() para cada registro y para cada tag del indice.

Luego pensé en hacerlo sólo con los últimos registros, porque serían los más susceptibles de estar desindexados...

Al final lo dejé como causa perdida.

hmpaquito, algo asi?

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION DISPLAYKEYS()

   FIELD First

   LOCAL cKey, cFirst, cLast, cAlias, nTag

   USE Customer NEW
   INDEX ON First TAG nTag TO LastFir

   GO TOP

   cAlias := ALIAS()

   WHILE !EOF()

      cKey := ( cAlias )->( ORDKEYVAL() )    // Get key
                                             // value
      cLast := LEFT(cKey, 20)                // Get last
                                             // name
      cFirst := RIGHT(cKey, 20)              // Get first
                                             // name

      IF  &( Indexkey(nTag) ) == OrdKeyVal()

         // NADA A HACER

      ELSE

         // ? cLast, cFirst

         ? "Problemas en el indice .CDX?"

         RETURN NIL

      ENDIF

      DBSKIP()

      SYSREFRESH()

   ENDDO

   CLOSE

RETURN NIL
 

Regards, saludos.