1188
社区成员
access数据库如何压缩。
access数据库每次删除并没有释放空间，在access中可以选择数据库压缩，可是我如何采用vb代码控制此项操作？
谢谢！
谢谢！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
FBI_in_China 2001-10-19
只能用DAO3.6以上
这可以ACCESS2000
Dim Jro As New Jro.JetEngine
Dim SgsCmpO As String, SgsCmpD As String
'压缩
'旧
SgsCmpO = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName & _
";Jet OLEDB:Database Password=" & PassWord
'新文件
SgsCmpD = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NewMDB & _
";Jet OLEDB:Engine Type=5" & _
";Jet OLEDB:Database Password=" & PassWord
Jro.CompactDatabase SgsCmpO, SgsCmpD
这可以ACCESS2000
Dim Jro As New Jro.JetEngine
Dim SgsCmpO As String, SgsCmpD As String
'压缩
'旧
SgsCmpO = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName & _
";Jet OLEDB:Database Password=" & PassWord
'新文件
SgsCmpD = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NewMDB & _
";Jet OLEDB:Engine Type=5" & _
";Jet OLEDB:Database Password=" & PassWord
Jro.CompactDatabase SgsCmpO, SgsCmpD
伽楠 2001-10-19
用DAO中的功能可以做到
lixiuchen 2001-10-19
hnlzh(吸海垂虹)
这个方法极好
这个方法极好
isprogramer 2001-10-14
承诺继续加分！
isprogramer 2001-10-14
我使用的是ADO，有没有什么方法实现此操作呢。
y1g1y1 2001-10-14
http://www.csdn.net/expert/topic/284/284952.shtm
isprogramer 2001-08-13
我提一提吧
一川烟草123 2001-08-08
但在我的机器上不能對案2000的數据庫做操作
一川烟草123 2001-08-08
可以引用jro對象
在美每次啟動程序時間壓縮數据庫(不用以身相許啦,怕怕,給分吧_)
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos_sys.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"
FileCopy App.Path & "\thetemp.mdb", App.Path & "\pos_sys.mdb"
Kill App.Path & "\thetemp.mdb"
Set jro = Nothing
在美每次啟動程序時間壓縮數据庫(不用以身相許啦,怕怕,給分吧_)
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos_sys.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"
FileCopy App.Path & "\thetemp.mdb", App.Path & "\pos_sys.mdb"
Kill App.Path & "\thetemp.mdb"
Set jro = Nothing
isprogramer 2001-08-08
我用的是ADO，怎么不行呢？
wbdx 2001-08-05
用这个方法 dbengine.compactdatabase....
outer2000 2001-08-05
gz
woookaooo 2001-08-05
又学一招.
songyangk 2001-08-05
先要引用DAO，然后用dao.dbengine.compactdatabase("数据库文件名")就行了。
Access数据库压缩失败后修复经历 Access数据库压缩与修复 前段时间,因一时大意,直接在移盘硬盘上压缩一个800M的Access2003版数据库,在压缩时,移动硬盘读写出错,导致压缩失败.移动硬盘重新插拔后可读取,再用Access打开数据库文件出错，没法打开．但...
VB编程实现Access数据库压缩功能 内容索引:VB源码,数据库应用,数据库压缩 VB编程实现Access数据库压缩功能，VB编程的朋友可以借鉴一下，压缩的效果还是很明显的，虽然不是很完美，但至少可以借鉴一下，为以后的编程思路提供参考。
VB开发的Access数据库压缩工具源码.rar VB开发的Access数据库压缩工具源码，对Access进行内容压缩，操作之后数据库体积明显变校本软件操作方法简单，只需选择需要压缩的Access数据库，然后点击“压缩数据库”即可。两个直方图清淅的描绘出了压缩前和压缩后...
delphi access 数据库压缩与备份 在编写小型客户端程序是，如果用到access数据库，每个月的数据输入量过百万时，则要考虑数据库的压缩与备份。 上传代码在商业软件使用过，如有问题，请评价。
Access数据库压缩工具Delphi源码版.rar Access数据库压缩工具Delphi源码版，除了压缩数据库的功能外，这个小工具还可快速清空Access内容，界面方面使用了RZ控件，那些按钮就是RZ控件完成的效果。
压缩access数据库 遇到一个问题，使用的是accesss...打开数据库看也没发现啥问题，后来点了access上边的 压缩和修复数据库 工具，数据库从原来的 8M 瞬间变成了 800k ，使用压缩后的数据库时速度就特别快了，不知道是不是access数据库
