一个关于压缩access数据库的问题

Question

我不会用JRO压缩，能给个例子么？
或者哪里可以得到它的HELP
谢谢

Answer 1

//压缩数据库
procedure TfrmSend.compactDatabase();
var
  X:OleVariant;
  tmpname:string;
begin
  //压缩数据库
  if not FileExists(rootPath+'mail.mdb') then Exit;
  tmpName:= '_cd1010.mdb';
  try
    X := CreateOleObject('JRO.JetEngine');
  except
    Exit;
  end;
  try
    X.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
      + rootPath+'mail.mdb','Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + rootPath+tmpName);
  except
    Exit;
  end;
  if DeleteFile(PChar(rootPath+'mail.mdb')) then RenameFile(rootPath+tmpName,rootPath+'mail.mdb');
end;