● c++builer 中如何给Table减肥 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: jek (好好学习天天向上), 信区: Program
标  题: c++builer 中如何给Table减肥
发信站: BBS 荔园晨风站 (Tue Mar 14 13:13:45 2000), 转信

如何给Table减肥.

用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函数说明

--
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.118]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店