|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
我们知道，由于使用内部高速缓存和临时缓冲区，MS Access文件随着使用时间快速增加。这些多余的空间的浪费远超出它对性能的影响，并且备份时会需要很大的空间。解决它的办法是压缩，通过选择Access 2000的菜单“工具->数据库实用工具->压缩和修复数据库”完成，或者也可以在你的Delphi程序中完成。 rvQLinux联盟
rvQLinux联盟
rvQLinux联盟
rvQLinux联盟
procedure TMainFrm.CompressDB;rvQLinux联盟
var DaoVar: OLEVariant;rvQLinux联盟
begin rvQLinux联盟
screen.Cursor :=crHourGlass; rvQLinux联盟
if dmfrm.ADOConnection1.Connected then dmfrm.ADOConnection1.Connected :=false; rvQLinux联盟
tryrvQLinux联盟
DaoVar := CreateOleObject('DAO.DBEngine.36');rvQLinux联盟
if FileExists('misdbnew.mdb') then deletefile('misdbnew.mdb'); //删除文件“misdbnew.mdb”rvQLinux联盟
DaoVar.CompactDatabase('MisDB.mdb','misdbnew.mdb');//压缩“misdb.mdb” 到”misdbnew.mdb“rvQLinux联盟
if deletefile('MisDB.mdb') then //删除文件“misdb.mdb”rvQLinux联盟
RenameFile('misdbnew.mdb','MisDB.mdb'); //将“misdbnew.mdb”改名为”misdb.mdb“rvQLinux联盟
finallyrvQLinux联盟
screen.Cursor :=crDefault;rvQLinux联盟
end;rvQLinux联盟
end;rvQLinux联盟
|
rvQLinux联盟
rvQLinux联盟
注意：rvQLinux联盟
1- 在你的uses语句中必须加入ComCtrls单元。rvQLinux联盟
rvQLinux联盟
2- 在压缩的过程中，其它人不能打开或使用数据库。rvQLinux联盟
rvQLinux联盟
3- 修复压缩数据库时，若出现“类字符串无效”。rvQLinux联盟
原 因 是：用户计算机中没有或者未注册“DAO360.DLL”文件。rvQLinux联盟
解决办法：若$(system)目录中没有上述文件，则复制该文件到$(system)目录下；若$(system)目录有上述文件，那么在$(system)目录下执行下列命令：rvQLinux联盟
regsvr32 dao360.dllrvQLinux联盟
注：$(system)目录，即为用户计算机中操作系统的系统目录。如：“C:\Windows\System” 。rvQLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
