利用ADO压缩和修复MSAccess2000数据库
上次发表了一篇关于压缩和修复MS Access 2000文件的文章，得到网友的好评，在此深表感谢。下面再奉献一篇利用 ADO 压缩和修复MS Access 2000文件的文章，希望能对您有所帮助。
首先定义一个函数：
function TForm1.compressdatabase:boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;'; var
sOldMDB,sNewMDB:string; MyObj:variant; begin
result:=false;
OldFileName:='Delphi资料库.mdb'; NewFileName:='Delphi资料库.mdb1';
sOldMDB := sProvider + 'Data Source=' + OldFileName; sNewMDB := sProvider + 'Data Source=' + NewFileName; MyObj:=createoleobject('jro.jetengine.2.1'); try try
MyObj.CompactDatabase(sOldMDB, sNewMDB); result:=true; except
result:=false; MyObj:=null; end; finally
MyObj:=null; end; end;
调用示例：
Var
OldFileName,NewFileName:string; //全局变量
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin
ADOConnection1.Connected :=false; //调用之前必须先关闭数据库连接
if not n1.Checked then exit; //假若“关闭时压缩数据库”为假，则退出 try
if not CompressDatabase then begin
ShowMessage(' 压缩数据库失败！ '); exit
else ShowMessage(' 压缩数据库成功！ '); if DeleteFile(OldFileName) then
RenameFile(NewFileName,OldFileName); else ShowMessage('不能重命名文件'); finally
// OldFileName:=''; // NewFileName:=''; end; end;
注意：
1- 在你的uses语句中必须加入ComCtrls单元。
2- 在压缩的过程中，其它人不能打开或使用数据库。
3- 修复压缩数据库时，若出现“类字符串无效”。
原 因 是：用户计算机中没有或者未注册“MSJRO.DLL”文件。 解决办法：若$(system)目录中没有上述文件，则复制该文件到$(system)目录下；若$(system)目录有上述文件，那么在$(system)目录下执行下列命令：
regsvr32 MSJRO.dll
若还出现“类字符串无效” 请尝试将“MyObj:=createoleobject('jro.jetengine.2.1');”一句改为：
MyObj:=createoleobject('jro.jetengine'); 注：$(system)目录，即为用户计算机中操作系统的系统目录。如：“C:\\Windows\\System” 。