access数据库如何压缩。

isprogramer 2001-08-05 12:01:48
access数据库每次删除并没有释放空间,在access中可以选择数据库压缩,可是我如何采用vb代码控制此项操作?
谢谢!
...全文
152 点赞 收藏 14
写回复
14 条回复
切换为时间正序
当前发帖距今超过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
回复
伽楠 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
回复
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("数据库文件名")就行了。
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-08-05 12:01
社区公告
暂无公告