VFP如何压缩ACCESS数据库 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → VFP如何压缩ACCESS数据库

标题：VFP如何压缩ACCESS数据库

只看楼主

yll148

等　级：论坛游民
威　望：3
帖　子：266
专家分：15
注　册：2012-7-3
结帖率：87.5%

楼主

已结贴√ 问题点数：20 回复次数：6

VFP如何压缩ACCESS数据库

请各位同仁指点一下如何使用VFP压缩ACCESS数据库，谢谢!

搜索更多相关主题的帖子: 数据库　如何　同仁　

2017-05-10 16:29

zyxxzhyg

来　自：江西
等　级：论坛游侠
威　望：5
帖　子：58
专家分：134
注　册：2014-6-26

第 2 楼

得分:0

VFP自身数据都不压缩，一定要压缩的话用外部的压缩程序的命令行形式

2017-05-11 08:01

厨师王德榜

等　级：版主
威　望：183
帖　子：942
专家分：4724
注　册：2013-2-16

第 3 楼

得分:20

提供两个思路，
1、用OLE对象把MDB装入内存后，直接用他自己的方法来压缩，VBA 参考语句为：

 myOldData, myNewData, , , ";pwd=123"

2、用VB或VC写一个DLL ，专门压缩MDB的，直接在VFP中调用即可。

2017-05-11 09:36

yll148

等　级：论坛游民
威　望：3
帖　子：266
专家分：15
注　册：2012-7-3

第 4 楼

得分:0

通过自己研究以方式就可以压缩ACCESS数据库，谢谢各位朋友的支持!
db=SYS(5)+CURDIR()+"Temp001.mdb"
db1=SYS(5)+CURDIR()+'my.mdb'
IF FILE(db)
ERASE (db)
ENDIF
myacc=CreateObject("Access.Application")
(db1,db,.f.)
ERASE (db1)
COPY FILE (db) TO (db1)
ERASE (db)
myAcc.quit
RELEASE myAcc

2017-05-12 10:52

xinjie