用程序?qū)崿F(xiàn)壓縮access(*.mdb)數(shù)據(jù)庫的方法

2019-11-18 18:04:20

字體：大中小

供稿：網(wǎng)友

下面的函數(shù)用來壓縮 access 數(shù)據(jù)庫需要增加ComObj單元
function CompactDatabase(AFileName,APassWord:string):boolean;
//壓縮與修復(fù)數(shù)據(jù)庫,覆蓋源文件
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將自動(dòng)建立0字節(jié)文件
STempFileName:=SFile;//PChar->String
DeleteFile(STempFileName);//刪除Windows建立的0字節(jié)文件
try
    JE:=CreateOleObject('JRO.JetEngine');//建立OLE對(duì)象,函數(shù)結(jié)束OLE對(duì)象超過作用域自動(dòng)釋放
    OleCheck(JE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),
        format(SConnectionString,[STempFileName,APassWord])));//壓縮數(shù)據(jù)庫
    //復(fù)制并覆蓋源數(shù)據(jù)庫文件,如果復(fù)制失敗則函數(shù)返回假,壓縮成功但沒有達(dá)到函數(shù)的功能
    result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
    DeleteFile(STempFileName);//刪除臨時(shí)文件
except
    result:=false;//壓縮失敗
end;
end;

上一篇：lua頭文件的pas翻譯_lua.h

下一篇：進(jìn)程查看器1.2版，歡迎下載