怎样将有密码的ACCESS数据库压缩－－－救命

Question

代码如下，在没有密码的情况下能完成，但在access里面设置了密码就不行了
var  DaoVar: OLEVariant;  if ADOConnection.Connected then
     ADOConnection.Connected :=false;
     
  DaoVar:=CreateOleObject('DAO.DBEngine.36');
  if FileExists(sPath+'ClientDataNew.mdb')   then
   deletefile(sPath+'ClientDataNew.mdb'); //删除文件
  DaoVar.CompactDatabase(sPath+'ClientData.mdb',sPath+'ClientDataNew.mdb');//压缩"misdb.mdb" 到 "misdbnew.mdb"
  if deletefile(sPath+'ClientData.mdb') then //删除文件"misdb.mdb"
       RenameFile(sPath+'ClientDataNew.mdb',sPath+'ClientData.mdb');  //将"misdbnew.mdb"改名为"misdb.mdb"
  if FileExists(sPath+'ClientDataNew.mdb')   then
   deletefile(sPath+'ClientDataNew.mdb'); //删除文件
 

Answer 1

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;
  JE:OleVariant;
begin
  DataSource1.DataSet.Active:=False;
  ADOConnection1.Connected:=False;
  GetTempPath(40,SPath);//取得Windows的Temp路径
  GetTempFileName(SPath,'~CP',0,SFile);//取得Temp文件名,Windows将自动建立0字节文件
  STempFileName:=SFile;//PChar->String
  DeleteFile(STempFileName);//删除Windows建立的0字节文件
  try
    JE:=CreateOleObject('JRO.JetEngine');//建立OLE对象,函数结束OLE对象超过作用域自动释放
    OleCheck(JE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),
        format(SConnectionString,[STempFileName,APassWord])));//压缩数据库
    //复制并覆盖源数据库文件,如果复制失败则函数返回假,压缩成功但没有到函数的功能
    result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
    DeleteFile(STempFileName);//删除临时文件
  except
    result:=false;//压缩失败
  end;
  ADOConnection1.Connected:=True;
  DataSource1.DataSet.Active:=True;
end;

Answer 2

对，用这种方法要先
菜单
Project|Import Type Library
确认选中Microsoft Jet and Replication Objects 2.6 Library (Version 2.6)
按Install，并在单元中确认uses JRO_TLB;