请问如何实现Access数据库 的 压缩与 修复？？？

Question

请问如何实现Access数据库 的 压缩与 修复？？

Answer 1

function TfrmMain.CompactAndRepair(sOldMDB, sNewMDB, psw: string;
  password: boolean): Boolean;
const
  sProvider='Provider=Microsoft.Jet.OLEDB.4.0;';
var
  oJetEng:JetEngine;
begin
  if password then
    sOldMDB:=sProvider+'Data Source='+sOldMDB+';jet oledb:database password="'+psw+'"'
  else
    sOldMDB:=sProvider+'Data Source='+sOldMDB;  if password then
     sNewMDB:=sProvider+'Data Source='+sNewMDB+';jet oledb:database password="'+psw+'"'
  else
     sNewMDB:=sProvider+'Data Source='+sNewMDB;
  try
    oJetEng:=CoJetEngine.Create;
    oJetEng.CompactDatabase(sOldMDB, sNewMDB);
    oJetEng:=Nil;
    Result:=True;
  except
    oJetEng:=Nil;
    Result:=False;
  end;end;
==================
另外，你在这搜索一下，会有很多解答的

Answer 2

如何引用Microsoft Jet and Replication Objects 2.5 Library' or later 
// C:\Program Files\Common Files\System\ADO\msjro.dll 
编译通不过, 求解!!!

Answer 3

Function CompactAndRepair(sOldMDB:String;sNewMDB:String;psw:string;password:boolean):Boolean;
const
  sProvider='Provider=Microsoft.Jet.OLEDB.4.0;';
var
  oJetEng:JetEngine;
begin
  if password then
    sOldMDB:=sProvider+'Data Source='+sOldMDB+';jet oledb:database password="'+psw+'"'
  else
    sOldMDB:=sProvider+'Data Source='+sOldMDB;
    
  if password then
     sNewMDB:=sProvider+'Data Source='+sNewMDB+';jet oledb:database password="'+psw+'"'
  else
     sNewMDB:=sProvider+'Data Source='+sNewMDB;
  try
    oJetEng:=CoJetEngine.Create;
    oJetEng.CompactDatabase(sOldMDB, sNewMDB);    
    oJetEng:=Nil;
    Result:=True;
  except
    oJetEng:=Nil;
    Result:=False;
  end;
end; {10.CompactAndRepair(压缩Access数据库，用到JRO_TLB单元,可按下面方法加入)   }
{ a) 在Delphi IDE中选择Project - Import Type Library.                      }
{ b) 往下翻直到你找到“Microsoft Jet and Replication Objects 2.1 Library”.}

Answer 4

{10.CompactAndRepair(压缩Access数据库，用到JRO_TLB单元,可按下面方法加入)   }
{ a) 在Delphi IDE中选择Project - Import Type Library.                      }
{ b) 往下翻直到你找到“Microsoft Jet and Replication Objects 2.1 Library”.}