<b>BCB中若何给Table减肥</b>[VC/C++编程]

用BCB举行多媒体数据库开辟经常会发现这样一个现象,当你把一条记录从表中删除时,表档 大小并没有呼应减小.这样在举行多次插入删除之后,表文件就会越来越宏大.之所以会呈现这种现象,是因为TTable控件的 Delete Method并不真正从表中删除记录,而只是在记录前加上一个删除标志.在DBase和Foxpro顶用Pack语句对表举行压缩,但在TTable类中却没有呼应的函数.其实在BDE的API函数中已经供应了DbiPackTable来对DBase或Foxpro表举行压缩,但是这个函数对Paradox的表不起作用.要想给Paradox 表减肥得用DbiDoRestructure函数来完成,以下例程完成Pack Paradox表的功效.

//This function Pack the Paradox table. write by zodiac
void __fastcall TForm1::PackParadoxTable(hDBIDb hDB, AnsiString TblName)
{
//Paradox table use a quite different way to be packed than
//DBase or Foxpro table, it use the DBiDoRestructure not the
// DBiPackTable
DBIResult rslt;
CRTblDesc TblDesc;
//filled the structure CRTbiDesc with 0
memset((void *)&TblDesc,0,sizeof(CRTblDesc));
//copy the table name and type to the structure
lstrcpy(TblDesc.szTblName,TblName.c_str());
lstrcpy(TblDesc.szTblType,szPARADOX);
//set bPack to true to specify Pack Function
TblDesc.bPack=true;
//Pack the table
rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false);
if(rslt!=DBIERR_NONE)
Application->MessageBox("不能压缩表","压缩数据表出错",MB_ICONERROR);
}

注意,在Restructure之前,表必须处于关闭状况.以下例程调用PackParadoxTable.

void __fastcall TForm1::PackTable(AnsiString table_name)
{
//Pack the table
TTable *temp_table=new TTable(Form1);
temp_table->DatabaseName="YourDatabaseAlias";
temp_table->TableName=table_name;
temp_table->Exclusive=true;
temp_table->Open();
//get the Database Handle
hDBIDb hDB=temp_table->DBHandle;
temp_table->Close();
PackParadoxTable(hDB,table_name);
temp_table->Close();
temp_table->Free();
}

对Foxpro和DBase的Pack拜见BDE API Help的DbiPackTable函数阐明.