VB 删除 ACCESS 数据库的密码

15 篇文章 0 订阅
11 篇文章 4 订阅

删除函数:

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 "密码无效请重试!", vbCritical, "密码错误"
  Else
    MsgBox "错误 # " & Err.Number & " : " & Err.Description & _
        " in RemoveDatabase_Password()", vbOKOnly, "提示"
  End If
End Sub

调用方法:

Call RemoveDatabase_Password(‘数据库路径', '数据库密码')

 

敬告:

莫做恶事!鄙视恶意攻击者!

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 2
    评论
VB中连接Access数据库的代码如下: 1. 导入ADO组件: 在VB的工程中,需要先引用"Microsoft ActiveX Data Objects" (ADO) 组件。导入库的方式是:打开工程,点击“Project” 菜单 -》选择“Reference” -》 然后在“Available References”中勾选“Microsoft ActiveX Data Objects”选项即可。 2. 建立连接字符串: 连接字符串的格式一般如下:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myfolder\mydatabase.mdb;User Id=admin;Password=;,其中,Provider表示数据提供程序,Jet OLEDB 4.0表示访问Access数据库,Data Source表示数据库文件路径,User Id和Password表示用户登录时使用的用户名和密码,如果没有设置,则设置为空。 3. 建立数据库对象: 使用代码新建一个ADO数据库对象,代码如下: Dim MyCon As ADODB.Connection Set MyCon = New ADODB.Connection 4. 建立连接: 使用ADO数据库对象进行数据库的连接,代码如下: MyCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myfolder\mydatabase.mdb;User Id=admin;Password=;" 5. 执行SQL语句: 连接成功后,可以查询、添加、删除、更新等操作Access数据库中的数据,通过执行SQL语句实现,例如查询所有数据表中的数据,代码如下: Dim rs As New ADODB.Recordset rs.Open "select * from table1", MyCon, adOpenStatic, adLockOptimistic 6. 关闭连接: 数据库操作完成后,应当关闭数据库连接,代码如下: MyCon.Close 以上就是VB连接Access数据库的代码,需要根据实际情况进行修改和调整。
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

蓝图

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值