作者：路很长别太狂_297 | 来源：互联网 | 2023-05-17 14:21
Access2000数据库压缩与修复我找了好多文章，均没做成功，那位朋友有现成的单元送一个，小弟不胜感激，klcui@21cn.com
14 个解决方案
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后会自动注册
我已经安装了office xp,和前几次一样都是在编译到dao:=CreateOleObject('DAO.DBEngine.36');处不能通过。提示Undeclared identifier:'CreateOleObject'
另外，你怎么把他写在Form的Closequery事件里。我不明白！谢谢你！
ACCESS2000数据库提供的函数只有一个压缩函数即：CompactDatabase说是压缩和修复合在一起了，事实上，我试验过，当数据库真的发生了问题需要修复时，这个函数不起作用，只有在ACCESS2000中的数据库实用工具中的修复才起作用。你要想修复数据库也可以下载一个ACCESS2000的数据库修复工具：JETCOMP.exe在网上可以搜到。
用我的函数
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”.}
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;
在Delphi中用ADO压缩Access数据库之不引用JRO类型库方法
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1268352
问题：在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;
其实归根到底还是要使用JetEngine的，只不过是在uses里不用添加那些单元而已。不过这样使用更方便些，但运行的效率没有直接使用JRO类型库的效率好。
to lzf1010(深宇)
我编译通过了，但压缩失败，CompactAndRepair('junhua.9sky', 'junhua1.mdb','jiutiankaifabuchupin',true)括号内的东西不明白，给讲解一下好吗，我备份与恢复功能是正常的，说明数据库没有被使用。
我仔细看了深宇函数，才知道是新旧数据库名，修改了一下就压缩成功了，到此终于完成，多谢深宇不厌其烦的帮助，谢谢上面的各位
京公网安备 11010802041100号