如何在VB+ACCSEE中设置密码？

设置后用ACCSEE也打不开。

解决方案 »

  1.   

    将ACCESS的数据库以独占方式打开，设置数据库密码就可以对数据库进行加密。在打开数据库的连接字符串中加上一段：Jet OLEDB:Database Password=yourpassword 就可以了。
    如果需要对数据库内容加密，则需一定的要加密算法。使用 Data 控件打开 Accecc 数据库：
    设置 Connect 属性为 ;pwd=密码
    Data1.Connect = ";pwd=密码"
    修改密码：
    Data1.Database.NewPassword _老密码_, _新密码_
      

  2.   

    Connect 属性为什么？没有pwd一项。如果程序中要设置用户名和密码呢？
      

  3.   

    用DAO    
    Dim dbs As Database
    Set dbs = OpenDatabase("", True, False, ";UID=admin;pwd=密码;database=数据库名")
    dbs.NewPassword "旧密码", "新密码"
    dbs.Close
      

  4.   

    Public Conn As ADODB.Connection
    Set Conn = New ADODB.Connection
    Conn.Open "driver={microsoft access driver (*.mdb)};dbq=数据库;PWD=密码;"