用程序实现压缩access(*.mdb)数据库的方法

下面的函数用来 压缩 access 数据库 需要增加ComObj单元 function CompactDatabase(AFileName,APassWord:string):boolean; // 压缩 与修复 数据库 ,覆盖源文件 const SConnectionString = 'PRovider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +'Jet OLEDB:D

下面的函数用来 压缩 access 数据库 需要增加ComObj单元 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;

查看更多关于用程序实现压缩access(*.mdb)数据库的方法的详细内容...