Reindexar y compactar tablas Paradox
Reindexar y compactar tablas Paradox
Hola estoy haciendo una aplicación de base de datos en red en delphi estoy utilizando tablas paradox y necesito reindexar y compactar la tablas y no se como hacerle me gustaría que me ayudaras a como hacerlo.
Gracias
Ariel
Hola estoy haciendo una aplicación de base de datos en red en delphi estoy utilizando tablas paradox y necesito reindexar y compactar la tablas y no se como hacerle me gustaría que me ayudaras a como hacerlo.
Gracias
Ariel
1 Respuesta
Respuesta de antipauli
1
Incluye 'bde' en el uses de tu form y utiliza esta función para compactarla:
Procedure PackParadox(Const ADatabase, ATable : String);
var
ADB :TDataBase;
SaveKC : Boolean;
PdxStruct : CRTblDesc;
Begin
with TTable.Create(nil) do
try
DatabaseName := ADatabase;
TableName := ATable;
Exclusive := True;
Open;
ADB := DAtabase;
SaveKC := ADB.KeepConnection;
ADB.KeepConnection := True;
try
Close;
FillChar(PdxStruct,SizeOF(PdxStruct),0);
StrPCopy(PdxStruct.szTblName,ATable);
PdxStruct.bPack := True;
Check(DbiDoRestructure(ADB.Handle,1,
@PdxStruct,nil,nil,nil,False));
finally
ADB.KeepConnection := SaveKC;
end;
finally
Free;
end;
End;
Ejemplo de llamada:
PackParadox('Alias','Table1');
Procedure PackParadox(Const ADatabase, ATable : String);
var
ADB :TDataBase;
SaveKC : Boolean;
PdxStruct : CRTblDesc;
Begin
with TTable.Create(nil) do
try
DatabaseName := ADatabase;
TableName := ATable;
Exclusive := True;
Open;
ADB := DAtabase;
SaveKC := ADB.KeepConnection;
ADB.KeepConnection := True;
try
Close;
FillChar(PdxStruct,SizeOF(PdxStruct),0);
StrPCopy(PdxStruct.szTblName,ATable);
PdxStruct.bPack := True;
Check(DbiDoRestructure(ADB.Handle,1,
@PdxStruct,nil,nil,nil,False));
finally
ADB.KeepConnection := SaveKC;
end;
finally
Free;
end;
End;
Ejemplo de llamada:
PackParadox('Alias','Table1');
