源码:
//AFileName:文件名称,APassWord:密码
procedure CompactDatabase(AFileName,APassWord:string);
const
SConnStr = '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);
GetTempFileName(SPath,'~CP',0,SFile);
STempFileName:=SFile;
DeleteFile(STempFileName);
try
JE:=CreateOleObject('JRO.JetEngine');
OleCheck(JE.CompactDatabase(Format(SConnStr,[AFileName,APassWord]),
Format(SConnStr,[STempFileName,APassWord])));
CopyFile(PChar(STempFileName),PChar(AFileName),False);
DeleteFile(STempFileName);
showmessage('数据库压缩完成!');
except
showmessage('数据库压缩失败!');
end;
end;
分享到:
相关推荐
delphi Access数据库 的 压缩与 修复
Delphi版Access数据库压缩程序 v1.0..rar
delphi操作access2007|2003数据,实现创建、压缩、修复、修改密码! 如果提示连接错误或您没有安装Microsoft.ACE.OLEDB.12.0,请自行去微软下载安装数据库引擎!
在编写小型客户端程序是,如果用到access数据库,每个月的数据输入量过百万时,则要考虑数据库的压缩与备份。 上传代码在商业软件使用过,如有问题,请评价。
Delphi修复或压缩Access数据库,对Access进行数据压缩,减少体积,并对常规错误进行修复。运行程序时请注意:要关闭所有正在运行的程序。
Access数据库压缩工具Delphi源码版,除了压缩数据库的功能外,这个小工具还可快速清空Access内容,界面方面使用了RZ控件,那些按钮就是RZ控件完成的效果。
通过delphi对access2007,access2003数据库进行压缩。access使用时间长了,会产生很多日志,文件会增加很多,通过代码进行压缩
Delphi版Access数据库压缩修复工具源代码..rar
Access数据库压缩程序-源码.rar
Access数据库压缩工具及源码,DELPHI编写
界面相当漂亮的Delphi数据库压缩程序,本程序的压缩对象是 Access数据库,SQL版的暂后发布。通过本压缩程序,可自动清空Access中的无用数据,空数据行信息,减少Access体积,除了压缩功能外,本程序的界面也是一大...
带数据压缩、清空功能 Delphi版Access工具 带数据压缩、清空功能的Delphi版Access数据库工具,使用了RZ控件,界面看上去漂亮了,仅供参考。
内容索引:Delphi源码,数据库应用,数据压缩 带数据压缩、清空功能的Delphi版Access数据库工具,使用了RZ控件,界面看上去漂亮了,仅供参考。
1)利用access提供属性对access数据库进行压缩、修复; 2)增加了access数据库备份功能;
用delphi操作sqlite数据库写了个简易发货软件 sqlite数据库想必有玩缓存数据库的都知道 本地化的一个小型db 性能堪比xls和access
Delphi 压缩数据库的程序代码,程序虽小但却是采用ACCESS数据库开发者必备的。里面还包含了一些很有用的技巧,如:消息的使用、命令行参数、ANI动画的显示等。
本程序用Delphi7编写,用到第三方unicode组件、ASGSQLite3,主要功能实现在同一个窗口同时管理多种数据库(目前支持SQLite3、Access、SQL2000,若要支持其它数据库,可实现相应数据库接口),有点类似isqlw。...
DELPHI中操作access数据库(建立.mdb文件,压缩数据库) 以下代码在WIN2K,D6,MDAC2.6下测试通过
在你修改了Access数据库的设计时,在你手工删除了Access数据库里面的数据时,数据库尺寸不会变小,因此,长久如此,mdb文件会很大很大,这个工具能很方便的清除掉里面无用的数据,使得浪费的硬盘空间空出来,有源码...