Ayuda con porgrama para reidexar indices de tablas

[rjh71]

Saludos y bendiciones amigos foxeros,
disculpen la molestia pero alguien tendra un programa para reindexar
tablas.
Lo que necesito es un programa de ejemplo, yo trabajo con visual
foxpro 9.0 en windwos 7 y me gustaria si tienen un programa ya hecho
para poderlo poner en mi sistema de facturacion.

De antemano les doy las gracias y disculpen por las molestias, mi
correo es rudolf...@hotmail.com me lo pueden mandar ahi.

saludos,
rudy.

[Jonathan Bolivar Francisco Dominguez]

Buen Día. 

Trata de no trabajar con índices ya yo no lo uso.

pero crea un form que se llame mant. de indices.

en el boton aceptar le hace estos. YO LO HARIA TABLA POR TABLA PARA ASEGURARME QUE TODO ESTE BIEN.

*--------------------------------------TABLA DE  CAMAS------------------------------------

USE &RDATOS\CAB_CAMAS EXCLUSIVE

ERASE INDEX CAMTIPO

ERASE INDEX CAMNOM

ERASE INDEX CAMCOD

INDEX ON TIP_CAM  TAG CAMTIPO

INDEX ON CAM_NOM TAG CAMNOM

INDEX ON CAM_COD TAG CAMCOD

USE

*--------------------------------------TABLA DE  SABANAS------------------------------------

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.

Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com

[Intel Man]

Hola, interesante lo que dices de no usar indices, usas dbf's? dbc? servidor de base de datos? cuantos registros aproximadamente tienen tus tablas?

Yo tengo tablas de mas de 500000 registros y si no uso indices estas se vuelven muyyyyyyyy lentas incluso usando sentecias SQL

Saludos

---

Date: Thu, 2 Sep 2010 08:01:27 -0400
Subject: Re: [Mundo Visual FoxPro] Ayuda con porgrama para reidexar indices de tablas
From: master...@gmail.com
To: mundovis...@googlegroups.com

[Oscar Díaz]

Buenos dias Rudy:

 

Yo lo hago así.

 

* modulo reindexar las tablas

if messagebox("Todos deben estar fuera del programa "+chr(13)+;
              "Está seguro(a) de recrear indices ?",292,"Reindexar:") = 6  && SI
  close tables
  gnDbcnumber = ADIR(gaBaseDatos, '*.DBF')  && Crea la matriz.
  FOR nCount = 1 TO gnDbcnumber  && Bucle para obtener el número de bases de datos.
    wait window "Reindexando tabla "+gaBaseDatos(nCount,1)+"..." nowait
    if substr(gaBaseDatos(nCount,1),1,7) <> "FOXUSER"
      select 0
      use (gaBaseDatos(nCount,1)) excl && Muestra los nombres de base de datos.

* las siguientes 2 lineas es por se quieren borrar los registros en blanco, que normalmente

* borro los registros con blank.

*      campo=field(1)
*      dele all for empty(&campo)  && Borra registros en blanco
*

      pack
      use
    endif
  ENDFOR

  ?? chr(7)
  messagebox("La recreación de indices finalizó con Exito",64,"Finalizó:")
 
endif

 

Espero le sirva, Exitos...

 

Oscar Díaz

Bogotá - Colombia

 

 

[rudolf...@hotmail.com]

Hola Oscar muy bueno tu comentario lo voy a aplicar, lo que yo queria era un programita con una barra de conteo de reindexado, algo que sea bonito tipo windows, no se como hacerlo, en la seccion programas encontre una barra pero no es lo que busco, hay programas que tienen una barra verde pequenia en la mano derecha abajo y te va diciendo como va el reindexado, algo asi busco, no se i tendran algo como eso.

bueno gracias y si hay algo me lo envian porfavor se los agradeseria mucho.

 

saludos desde alemania,

rudy.

[Oscar Díaz]

Hola Rudy:

 

NO tengo lo que necesitas, me gustaría hacer lo mismo.

De pronto algún colega que lo tenga y lo envie, se lo agradeceriamos...

 

Exitos...

 

Oscar Díaz desde Colombia

--

[Jonathan Bolivar Francisco Dominguez]

LO K HAGO ES SENTENCIA SQL  PERO SI MI SISTEMA ESTA EN REDES INSTALO EL SISTEMA EN UN WINDOWS SERVER 2003 Y EJECUTO EL SISTEMA DE CADA PC COMO UN SESION DE TERMINAL SERVER AL SERVIDOR PERO LE DIGO QUE NADA MAS QUIERO EL SISTEMA. YO TENGO MAS 700,000 REGISTROS.

[Miguel Canchas]

SIN INDICES????

 

Acaso lo quieres hacer cada vez que consulta ?

 

Eso lo tiene que compartir.

 

MK