zoukankan
html css js c++ java
实现压缩access(*.mdb)数据库的方法
下面的函数用来压缩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
;
查看全文
相关阅读:
11 Vue3 UI Framework Card 组件
12 Vue3 UI Framework 打包发布
15 Vue3 UI Framework 完工部署
【译】使用 Visual Studio 调试外部源代码
IntelliJ JSP 格式化问题
JSP 学习笔记 | 五、MVC模式和三层架构 & JSP 案例实战
JSP使用MySQL数据库报错java.lang.ClassNotFoundException: com.mysql.jdbc.Driver
通过Navicate for MySQL导入SQL文件
MAVEN 配置和基本使用
JSP 学习笔记 | 二、JSP 脚本 & 案例实现 & 缺点分析
原文地址:https://www.cnblogs.com/hieroly/p/3502369.html
最新文章
C# 根据窗口句柄获取窗口截图
Kubernetes:Pod 端口映射
Kubernetes:应用自动扩容、收缩与稳定更新
了解 Docker 网络
Kubernetes:Pod 升级、回滚
使用 kubeadm 部署
Kubernetes Pod 全面知识
Kubernetes 入门基础
CKAD认证中的部署教程
万字长文入门 Redis 命令、事务、锁、订阅、性能测试
热门文章
Kubernetes:了解 Deployment
制作一个有趣的涂鸦物联网小项目(涂鸦模组SDK开发 CBU BK7231N WiFi+蓝牙模组 HSV彩色控制)
记一次引入Elasticsearch的系统架构实战
10 Vue3 UI Framework Tabs 组件
08 Vue3 UI Framework Input 组件
14 Vue3 UI Framework 代码优化
07 Vue3 UI Framework Switch 组件
09 Vue3 UI Framework Table 组件
16 Vue3 UI Framework 域名配置
13 Vue3 UI Framework 完善官网
Copyright © 2011-2022 走看看