在打开数据库前检测该数据库是否有密码.txt

VB技巧问答10000例 VB技巧问答10000例

如 果 你 打 开 一 个 加 密 的 数 据 库 而 没 有 提 供 密 码 ， VB会 产 生 3031号 错 误 ， 下 面 就 是 一 个 例 子 ： 
     Dim db As Database, sPassword As String 
     
     On Error GoTo ErrHandler 
     sPassword = "" 
     Set db = OpenDatabase("D:\ComponentSource\DBFiles\CSMain\CSMain.mdb", True, False, sPassword) 
     ...... 
     db.Close 
     Exit Sub 
     
    ErrHandler: 
     If Err.Number = 3031 Then 
     sPassword = ";PWD=" + InputBox("Password:") 
     Resume 
     End If 
<END>