Delphi 实现 Access 2003 数据库压缩
源码:
[code="delphi"]
//AFileName:文件名称,APassWord:密码
procedure CompactDatabase(AFileName,APassWord:string);
const
SConnStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Pas...
2010-03-23 22:05:22 ·
135 阅读 ·
0 评论