一段在VB中压缩ACCESS数据库的代码,与大家共亨

[xayzmb]

'*********************************************************************
'使用vb提供的Microsoft Jet and Replication来压缩数据库
'在引用中选中Microsoft Jet and Replication,然后应用如下代码

Dim j As New JRO.JetEngine
'创建压缩临时数据库到另一目录
j.CompactDatabase "provider=Microsoft.Jet.OLEDB.4.0;data " & _
"source=D:\myDB.mdb;" & _
"jet oledb:database password=123456789", _
"provider=Microsoft.Jet.OLEDB.4.0;data " & _
"source=E:\myDB.mdb;" & _
"jet oledb:encrypt database=true;" & _
"jet oledb:database password=123456789"

'删除原来的数据库
Kill "D:\myDB.mdb"
'将压缩后的数据库复制回原来位置
FileCopy "E:\myDB.mdb", "D:\myDB.mdb"
'删除临时数据库
Kill "E:\myDB.mdb"
set j = nothing
'***************************************************************************************

[lover_li]

我执行了未删除前的操作,为何e:\mydb不见小呢,这是什么压缩呢?

[Andy__Huang]

不錯，收藏！

[xayzmb]

你试着添加几知记录
再删除
这时你会发现删除后*.mdb文件没有减小
执行上述操作
再看

[裸男]

我靠，这个帖子来得太及时了，真想给楼主分。

[acev]

mark!

[joycode]

这个好像只能压缩Access97格式的吧

[lujianyu1189]

压缩2000数据库时,要引用DAO3.6,就可以了,这个代码很好,收藏.请问楼主,有没有修复数据库的代码呀??谢谢