如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 # [; K( v$ ], G0 `" a4 x, ~+ {Delete Method并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox $ g2 o6 i# q, `) H! M表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 3 P! X+ C* @/ j" k//This function Pack the Paradox table. write by zodiac * |$ J6 c" \/ `void __fastcall TForm1:ackParadoxTable(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 1 K1 x x# o0 f- e8 M& ^( Z" | DBIResult rslt; CRTblDesc TblDesc; ) P2 G" C+ ~7 J* ~; f, s" q //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); ; o" e4 }; U1 N0 l //copy the table name and type to the structure lstrcpy(TblDesc.szTblName,TblName.c_str()); ! @# X4 j- o. ~: y9 M& W lstrcpy(TblDesc.szTblType,szPARADOX); 4 e# C3 P5 n% S1 o. i9 P //set bPack to true to specify Pack Function + V$ {/ [0 }: S! E% c3 i# C TblDesc.bPack=true; //Pack the table ; Y/ @) d4 q" g3 R rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", "压缩数据表出错",MB_ICONERROR); 1 k' u0 W+ W/ m! h} 注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. $ J/ l/ |# z# i- M. | ( z2 e% R; a7 |8 t) y# V% Mvoid __fastcall TForm1:ackTable(AnsiString table_name) { //Pack the table & M {) T9 u( @! Z+ g8 } s: F2 K TTable *temp_table=new TTable(Form1); temp_table->DatabaseName="YourDatabaseAlias"; 4 G5 T2 N$ v8 F+ c6 A5 |; H& b temp_table->TableName=table_name; temp_table->Exclusive=true; temp_table->Open(); & O2 x; ?. ?9 k8 }3 U/ _ //get the Database Handle hDBIDb hDB=temp_table->DBHandle; temp_table->Close(); PackParadoxTable(hDB,table_name); 3 c( _1 \: h( a 7 d, o# V# R) U) u0 G temp_table->Close(); * J( W! k: H& p& Q, W6 l. N temp_table->Free(); , t. F2 y9 q z# ?) F" k* z} . C; t* m% n4 I* p 对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。