Compactar tabelas paradox

Delphi

17/01/2004

Alguém conhece alguma rotina para compactar tabelas paradox?

Se alguém souber favor me ajude.

[b:c2f5c8119f]Titulo editado pelo Moderador (AZ) - Removido: ´COMPACTAR TABELAS PARADOX´[/b:c2f5c8119f]


Josimar

Josimar

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

17/01/2004

Colega,

function dgPackParadoxTable(Tbl: TTable; Db: TDatabase):DBIResult;
{Packs a Paradox table by calling the BDE
 DbiDoRestruct function. The TTable passed as the
 first parameter must be closed. The TDatabase passed
 as the second parameter must be connected.}
var
  TblDesc: CRTblDesc;
begin
  Result := DBIERR_NA;
  FillChar(TblDesc, SizeOf(CRTblDesc), 0);
  StrPCopy(TblDesc.szTblName, Tbl.TableName);
  TblDesc.bPack := True;
  Result := DbiDoRestructure(Db.Handle, 1, @TblDesc, nil, nil, nil,
False);
end;



GOSTEI 0
POSTAR