delphiѹËõACCESSÊý¾Ý¿âʱ³öÏÖ´íÎó

function CompactDatabase(AFileName,APassWord:string):boolean;
//ѹËõÓëÐÞ¸´Êý¾Ý¿â,¸²¸ÇÔ´Îļþ
const 
SConnectionString='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'+'Jet OLEDB:Database Password=%s;';
var
  SPath,SFile:Array  [0..254]  Of  Char;
  STempFileName:string;
  vJE:OleVariant;
begin
  GetTempPath(40,SPath);//È¡µÃWindowsµÄTemp·¾¶
  GetTempFileName(SPath,'~CP',0,SFile);//È¡µÃTempÎļþÃû,Windows½«×Ô¶¯½¨Á¢0×Ö½ÚÎļþ
  STempFileName:=SFile;//PChar->String
  DataTxRx.adoconnection1.ConnectionString:='';
  DeleteFile(STempFileName);//ɾ³ýWindows½¨Á¢µÄ0×Ö½ÚÎļþ
try

vJE:=CreateOleObject('JRO.JetEngine');
vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]), format(SConnectionString,[STempFileName,APassWord]));  //³ö´í£¬£¬ÌáʾÊý¾Ý¿âΪ¶Àռʽ´ò¿ª
  result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
  DeleteFile(STempFileName);
  except
  result:=false;
  end;
  end;

---

ÄãµÄÊý¾Ý¿âÒѾ­±»´ò¿ª£¬Ñ¹Ëõʱ²»ÄܶÔÒÑ´ò¿ªµÄÊý¾Ý¿â²Ù×÷

---

ÒýÓÃ

ÄãµÄÊý¾Ý¿âÒѾ­±»´ò¿ª£¬Ñ¹Ëõʱ²»ÄܶÔÒÑ´ò¿ªµÄÊý¾Ý¿â²Ù×÷

ÎÒÉÏÃæÒѾ­É¾³ýÁ¬½ÓÁË°¡£¡£¡£¡
DataTxRx.adoconnection1.ConnectionString:=&#