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

Board index FiveWin para Harbour/xHarbour como saber si el indice esta bien con su base de datos

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

como saber si el indice esta bien con su base de datos
Posted: Wed Oct 25, 2017 09:40 PM

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: como saber si el indice esta bien con su base de datos
Posted: Wed Oct 25, 2017 09:54 PM

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

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: como saber si el indice esta bien con su base de datos
Posted: Thu Oct 26, 2017 07:09 AM

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: como saber si el indice esta bien con su base de datos
Posted: Thu Oct 26, 2017 12:08 PM

Code (fw): Select all Collapse

   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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: como saber si el indice esta bien con su base de datos
Posted: Thu Oct 26, 2017 03:05 PM

hmpaquito wrote: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 (fw): Select all Collapse

#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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion