如何压缩加密的Access数据库?求助。。。。。。。。。。
如何压缩加密的Access数据库 问题点数：20、回复次数：4Top
1 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2006-03-15 13:59:31 得分 0
关于此主题请参考以下文章(不要只看标题，请认真仔细地察看上述文章以及相关的评论)：
如何使用 ADO 來压缩或修复 MS Access 文件？(jro的使用)《其他...
http://access911.net/index.asp?u1=a&u2=71FAB71E
----------------------- 911 社区回帖个人签名 start -----------------------
http://access911.net/csdn 无须注册提供附件上传功能，如果你提问的时候有附件请到上述地址上传并将链接复制粘贴。
http://access911.net 用 7 年时间整理了大量有关 Access 的原创资料，请有空的时候多用文章搜索功能
如果您有兴趣加入ACCESS编程的专项研究可以来QQ群“ACCESS上海研究班”看看，加入的方法请看这里《个性化的access911.net（七）QQ 群加入规则（专门讨论 ACCESS 的 ）》
http://access911.net/?kbid;72FAB01E16DCECF3
----------------------- 911 社区回帖个人签名 end -----------------------
向上看呦！Top
2 楼wwwwb（）回复于 2006-03-15 14:24:14 得分 20
与压缩一般库没有差别Top
3 楼zimei（）回复于 2006-03-15 14:52:05 得分 0
Private Sub mnuys_Click()
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Const MAX_PATH = 260
Public Sub CompactJetDatabase(location As String, Optional BackupOriginal As Boolean = True)
On Error GoTo CompactErr
Dim location As String
Dim strBackupFile As String
Dim BackupOriginal As Boolean
Dim strTempFile As String
ServerCn.Close
'检查数据库文件是否存在
location = App.Path & "\" & "建筑工地管理系统" & ".mdb"
If Len(Dir(location)) Then
'如果需要备份就执行备份
If BackupOriginal = True Then
strBackupFile = GetTemporaryPath & "backup.mdb"
If Len(Dir(strBackupFile)) Then Kill strBackupFile
VBA.fileCopy location, strBackupFile
End If
'创建临时文件名
strTempFile = GetTemporaryPath & "temp.mdb"
If Len(Dir(strTempFile)) Then Kill strTempFile
'通过DBEngine压缩数据库文件
DBEngine.CompactDatabase location, strTempFile
'删除原来的数据库文件
Kill location
'拷贝刚刚压缩过临时数据库文件至原来位置
VBA.fileCopy strTempFile, location
'删除临时文件
Kill strTempFile
Else
End If
Getcon ServerCn
MsgBox "数据库压缩修复成功！", vbExclamation
Exit Sub
CompactErr:
Debug.Print Err.Description
Err.Clear
Getcon ServerCn
Exit Sub
End Sub
Public Function GetTemporaryPath()
Dim strFolder As String
Dim lngResult As Long
strFolder = String(MAX_PATH, 0)
lngResult = GetTempPath(MAX_PATH, strFolder)
If lngResult <> 0 Then
GetTemporaryPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1)
Else
GetTemporaryPath = ""
End If
End Function
没有密码是可以的啊Top
4 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2006-03-16 09:01:59 得分 0
关于此主题请参考以下文章(不要只看标题，请认真仔细地察看上述文章以及相关的评论)：
如何使用 ADO 來压缩或修复 MS Access 文件？(jro的使用)《其他...
http://access911.net/index.asp?u1=a&u2=71FAB71E
----------------------- 911 社区回帖个人签名 start -----------------------
http://access911.net/csdn 无须注册提供附件上传功能，如果你提问的时候有附件请到上述地址上传并将链接复制粘贴。
http://access911.net 用 7 年时间整理了大量有关 Access 的原创资料，请有空的时候多用文章搜索功能
如果您有兴趣加入ACCESS编程的专项研究可以来QQ群“ACCESS上海研究班”看看，加入的方法请看这里《个性化的access911.net（七）QQ 群加入规则（专门讨论 ACCESS 的 ）》
http://access911.net/?kbid;72FAB01E16DCECF3
----------------------- 911 社区回帖个人签名 end -----------------------
向上看呦！Top
