Reindexar Tablas Paradox (Principiante)

[jmedina]

Buen Dia:

He revisado algunos hilos, y el truco 339 de trucomania, pero no me queda muy claro coomo utilizar el codigo, en donde ponerlo, que parametros hay que asignarle.

Alguien me puede ayudar no soy muy bueno en esto , solo se que hago pininos, lo que pretendo reindexar son aproximadamente 4 tablas, espero me ayuden y me proporcionen una lineas de codigo explicadas,

_Gracias,

Saludos
Jmedina

[marcoszorrilla]

Aquí tienes un ejemplo:

Código Delphi [-]
  unit Unit1;
  
  interface
  
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls,Db, DBTables,  Bde;
   
  type
    TForm1 = class(TForm)
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.DFM}
  
  procedure RegeneraIdx(Const ADatabase, ATable : String);
  begin
   with TTable.Create(nil) do 
    try
     DatabaseName := ADataBase;
      TableName := ATable;
      Exclusive := True;
      Open;
      Check(DbiRegenIndexes(Handle));
    finally
     Free;
    end; 
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
   RegeneraIdx('DbDemos', 'Customer.db');
  end;

Un Saludo.

[roman]

Nada más agregar que dbiRegenIndexs no siempre va a dar resultado. Muchas veces no queda más remedio que borrar manualmente los archivos de índice (que se llaman igual que la tabla pero con extensión px, xg0, xg1, yg0, yg1) y volverlos a crear. Al borrar estos archivos no se pierden los datos en sí de la tabla. Y puedes automatizar este proceso programando una rutina que se encargue de borrar los archivos y utilizando el método AddIndex de la componente TTable para crearlos por código.

// Saludos