设为首页
|
收藏本站
|
繁体中文
|
手机版
整站搜索
资讯
技巧
源码
行业
设备(待改)
资源
信息库(待改)
产品
作品(待改)
活动
培训(视频)
平台(待改)
二级(待改)
互动(作废)
交易
Access培训
-
Access开发平台
-
Access行业开发
首页
资讯
技巧
源码
行业
资源
活动
关于
技巧
ACCESS数据库
启动/设置/选项/背景
修复/压缩
安全/加密/解密
快捷键
版本升级/其它等
数据表
命名方式/设计规范
表设计
查询
Sql语言基础
选择查询
更新查询
删除查询
追加查询
生成表查询
交叉表查询
SQL特定查询
查询参数
查询综合应用
界面/窗体/控件
标签
文本框
命令按钮
组合框/列表框
选项组/复选框/选项按钮
选项卡
子窗体
窗体本身/综合应用
其它
报表打印
报表设计
高级报表
模块/函数/VBA/API/系统
VBA基础
内置函数
调试/跟踪/Debug
模块/类模块
API/COM/系统相关
字符数字日期
网络通信游戏
加密解密安全
文件处理
经典算法
宏/菜单/工具栏/功能区
宏/脚本
菜单/工具栏
功能区/Ribbon
图表/图形/图像/多媒体
图表
图形/图像
音频
视频/动画
DAO/链接表/ADO/ADP
DAO/链接表/ODBC
ADO/RDO
ADP
ActiveX/第三方控件/插件
Treeview树控件
ListView列表控件
Toolbar工具栏控件
微软其它控件
Dbi-Tech
CodeJock
Grid++Report
FastReport
ComponentOne
加载项/插件/Addin
OFFICE集成/导入导出/交互
Excel导入导出/交互
Word导入导出/交互
PPT交互
Outlook控制/邮件
Text文本文件/INI/CSV
PDF/SWF/XML格式
CAD格式
Sharepoint/其它Office
SqlServer/其它数据库
表
视图
存储过程/触发器
函数
用户/权限/安全
调试/维护
SqlServer其它/综合
发布/打包/文档/帮助
开发版/运行时
打包/发布/部署
开发文档/帮助制作
Access完整行业系统
采购管理系统
销售管理系统
仓库管理系统
人力资源管理HRM
CRM管理系统
MRP/ERP管理系统
BRP/流程优化
其它管理系统
心得/经验/绝招
其它/杂项
Excel技巧
Excel应用与操作
Excel开发编程
Word技巧
Word应用与操作
Word开发编程
Outlook技巧
Outlook应用与操作
Outlook开发编程
热门文章
恢复从Access 200..
压缩、修复指定的数据库
如何在ACCESS中压缩当..
pb中压缩整理access..
Access 实现前后台数..
在ACCESS中自动压缩当..
最新文章
Access 实现前后台数..
恢复从Access 200..
[摘录]Excel乱码修复..
几种修复ACCESS数据库..
数据库压缩工具
Access2003设置压..
联系方式
Access交流网(免费Access交流)
QQ:18449932
网 址:
www.access-cn.com
当前位置:
首页
>
技巧
>
ACCESS数据库
>
修复/压缩
修复/压缩
pb中压缩整理access数据库文件(mdb)
其实实现方法别的语言已经很明确了,我这里只是用pb整理了一下,方便需要这个功能的同学。
下面直接给出方法函数:
1、申明外部函数,用来取系统的临时路径。
FUNCTION ulong GetTempPath(ulong nBufferLength,ref string lpBuffer)
LIBRARY "kernel32.dll" ALIAS FOR "GetTempPathA"
2、核心方法:
global type gf_CompactAndRepairAccessDB from function_objectend type forward prototypesglobal function integer gf_compactandrepairaccessdb (string as_mdb)end prototypesglobal function integer gf_compactandrepairaccessdb (string as_mdb);//检查数据库文件是否存在 if not FIleExists(as_MDB) then return -1//创建临时文件名string ls_tmpFIlels_tmpFIle =Space(255)GetTempPath(255,ls_tmpFIle)ls_tmpFIle+="temp.mdb"//创建DBEngineinteger resultoleobject ole_DBEngineole_DBEngine = create oleobject result =ole_DBEngine.connecttonewobject("JRO.JetEngine") //创建失败if result<>0 then return result//通过DBEngine 压缩数据库文件 string sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;' string sOldMDB,sNewMDBsOldMDB = sProvider + 'Data Source= ' + as_MDBsNewMDB = sProvider + 'Data Source= ' + ls_tmpFIleole_DBEngine.CompactDatabase(sOldMDB, sNewMDB)destroy ole_DBEngine//拷贝刚刚压缩过临时数据库文件至原来位置 FIleCopy(ls_tmpFIle,as_MDB,true)//删除临时文件FileDelete(ls_tmpFIle)return 0end function
发布人:佚名-www.netjc.com.cn
分享到:
点击次数:
更新时间:2008-11-24 13:44:25 【
打印此页
】 【
关闭
】
上一条:
如何解决导出DBF时“字段将不能置于记录中”错误?记录过大错误
下一条:
如何查看Access某项引用被隐去的全路径?
相关文章
•
Access 实现前后台数据库压缩
•
恢复从Access 2003 数据库中删除的表
•
[摘录]Excel乱码修复的几点方法与经验
•
几种修复ACCESS数据库的实用方法
•
数据库压缩工具
•
Access2003设置压缩和修复数据库的方法
•
压缩、修复指定的数据库
热门文章
[2015-02-03]
恢复从Access 2003 数据库中删除的表
[2009-07-24]
Access2003设置压缩和修复数据库的方法
[2003-12-20]
如何使用 ADO 來压缩或修复 Microsoft Access 文件
[2009-11-03]
几种修复ACCESS数据库的实用方法
[2005-02-10]
当Access文件大于指定的大小时就自动压缩
[2005-08-16]
VB中利用Winrar进行文件压缩
热门产品