如何给Table减肥

韩冰

用BCB进行多媒体数据库开发时常会发现这样一个现象，当你把一条记录从表中删除时，表的大小并没有相应减小。这样在进行多次插入删除之后，表文件就会越来越庞大。之所以会有这种现象，是因为TTable控件的 ( S# v- ~! X3 |# LDelete 9 I' J3 i# q, m8 FMethod并不真正从表中删除记录，而只是在记录前加上一个删除标志。在DBase和Foxpro中有Pack语句对表进行压缩，但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩，但是这个函数对Paradox的表不起作用。要想给Paradox $ Q1 Z& }' w5 ]. ?; P表减肥得用DbiDoRestructure函数来完成，以下例程完成Pack Paradox表的功能。 9 k0 m" l x% \% V, \+ N6 @ 0 T; a0 a) H" G) u) @ B: q//This function Pack the Paradox table. write by zodiac % n( ~9 t, w5 d3 n: zvoid __fastcall TForm1:ackParadoxTable(hDBIDb hDB, AnsiString TblName) & |9 q1 \& \4 U: f{ //Paradox table use a quite different way to be packed than //DBase or Foxpro table, it use the DBiDoRestructure not the // DBiPackTable - R- A& [% o7 r* H DBIResult rslt; - q7 d2 X: D3 l; @" C CRTblDesc TblDesc; //filled the structure CRTbiDesc with 0 memset((void *)&TblDesc,0,sizeof(CRTblDesc)); //copy the table name and type to the structure ; l, g% p0 G" w+ X3 G lstrcpy(TblDesc.szTblName,TblName.c_str()); / a, n, I r) |: I' h lstrcpy(TblDesc.szTblType,szPARADOX); //set bPack to true to specify Pack Function TblDesc.bPack=true; ; d0 [0 o7 S$ f& R d7 q //Pack the table rslt=DbiDoRestructure(hDB,1,&TblDesc,NULL,NULL,NULL,false); ) Y( a( m/ _/ y3 U if(rslt!=DBIERR_NONE) Application->MessageBox("不能压缩表", ( h! M: z0 M9 A# P8 D "压缩数据表出错",MB_ICONERROR); + X# V1 N5 t3 _3 C/ L7 H! E3 M( v} 注意，在Restructure之前，表必须处于关闭状态。以下例程调用PackParadoxTable. void __fastcall TForm1:ackTable(AnsiString table_name) { , ^ z' d" S- k: Y6 q ^ H, ? //Pack the table TTable *temp_table=new TTable(Form1); temp_table->DatabaseName="YourDatabaseAlias"; temp_table->TableName=table_name; temp_table->Exclusive=true; 0 j: O$ C/ e/ D0 {$ N" ^ temp_table->Open(); ' e6 @7 F* p r; d //get the Database Handle hDBIDb hDB=temp_table->DBHandle; : j, d8 ^: l& @' @/ D temp_table->Close(); PackParadoxTable(hDB,table_name); * v1 G* R& a2 _+ o temp_table->Close(); temp_table->Free(); % Y& D* p* G% @} 9 [* M9 \& {2 c5 ` 5 w. ~% x& b+ c G) v9 u8 l7 n; t2 R, x 对Foxpro和DBase的Pack参见BDE API Help的DbiPackTable函数说明。