利用delphi压缩和修复

《利用delphi压缩和修复》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、利用Delphi压缩和修复MSAccess2000的数据库文件武汉科技学院电信系蔡晖广州正泰商业数据有限公司邢玉秀在使用MSAccess2000的过程中，我们发现随着时间的推移，由于Access会给数据库自动保留一份副本集，这样造成了数据库占用的空间越来越大。如果在Access环境中，我们可以通过点选菜单（工具-数据库实用工具-压缩和修复数据库），来将Access数据库压缩。那么通过Delphi能不能压缩和修复Access数据库呢？答案是肯定的。利用下面的这个函数，成功的实现了实现这个功能。代码如下：FunctionCompactAndRe

2、pair(sOldMDB:String;sNewMDB:String):Boolean;constsProvider='Provider=Microsoft.Jet.OLEDB.4.0;';varoJetEng:JetEngine;beginsOldMDB:=sProvider+'DataSource='+sOldMDB;sNewMDB:=sProvider+'DataSource='+sNewMDB;tryoJetEng:=CoJetEngine.Create;oJetEng.CompactDatabase(sOldMDB,sNewMDB

3、);oJetEng:=Nil;Result:=True;exceptoJetEng:=Nil;Result:=False;end;end;使用该函数的例子如下：ifCompactAndRepair('d:dbOld.mdb','d:dbNew.mdb')thenShowMessage('操作成功')elseShowMessage('操作失败');应注意的是，在压缩和修复数据库的过程中，不能有其它的操作打开该数据库，否则操作会失败。另外，要想上面的函数编译通过，你需要先把MicrosoftJetandReplicationObject

4、s2.1Library导入到Delphi中，步骤如下：1、在Delphi集成开发环境中，点选菜单(Project-ImportTypeLibrary)。2、在弹出的对话框中，移动滚动条，找到MicrosoftJetandReplicationObjects2.1Library。3、点击Install按钮。然后把JRO_TLB单元添加到你的Delphi应用程序中的Uses单元。好了，运行程序试一下吧，数据库文件是不是小了好多呢？（以上程序在Delphi5Enterprise、Access2000、Windows98SE下调试通过）//////

5、/////////////////////**************************************************************DELPHI压缩ACCESS数据库2009-04-0311:06functionTFrmDBRestore.CompactDatabase(constAPassWord:string):Boolean;varstrConn,strConn1:string;STempFileName:string;JE:OleVariant;beginstrConn:='Provider=Mic

6、rosoft.Jet.OLEDB.4.0;'+'password="tsadminwho";'//用户工作组（*.mdw）密码+'UserID=adminwho;'//用户工作组（*.mdw）用户名+'DataSource='+GAppPath+'DataTetraSys.mdb;'+'PersistSecurityInfo=True;'+'JetOLEDB:Systemdatabase='+GAppPath+'ts6Secured.mdw;'//用户工作组文件+'JetOLEDB:DatabasePassword=%s;'//数据库密码

7、+'JetOLEDB:EngineType=4';strConn1:='Provider=Microsoft.Jet.OLEDB.4.0;'+'DataSource=%s';Result:=False;STempFileName:=GAppPath+'DataSysCompact.mdb';tryJE:=CreateOleObject('JRO.JetEngine');//建立OLE对象,函数结束OLE对象超过作用域自动释放OleCheck(JE.CompactDatabase(Format(strConn,[APassWord]),Fo

8、rmat(strConn1,[STempFileName,APassWord])));//压缩数据库//复制并覆盖源数据库文件,如果复制失败则函数返回假,压缩成功但没有到函数的功