Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Out of date (https://www.clubdelphi.com/foros/showthread.php?t=45720)

Taribus 12-07-2007 13:52:04
Out of date
 
Hola a todos, espero que me podais ayudar, vereis....

Hace ya tiempo hice una aplicacion para un amigo, que maneja tablas PARADOX y estaba realizada en D5, y ahora me dice que le sale "Out of date", recuerdo que tiene algo que ver con la direccion NET de la BDE y eso lo intentaré arreglar, pero para poder acceder a los datos de la tabla, es que he intentado acceder a traves del DBD32 y no me deja abrirla, es como si estuviese bloqueada.

Se puede acceder y reparar la tabla o sencillamente se han perdido todos los datos de la misma?.

Os agradeceria vuestra ayuda.

Un saludo,
Manuel.

roman 12-07-2007 17:56:43
Imagino que te refieres a "Index out of date". Es un error relativamente común cuando se desincronizan los índices y los datos. En sí no es grave pues los datos no se pierden; pero para arreglarlo tienes que borrar los índices, esto es, los archivos *.xg?, *.yg? y el problema puede estar en que, aunque logres abrir los datos, deberás volver a hacer los índices para que la aplicación funcione, así que debrás recordar cuáles eran todos ellos. Si tienes algún respaldo, aunque sea antiguo pero que sirva, úsalo para ver cuál era la estructura de los índices.

// Saludos

Arturo_ 12-07-2007 18:31:31
Index Out Date
 
// Este Procedimiento te Ayudara a reparar tus Indices estudialo y veraz...

Código Delphi [-]
procedure TForm_MAIN.SpeedButton_DATABASE_REPAIRClick(Sender: TObject);
var
  FILE_Attrs : Integer;
  SEARCH_Rec : TSearchRec;
  FILE_Name  : string;
  FILE_Ext   : string;
  procedure DELETE_DataFile(pmt_FILENAME: string);
  begin      
    {$I-}
    if (IOResult = 0) then
    begin
      if (SYSUTILS.FindFirst(Init_PATH_RED + '\' + pmt_FILENAME, FILE_Attrs, SEARCH_Rec) = 0) then
      begin
        repeat
          FILE_Name := UpperCase(ExtractFileName(SEARCH_Rec.Name));
          FILE_Name := Copy(FILE_Name, 1, Pos('.', FILE_Name) - 1);
          FILE_Ext := UpperCase(ExtractFileExt(SEARCH_Rec.Name));
          if ((SEARCH_Rec.Attr and FILE_Attrs) = SEARCH_Rec.Attr) and
             (FILE_Ext <> '.DB') and
             (FILE_Ext <> '.MB') then
            SYSUTILS.DeleteFile(Init_PATH_RED + '\' + SEARCH_Rec.Name);
        until (SYSUTILS.FindNext(SEARCH_Rec) <> 0);
        SYSUTILS.FindClose(SEARCH_Rec);
      end;
    end;
    {$I+}
  end;
begin
  // CREATE: Table_OFS and DataSource_OFS
  if (Tmp_TABLE_OFS = nil) then
  begin
    Tmp_TABLE_OFS := TTable.Create(Owner);
    Tmp_TABLE_OFS.Name := 'Tmp_TABLE_OFS';
    Tmp_TABLE_OFS.SessionName := 'Session_DELPHI_1';
    Tmp_TABLE_OFS.DatabaseName := 'DELPHI_Data';
    Tmp_TABLE_OFS.TableType := ttParadox;
    Tmp_TABLE_OFS.TableName := 'DDBTLM01.DB';
    Tmp_TABLE_OFS.MasterSource := nil;
    Tmp_TABLE_OFS.MasterFields := '';
    Tmp_TABLE_OFS.IndexFieldNames := '';
  end;
  if (Tmp_DS_OFS = nil) then
  begin
    Tmp_DS_OFS := TDataSource.Create(Owner);
    Tmp_DS_OFS.Name := 'Tmp_DS_OFS';
    Tmp_DS_OFS.DataSet := Tmp_TABLE_OFS;
    Tmp_DS_OFS.Enabled := True;
  end;
  // Init
  Gauge_DATABASE.Progress := 0;
  Gauge_DATABASE.MaxValue := 17;
  FILE_Attrs := (SYSUTILS.faReadOnly + SYSUTILS.faHidden
                + SYSUTILS.faSysFile + SYSUTILS.faVolumeID
                + SYSUTILS.faArchive + SYSUTILS.faAnyFile);
  // Execute >> Tables_DDBTLM
  if (CheckBox_Tables_DDBTLM.Checked) then
  begin
    // Table_DDBTLM01
    Tmp_TABLE_OFS.TableName := 'DDBTLM01.DB';
    DELETE_DataFile('DDBTLM01.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Table_Name', 'Table_Name', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_DDBTLM02
    Tmp_TABLE_OFS.TableName := 'DDBTLM02.DB';
    DELETE_DataFile('DDBTLM02.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0001_', 'LINK_0001;LINK_0001_', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0002_', 'LINK_0001;LINK_0001_;LINK_0002_', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0003_', 'LINK_0001;LINK_0001_;LINK_0002_;LINK_0003_', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0004_', 'LINK_0001;LINK_0001_;LINK_0002_;LINK_0003_;LINK_0004_', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0005_', 'LINK_0001;LINK_0001_;LINK_0002_;LINK_0003_;LINK_0004_;LINK_0005_', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0006_', 'LINK_0001;LINK_0001_;LINK_0002_;LINK_0003_;LINK_0004_;LINK_0005_;LINK_0006_', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0007_', 'LINK_0001;LINK_0001_;LINK_0002_;LINK_0003_;LINK_0004_;LINK_0005_;LINK_0006_;LINK_0007_', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0008_', 'LINK_0001;LINK_0001_;LINK_0002_;LINK_0003_;LINK_0004_;LINK_0005_;LINK_0006_;LINK_0007_;LINK_0008_', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0009_', 'LINK_0001;LINK_0001_;LINK_0002_;LINK_0003_;LINK_0004_;LINK_0005_;LINK_0006_;LINK_0007_;LINK_0008_;L  INK_0009_', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_MUS
    Table_MUS.Close;
    Tmp_TABLE_OFS.TableName := 'MUSICAS.DB';
    DELETE_DataFile('MUSICAS.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Ord', 'MUSIC_Order', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    Table_MUS.Open;
  end;
  // Execute >> Tables_ECAM
  if (CheckBox_Tables_SYSTEM.Checked) then
  begin
    // Table_PRJ
    Tmp_TABLE_OFS.TableName := 'EMPPRJ.DB';
    DELETE_DataFile('EMPPRJ.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Fec', 'Fecha', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_Prj', 'Proyecto', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_CVMMOV
    Tmp_TABLE_OFS.TableName := 'CVMMOV.DB';
    DELETE_DataFile('CVMMOV.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Fec', 'LINK_0001;Fecha', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_CVMITM
    Tmp_TABLE_OFS.TableName := 'CMVITM.DB';
    DELETE_DataFile('CVMMOV.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002;LINK_0003', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Itm', 'LINK_0001;LINK_0002;Item', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_STDANO
    Tmp_TABLE_OFS.TableName := 'STDANO.DB';
    DELETE_DataFile('STDANO.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Ano', 'LINK_0001;Ano', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_STDMES
    Tmp_TABLE_OFS.TableName := 'STDMES.DB';
    DELETE_DataFile('STDMES.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002;LINK_0003', [ixPrimary]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_KDXALM
    Tmp_TABLE_OFS.TableName := 'KDXALM.DB';
    DELETE_DataFile('KDXALM.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Alm', 'LINK_0001;Almacen', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_KDXPRD
    Tmp_TABLE_OFS.TableName := 'KDXPRD.DB';
    DELETE_DataFile('KDXPRD.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002;LINK_0003', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Prd', 'LINK_0001;LINK_0002;Producto', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_KDXHTR
    Tmp_TABLE_OFS.TableName := 'KDXHTR.DB';
    DELETE_DataFile('KDXHTR.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002;LINK_0003;LINK_0004', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Fec', 'LINK_0001;LINK_0002;LINK_0003;Fecha', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0002_', 'LINK_0001;LINK_0002;LINK_0003;LINK_0002_', [ixCaseInsensitive]);
    Tmp_TABLE_OFS.AddIndex('ID_LINK_0003_', 'LINK_0001;LINK_0002;LINK_0003;LINK_0002_;LINK_0003_', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_MTRPRT
    Tmp_TABLE_OFS.TableName := 'MTRPRT.DB';
    DELETE_DataFile('MTRPRT.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Tip', 'LINK_0001;Tipo', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_MTRPRD
    Tmp_TABLE_OFS.TableName := 'MTRPRD.DB';
    DELETE_DataFile('MTRPRD.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002;LINK_0003', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Prd', 'LINK_0001;LINK_0002;Producto', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_MTRCLT
    Tmp_TABLE_OFS.TableName := 'MTRCLT.DB';
    DELETE_DataFile('MTRCLT.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Nom', 'LINK_0001;Nombres', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_MTRPRV
    Tmp_TABLE_OFS.TableName := 'MTRPRV.DB';
    DELETE_DataFile('MTRPRV.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002', [ixPrimary]);
    Tmp_TABLE_OFS.AddIndex('ID_Nom', 'LINK_0001;Nombres', [ixCaseInsensitive]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_MTRIMP
    Tmp_TABLE_OFS.TableName := 'MTRIMP.DB';
    DELETE_DataFile('MTRIMP.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001;LINK_0002', [ixPrimary]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
    // Table_BNKFLT
    Tmp_TABLE_OFS.TableName := 'BNKFLT.DB';
    DELETE_DataFile('BNKFLT.*');
    Tmp_TABLE_OFS.AddIndex('', 'LINK_0001', [ixPrimary]);
    Gauge_DATABASE.Progress := Gauge_DATABASE.Progress + 1;
  end;
  // Done
  Gauge_DATABASE.Progress := 17;
  // DESTROY: Objects_EMP
  if (Tmp_TABLE_OFS <> nil) then
  begin
    Tmp_TABLE_OFS.Close;
    Tmp_TABLE_OFS.Free;
    Tmp_TABLE_OFS := nil;
  end;
  if (Tmp_DS_OFS <> nil) then
  begin
    Tmp_DS_OFS.Free;
    Tmp_DS_OFS := nil;
  end;
end;

Taribus 12-07-2007 20:00:50
Hola.

Muchas gracias a los dos.

Comprobare el codigo que me habeis planteado.

Un saludo.
Manuel.


La franja horaria es GMT +2. Ahora son las 07:40:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi