[求助]关于数据库压缩的问题

ysgm1978g

有很多数据库,每次运行后体积都增大不少,逐一打开工具－数据库实用工具－压缩和修复数据库来压缩实在麻烦，有没有什么好办法可以不用逐一打开数据库就能实现压缩？？

谢谢先！

sbsfhgl

.

ysgm1978g

忘了,再来看一下

wd0001

用SQL语言

jamedog

继续努力

[此贴子已经被作者于2006-8-13 20:29:19编辑过]

ysgm1978g

谢谢谢谢谢谢谢谢谢谢！！！！！！！！！！

andymark

一次压缩多个数据库的例子

一点通

paul16的例子

使用代码压缩后端数据库！
Public Sub 压缩后端数据库() '压缩后端数据
Dim StrFTemp As String
Dim StrFName As String
Dim Lstar As Long, Lend As Long
StrFName = "D:\PoseSky商业管理软件\PoseSky_be.mdb"
StrFTemp = "D:\PoseSky商业管理软件\temp001.mdb"
If Dir(StrFTemp) <> "" Then Kill StrFTemp
If Dir(StrFName) <> "" Then Name StrFName As StrFTemp Else MsgBox StrFName & "不存在，无法进行压缩！"
DBEngine.CompactDatabase StrFTemp, StrFName, , , ";pwd=密码"
Kill StrFTemp
End Sub

上例子变通修改一下就可压缩别的数据库了

andymark

以下是引用ysgm1978g在2006-5-14 22:14:00的发言：


谢谢两位

但是，两位的方法好像也只能对当前数据库进行压缩，也就是说还是必须逐一打开数据库，仍旧麻烦

      可以尝试用OpenCurrentDatabase的方法打开数据库,再通过上面的方法进行压缩

ysgm1978g

谢谢两位

但是，两位的方法好像也只能对当前数据库进行压缩，也就是说还是必须逐一打开数据库，仍旧麻烦