access数据库如何压缩。

[isprogramer]

access数据库每次删除并没有释放空间，在access中可以选择数据库压缩，可是我如何采用vb代码控制此项操作？
谢谢！

[songyangk]

先要引用DAO，然后用dao.dbengine.compactdatabase("数据库文件名")就行了。

[woookaooo]

又学一招.

[outer2000]

gz

[wbdx]

用这个方法 dbengine.compactdatabase....

[isprogramer]

我用的是ADO，怎么不行呢？

[一川烟草123]

可以引用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

[一川烟草123]

但在我的机器上不能對案2000的數据庫做操作

[isprogramer]

我提一提吧

[y1g1y1]

http://www.csdn.net/expert/topic/284/284952.shtm

[isprogramer]

我使用的是ADO，有没有什么方法实现此操作呢。

[isprogramer]

承诺继续加分！

[lixiuchen]

hnlzh(吸海垂虹)　
这个方法极好

[伽楠]

用DAO中的功能可以做到

[FBI_in_China]

只能用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