Page 1 of 1
como saber si el indice esta bien con su base de datos
Posted:
Wed Oct 25, 2017 9:40 pmby 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
Re: como saber si el indice esta bien con su base de datos
Posted:
Wed Oct 25, 2017 9:54 pmby 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
Re: como saber si el indice esta bien con su base de datos
Posted:
Thu Oct 26, 2017 7:09 amby 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.
Re: como saber si el indice esta bien con su base de datos
Posted:
Thu Oct 26, 2017 12:08 pmby 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.
Re: como saber si el indice esta bien con su base de datos
Posted:
Thu Oct 26, 2017 3:05 pmby karinha
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: 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.