用程序实现压缩access(*.mdb)数据库的方法
来源:互联网 发布:实施工程师sql笔试题 编辑:程序博客网 时间:2024/06/05 17:22
下面的函数用来压缩access数据库 需要增加ComObj单元
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;
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;
0 0
- 用程序实现压缩access(*.mdb)数据库的方法.
- 用程序实现压缩access(*.mdb)数据库的方法
- java操作Access *.mdb数据库的实现
- 压缩和修复mdb数据库的方法
- Access数据库在线压缩的实现方法
- SQL2008链接Access数据库(.mdb)实现方法
- 压缩Access数据库的方法。
- 压缩access数据库的方法。
- 用VBA代码打开非*.mdb扩展名的access数据库
- java链接ACCESS数据库的MDB文件
- C#进行MDB数据库的压缩
- IIS下防止mdb数据库被下载的实现方法
- 飞信虚拟机运行.net程序 使用Access的mdb数据库
- C# 压缩MDB数据库
- Beyond Compare 2比较.mdb(ACCESS)数据库的设置方法
- MDB压缩方法
- 通过js实现网页与Access数据库(后缀名为mdb)的联动
- Python3 连接Access mdb数据库
- 2016暑假多校合练第一场Multi-University Training Contest 1 1001 Abandoned country
- c#自定义排序方法
- hdu1242 Rescue--BFS
- 2016,7,20(c++编程思想)
- 基于DSP/BIOS和NDK的嵌入式网络操作系统设计方案
- 用程序实现压缩access(*.mdb)数据库的方法
- android view滑动的三种方式
- Abandoned country
- .NET获取URL路径几个方法
- Linux下查看文件内容的命令
- 报到!初开博客
- Dialog
- DSP程序中段的定义和作用
- HTML5基础学习笔记(十三)