如何实现象access中的压缩和修复数据库功能-既pack功能

Question

Procedure Tform1.ComPactDataBase(SrcFile : String);
Var Data : OleVariant;
    SourceFile ,TempFile : String;
Begin
  Data := createoleobject('JRO.JetEngine');
  SourceFile :=SrcFile;
  TempFile := 'c:\123.mdb';
  try
    Data.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password="";User ID=Admin;Data Source='+sourcefile+';Jet OLEDB:Database Locking Mode=0','Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password="";User ID=Admin;Data Source='+tempfile);
    if FileExists(SourceFile) and FileExists(TempFile) then begin
      if DeleteFile(SourceFile) then begin
        RenameFile(TempFile,SourceFile);
        Showmessage('数据库压缩成功！');
        end;
      end;
    Except
      ShowMessage('主数据库正在被他人或应用程序使用，请稍后再试！');
    end;
end;