Código para reindexar una base de datos

On Fri, 27 Aug 2004 11:52:15 +0200, " José Luis" <JLB> wrote:

tengo que realizar una aplicación para reindexar una base de datos y no se
como hacer este proceso, alguién me podria echar una mano?

Para indexar tablas (no BD que es otra cosa), mira el comando INDEX ON
en la ayuda.

No uses el comando REINDEX el que es peligroso ya que depende de la
información en el encabezado del archivo, el que puede estar corrupto.

Como sabes, debes tener acceso exclusivo a estas tablas, por lo que es
una acción de mantenimiento fuera de horas y esporádica en una
aplicación multiusuario.

HTH



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)

espero que te sirva esta formulita... si quieres lo compias y lo pegas en tu
programacion lo unico que haras es cambiar los nombre de las tablas y
sus indices

**
*| PROCEDIMIENTO PARA REINDEXAR LAS TABLAS |
**
PROCEDURE reindexar
?? CHR (7)
resp = MESSAGEBOX ("Se dispone a regenerar los índices " +CHR(13)+;
"Si está seguro de hacerlo presione Aceptar" +CHR(13)+;
"para comenzar Operación de Reindixar", 17+256, "Reindixar tablas...")
IF (resp = 1)
DO REINDEXANDO WITH 'nombretabla','campoclave' && asi haras con el resto
de las tablas y sus indices claves
DO REINDEXANDO WITH 'mitabla','miclave'
WAIT "Proceso Reindizar Finalizado..." WIND NOWAIT
ENDIF
ENDPROC

*-*
*| PROCEDIMIENTO PARA CHEQUEO DE LAS TABLAS PARA REINDEXAR |
*-*
PROCEDURE REINDEXANDO
PARAMETERS gntabla,gnmens

IF !USED(gntabla) THEN
USE &gntabla IN 0 EXCL
ELSE
RETURN
ENDIF
SELEC &gntabla
WAIT "Generando indice de : "+gnmens WINDOW NOWAIT
REINDEX
USE
ENDPROC


cualquier cosa me avisas

Saludos

Alexander Jimenez
Analista de Sistemas
Glassven, C.A
msn y E-mail:
movil: 0416 7393625
Maracay-Venezuela

" José Luis" <JLB> escribió en el mensaje
news:#

Hola a todos,

tengo que realizar una aplicación para reindexar una base de datos y no se
como hacer este proceso, alguién me podria echar una mano?

Gracias por anticipado.

Un saludo,
José Luis.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.744 / Virus Database: 496 - Release Date: 24/08/2004

Gracias a ambos,

voy a probar lo que me habéis indicado.

un saludo,
José Luis.

" José Luis" <JLB> escribió en el mensaje
news:#

Hola a todos,

tengo que realizar una aplicación para reindexar una base de datos y no se
como hacer este proceso, alguién me podria echar una mano?

Gracias por anticipado.

Un saludo,
José Luis.

al revisar el foro y leer esto me preocupó:
"No uses el comando REINDEX el que es peligroso ya que depende de la
información en el encabezado del archivo, el que puede estar corrupto"
ya que to utilizo este código para hacer un supuesto matenimiento

SET DEFAULT TO &CADENA
CLOSE all DATABASES
OPEN DATABASE &Ruta EXCLUSIVE VALIDATE
VALIDATE DATABASE TO FILE reindexa

esto para supuestamente corregir el problema que me pasa muy frecuentemente
cuando la maquina se cuelga con el sistema abierto, entonces empieza a dar
problemas tales como que el registro del cliente esta en la tabla pero no lo
ven algunas busquedas en algunos modulos.
Como podría entonces solucionar este problema ya que esto sucede mucho.
D antemano gracias..