Access2000数据库压缩与修复

Question

Access2000数据库压缩与修复我找了好多文章，均没做成功，那位朋友有现成的单元送一个，小弟不胜感激，[email protected]

Answer 1

我有例子，要用到 dao360.dll 就可以了

Answer 2

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
   dao:OLEVariant;
   tstr1,tstr2:string;
   winpath:pchar;
begin
    my_locate_conn.Close;
    GetMem(WinPath,255);
    GetWindowsDirectory(WinPath,255);
    Tstr1:=WinPath;
    dao:=CreateOleObject('DAO.DBEngine.36');
    Tstr2:=Tstr1+'\_tem5.bak';
    Tstr1:=Tstr1+'\_tem5.tem';  //解密后的文件--正常文件
    dao.CompactDatabase(tstr1,tstr2);
    deletefile(tstr1);
    RenameFile(tstr2,tstr1);
    tstr2:=ExtractFilePath(ParamStr(0))+'db\l_song.mdb';
你看看吧,这就可以了,但在使用前要将 DAO360。DLL注册,这个文件在安装OFFICE2000后会自动注册

Answer 3

我已经安装了office xp,和前几次一样都是在编译到dao:=CreateOleObject('DAO.DBEngine.36');处不能通过。提示Undeclared identifier:'CreateOleObject'
另外，你怎么把他写在Form的Closequery事件里。我不明白！谢谢你！

Answer 4

ACCESS2000数据库提供的函数只有一个压缩函数即：CompactDatabase说是压缩和修复合在一起了，事实上，我试验过，当数据库真的发生了问题需要修复时，这个函数不起作用，只有在ACCESS2000中的数据库实用工具中的修复才起作用。你要想修复数据库也可以下载一个ACCESS2000的数据库修复工具：JETCOMP.exe在网上可以搜到。

Answer 5

用我的函数
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 6

onclick事件中调用的例子(菜单里的，不是你所要求的btn，但我想应该是一样的吧)：procedure Tmainform.N31Click(Sender: TObject);
begin
  if application.MessageBox('压缩数据库可以节省硬盘空间，但系统的性能可能会略微下降，确实要压缩数据库吗？','询问',mb_yesno+mb_defbutton2+mb_iconquestion)=idyes then
     begin
       datamodule1.ADOConnection1.Connected:=false;
       if CompactAndRepair('junhua.9sky', 'junhua1.mdb','jiutiankaifabuchupin',true) then
          begin
            if copyfile('junhua1.mdb','junhua.9sky',false) then
               deletefile('junhua1.mdb');
            ShowMessage('数据库压缩成功！系统即将关闭。');
            application.Terminate;
          end
       else
         ShowMessage('压缩数据库出错！');
     end; 
end;

Answer 7

在Delphi中用ADO压缩Access数据库之不引用JRO类型库方法
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1268352

Answer 8

问题：在Delphi中用ADO压缩Access数据库之不引用JRO类型库方法 ( 积分：0, 回复：15, 阅读：550 )
分类：数据库-文件型 ( 版主：hbezwwl, 吴剑明 )  
来自：ysai, 时间：2002-8-16 10:56:00, ID：1268352 | 编辑 [显示：小字体 | 大字体]  
看到很多富翁提出类似问题,给出一个比较好的解决方法
第一个参数为原始数据库文件名(完整路径),第二个参数为密码
修改后可以实现压缩后与压缩前有不同的密码!
//引用ComObj,ActiveX
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 9

多谢ysai(赛赛)，又多学了一招。

Answer 10

其实归根到底还是要使用JetEngine的，只不过是在uses里不用添加那些单元而已。不过这样使用更方便些，但运行的效率没有直接使用JRO类型库的效率好。

Answer 11

to lzf1010(深宇)
我编译通过了，但压缩失败，CompactAndRepair('junhua.9sky', 'junhua1.mdb','jiutiankaifabuchupin',true)括号内的东西不明白，给讲解一下好吗，我备份与恢复功能是正常的，说明数据库没有被使用。