删除函数:
Public Sub RemoveDatabase_Password(ByVal strDBWithPassword As String,ByVal strPassword As String) On Error GoTo ErrorHandler Dim objEngine As New JRO.JetEngine Dim strBackupFile As String Dim strDBWithOutPassword As String Dim DBWithPwd As String,DBWithOutPwd As String
If Len(Dir(strDBWithPassword)) And Len(strPassword) <> 0 Then ' 是否备份 If MsgBox("删除密码之前是否备份源数据库?",vbYesNo,"提示") = vbYes Then strBackupFile = "C:Mybackup.mdb" If Len(Dir(strBackupFile)) Then Kill strBackupFile FileCopy strDBWithPassword,strBackupFile End If '建立临时文件 strDBWithOutPassword = "c:Temp40005.mdb" If Len(Dir(strDBWithOutPassword)) Then Kill strDBWithOutPassword '若临时文件存在,删除临时文件 DBWithPwd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & strDBWithPassword & ";" & "Jet OLEDB:Database Password=" & strPassword & ";"
DBWithOutPwd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & strDBWithOutPassword & " ;Jet OLEDB:Engine Type=5;"
DoEvents objEngine.CompactDatabase DBWithPwd,DBWithOutPwd Set objEngine = Nothing '删除有密码的数据库 Kill strDBWithPassword '复制去除密码大数据 FileCopy strDBWithOutPassword,strDBWithPassword Kill strDBWithOutPassword '删除临时数据库 MsgBox "恭喜,密码已成功从数据中删除",vbInformation,"成功" Else MsgBox "输入的数据库密码不正确!",vbCritical,"失败"
End If
Exit Sub ErrorHandler: If Err.Number = -2147217843 Then MsgBox "密码无效请重试!","密码错误" Else MsgBox "错误 # " & Err.Number & " : " & Err.Description & _ " in RemoveDatabase_Password()",vbOKOnly,"提示" End If End Sub
调用方法:
Call RemoveDatabase_Password(‘数据库路径','数据库密码')
敬告:
莫做恶事!鄙视恶意攻击者! (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|