Club Builder

[erik]

Hola,

quisiera saber como puedo dar opciones de mantenimiento a una aplicación que maneja tablas paradox de forma local con paradox,

por si alguna de las tablas se llegan a corromper.

Estoy reaalizando una aplicación que manjea algunas tablas paradox en forma local con el BDE.

Me gustaría agregarle algunas opciones que la hagan más robusta, por ejemplo si se produce un corte de luz o situación inesperada, por ejemplo reindexarla o algo por el estilo.

gracias

Adrián

[Bep]

Para reindexarla lo que tienes que hacer es:

-cerrar la tabla.
-borrar los ficheros de indice associados a la tabla (Nombre.xg? Y Nombre.yg?).
-borrar la definición de índices:
Taula->IndexDefs->Clear();
-volver a definir los índices por ejemplo:

Taula->AddIndex("","Data;Hora;Diferent",TIndexOptions() << ixPrimary,"");
Taula->AddIndex("NomTax","Nom",TIndexOptions() << ixCaseInsensitive,"");
Taula->AddIndex("ParTax","ParadaActual;Data;Hora",TIndexOptions() << ixCaseInsensitive,"");

-abrir la tabla

Espero que te ayude
Un abrazo

Bep.

[erik]

si, pero se puede hacer todo eso desde el código

[Bep]

-cerrar la tabla.

Taula->Close();

-borrar los ficheros de indice associados a la tabla (Nombre.xg? Y Nombre.yg?).
Por ejemplo:

AnsiString Nom = Taula->TableName.SubString(1,Taula->TableName.Length()-3);

DeleteFile(Nom + ".PX");
for (char i= '0';i < '3';i++) // Número de índices secundarios
{
DeleteFile(Nom + ".XG" + AnsiString(i));
DeleteFile(Nom + ".YG" + AnsiString(i));
}
}

-borrar la definición de índices:

Taula->IndexDefs->Clear();

-volver a definir los índices por ejemplo:

Taula->AddIndex("","Data;Hora;Diferent",TIndexOptions() << ixPrimary,"");
Taula->AddIndex("NomTax","Nom",TIndexOptions() << ixCaseInsensitive,"");
Taula->AddIndex("ParTax","ParadaActual;Data;Hora",TIndexOptions() << ixCaseInsensitive,"");

-abrir la tabla

Taula->Open();

Saludos

Bep.