上次发表《动态创建、压缩Access数据库》一文的大大和看过这篇文章的大大们请进！

Question

二、通过DBEngine创建
    这才是关键中的关键，是我一定要写出来的原因！
    各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2000，还有MDAC等，问题就在这里！Delphi5.0中早就封装了现成的类，只是大家都没有注意而已它位于：
    $Delphi5\Imports
    目录下！
    其中有DAO97.DCU文件，它是通过DAO350.DLL来完成的，其中的定义部分和DAO350.DLL如出一辙！OK，到现在，所有的一切都明白了(可惜我花了一天时间！)。那么具体实现起来就太方便了，具体过程如下：
    在引用部分加入：
    uses DAO97;
    实现部分：
    procedure TFormOffice.BitBtn4Click(Sender: TObject);
    var
      Engine:DBEngine;
    begin
      Engine:=CoDBEngine.Create;
      Engine.CreateDatabase('c:\NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);
    end;    说明：
        1、在C:\下创建NewAccess.mdb；
        2、语言国家是简体中文；
        3、压缩整理数据库用Engine.CompactDatabase('c:\invoice.mdb','c:\God.mdb','',0,'');就是将c:\invoice.mdb压缩整理成c:\God.mdb，剩下的只是将c:\invoice.mdb删除(DeleteFile('c:\invoice.mdb');)，然后将c:\God.mdb重新命名(RenameFile('c:\God.mdb','c:\invoice.mdb');)即可。
以上怎么不行呢？Engine.CreateDatabase('c:\NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);函数的参数是不是怪怪的，老提示我无法写入注册表项，请大大们帮帮忙看看。
阿里阿都！！！

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
  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;
end;

Answer 2

创建Access数据库文件：
procedure TForm1.Button2Click(Sender: TObject);
var AccessDB:OleVariant;
begin
  try
  AccessDB:=CreateOleObject('ADOX.Catalog');
  AccessDB.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mydb.mdb');
  finally
  AccessDB:=VarNull;
  end;
end;
压缩Access数据库文件：
uses JRO_TLB;
function CompactAndRepair(sOldMDB: string; sNewMDB: string): Boolean;
const
　sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;'
var
　oJetEng: JetEngine;
begin
　sOldMDB := sProvider + 'Data Source=' + sOldMDB;
　sNewMDB := sProvider + 'Data Source=' + sNewMDB;
　try
　　oJetEng := CoJetEngine.Create;
　　oJetEng.CompactDatabase(sOldMDB, sNewMDB);
　　oJetEng := nil;
　　Result := True;
　except
　　oJetEng := nil;
　　Result := False;
　end;
end;